(09/06/2024, 09:47)onur_can yazdı: Merhaba
Bunun için sorguyu çalıştırmadan önce uyarıları kapatmanız gerekir, aşağıdaki kodda eklenmiştir.

Kod:

Private Sub Komut_Kaydet_Click()
On Error GoTo Err_Komut_Kaydet_Click
Dim EklemeSayisi
EklemeSayisi = 0
DoCmd.SetWarnings False
For i = 1 To KaçSatırOlsun
    If IsNull(DLookup("STOK", "Tablo1", "STOK=[Forms]![Form1]![KaçSatırOlsun]")) Then
    DoCmd.RunSQL "INSERT INTO Tablo1 ( STOK, SERİ, MALZEME, ADET, AÇIKLAMA)" & _
    "SELECT Metin_STOK, Metin_SERİ, Metin_MALZEME, Metin_ADET, Metin_AÇIKLAMA;"
    EklemeSayisi = EklemeSayisi + 1
   
Else
    MsgBox "STOK:" & STOK & " mükerrer kayıt.... "
End If
Next
EklemeSayisi = 0
DoCmd.SetWarnings True
    Me.Tablo1ALT.Requery
    MsgBox "Toplam : " & EklemeSayisi & " kayıt eklediniz."
Exit_Komut9_Click:
Exit Sub
Err_Komut_Kaydet_Click:
End Sub

Sağolun hocam Allah razı olsun.