Örneği inceledim, "Kaydet" butonuna bastığımda "Invalid use of Null" hatası veriyor.
Hata mesajını verdiği satırı kırmızı ile işaretledim.
Alıntı:Private Sub Komut7_Click()
DoCmd.SetWarnings False
For KontrolNo = 1 To 5
Klasor2Adi = Controls("klasor" & (KontrolNo))
KlasorAdi = Controls("klasoradi" & (KontrolNo))
If Not IsNull(Controls("klasor" & (KontrolNo))) And Not IsNull(Controls("klasoradi" & (KontrolNo))) And Controls("klasor" & (KontrolNo)) <> "" And Controls("klasoradi" & (KontrolNo)) <> "" Then
DoCmd.RunSQL "INSERT INTO std_klasoru_tablosu ([klasor_no],[std_klasoru]) VALUES ('" & Klasor2Adi & "','" & KlasorAdi & "')"
End If
Next KontrolNo
sil2
DoCmd.RunSQL "DELETE tbl_gecici.* FROM tbl_gecici;"
DoCmd.SetWarnings True
End Sub
Hata mesajına rağmen kaydetme işlemini gerçekleştiriyor ama aynı kaydın girilmesini engellemiyor. Sadece uyarı mesajı veriyor.