[nasos23]

Καλημέρα Αντώνη

Για αντιγραφή πινάκων 1&2 στον πίνακα 3

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

Me.Refresh
End Sub

Εναλλακτικά μπορούμε να δημιουργήσουμε ένα ερώτημα συνένωσης των δύο πινάκων.
Ας το ονομάσουμε "union all 1-2"

SELECT  Πίνακας1.onoma1, Πίνακας1.onoma2, Πίνακας1.onoma3
FROM Πίνακας1;
UNION ALL SELECT  Πίνακας2.onoma1, Πίνακας2.onoma2, Πίνακας2.onoma3
FROM Πίνακας2;

Επομένως στο κουμπί παίρνοντας δεδομένα απ' το ερώτημα έχουμε:

Private Sub Εντολή8_Click()
Dim sql As String
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];"
Me.Refresh
End Sub