04/09/2019, 01:56
metınaycıcek
(03/09/2019, 23:26)berduş yazdı: burada kullanılan IsNull(….) kısmı gerekli alanlar boş mu, değil mi onu kontrol ediyor,
ama hangi alan boş olursa olsun hep aynı kutuya -daireno- gidiyor.
If IsNull([A2]) then DoCmd.GoToControl "[A2]" gibi bir kod eklenebilir MsgBox "Lütfen Boşlukları doldurunuz!!" kodunun üzerine
Sayın hocam dediğiniz yaptım
If IsNull(A2) Then DoCmd.GoToControl "A2"
If IsNull(A3) Then DoCmd.GoToControl "A3"
If IsNull(AA8) Then DoCmd.GoToControl "AA8"
If IsNull(AA4) Then DoCmd.GoToControl "AA4"
If IsNull(AA5) Then DoCmd.GoToControl "AA5"
If IsNull(A5) Then DoCmd.GoToControl "A5"
If IsNull(AA7) Then DoCmd.GoToControl "AA7"
If IsNull(A6) Then DoCmd.GoToControl "A6"
If IsNull(C1) Then DoCmd.GoToControl "C1"
If IsNull(GF1) Then DoCmd.GoToControl "GF1"
If IsNull(SODT) Then DoCmd.GoToControl "SODT"
If IsNull(ACIK1) Then DoCmd.GoToControl "ACIK1"
boşlukları doldurunuz diye sonuç veriyor