25-10-22, 13:44
|
| Όνομα: ΝΑΣΟΣ Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 14-10-2010
Μηνύματα: 455
| |
Καλησπέρα Αντώνη.
Στο κουμπί κάνε εισαγωγή τον κώδικα. Κώδικας: Private Sub Εντολή8_Click()
Dim sql As String
DoCmd.RunSQL "INSERT INTO Πίνακας2 ( onoma1, onoma2, onoma3 ) " & _
" SELECT Πίνακας1.onoma1, Πίνακας1.onoma2, Πίνακας1.onoma3 " & _
" FROM Πίνακας1;"
Me.Refresh
End Sub
|