DoCmd.RunSQL " INSERT INTO Tablo2 " & _
" SELECT * FROM Sorgu1 ;"
butonun tıklandığında olayına aşağıdaki kodu yazın dilerim işinizi görür