28-10-22, 08:19
|
| Όνομα: ΝΑΣΟΣ Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 14-10-2010
Μηνύματα: 455
| |
Καλημέρα Αντώνη Κώδικας: Private Sub Εντολή8_Click()
Dim sql As String
DoCmd.SetWarnings False 'Μπλοκάρει τις ειδοποιήσεις της access
DoCmd.RunSQL "INSERT INTO Πίνακας3 ( onoma1, onoma2, onoma3 ) " & _
" SELECT [union all 1-2].onoma1, [union all 1-2].onoma2, [union all 1-2].onoma3 " & _
" FROM [union all 1-2];"
DoCmd.SetWarnings True 'Ενεργοποιεί τις ειδοποιήσεις της access
'Προεραιτικά το παρακάτω μήνυμα μας ενημερώνει για τον αριθμό των εγγραφών που προστέθηκαν.Αν δεν το θέλεις το διαγράφεις
MsgBox "Έγινε επιτυχής προσθήκη " & DCount("*", "[union all 1-2]") & " εγγραφών στον πίνακα3." & vbCr & vbCr
Me.Refresh
End Sub
|