Demral hocam buradaki if sorgusundaki 6 nereden geliyor.
If cevap = 6 Then
DoCmd.RunSQL "SELECT Tablo1.kayit_id, Tablo1.toplam INTO [yeni tablo] FROM Tablo1 WHERE (((Tablo1.kayit_id)=[Formlar]![Form1]![kayit_id]));"
MsgBox "İstenen Kayıt Yapıldı"
Else
End If

x0914667, 14-10-2009 tarihinden beri AccessTr.neT üyesidir.