Kod:
On Error GoTo Hata
Dim strSQL As String
strSQL = "INSERT INTO Tablo1 ( Kimlik, Adi, Soyadi) " _
& "SELECT Tablo1.Kimlik, Tablo1.Adi, Tablo1.Soyadi " _
& "FROM Tablo1 " _
& "WHERE (((Tablo1.Eklem)=True))"
DoCmd.RunSQL (strSQL)
Hata:
Kod:
Me.Form.Requery