Örneğin 20 satır ekleme yapmasını istiyorum her kayıttan sonra "1 satır eklemek üzeresiniz. " mesajı çıkıyor ve EVET dersem ekleme yapıyor.
Benim istediğim her satırda "1 satır eklemek üzeresiniz. " mesajı vermesin istiyorum. 200 satırda ekleyebilirim her seferinde onay istemesin. İlgili kodu ve örnek uygulamayı gönderiyorum. İlginiz için şimdiden çok teşekkür ederim.
Kod:
Private Sub Komut_Kaydet_Click()
On Error GoTo Err_Komut_Kaydet_Click
Dim EklemeSayisi
EklemeSayisi = 0
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
Me.Tablo1ALT.Requery
MsgBox "Toplam : " & EklemeSayisi & " kayıt eklediniz."
Exit_Komut9_Click:
Exit Sub
Err_Komut_Kaydet_Click:
End Sub
