[artchrist73]

Για αντιγραφή πίνακα1 και πίνακα2 αντιγραφή και επικόλληση στο πίνακα3 όμως?

Private Sub Εντολή8_Click()
Dim sql As String
DoCmd.RunSQL "INSERT INTO Πίνακας1 ( onoma1, onoma2, onoma3 ) " & _
DoCmd.RunSQL "INSERT INTO Πίνακας2 ( onoma1, onoma2, onoma3 ) " & _
" SELECT Πίνακας3.onoma1, Πίνακας3.onoma2, Πίνακας3.onoma3 " & _
" FROM Πίνακας3;"
Me.Refresh
End Sub

Σωστά;;;;;





ευχαριστώ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!