(09/07/2015, 05:24)ozanakkaya yazdı: If IsNull(klasor1) Or Me.klasor1 = "" Then ve If IsNull(klasoradi1) Or Me.klasoradi1 = "" Then todları ile standart no girilmeden klasör adının girilmemesini amaçladığınızı düşünerek bu kodu kaldırdım, yerine KlasorAdiBosMu ve KlasorNoBosMu kodu ekledim, klasör no alanına veri girmeden klasör adına giderseniz uyarı veriyor. Ayrıca "Bu klasör numarası daha önce girilmiş" uyarısının kodlarını tek fonksiyonda topladım.
Ozan Bey ilginiz için teşekkür ederim.
Yaptığınız düzenlemeleri detaylı bir şekilde inceledim. Sadece üst kısıma eklediğim alıntıdaki gibi, klasor1 ve klasoradi1 boşsa kayıt ekleme kodları yerine yazdığınız kodlar ilk açılışta çalışıyor ama bir kez kayıt ekledikten sonra çalışmıyor. Yani kaydet butonuna her bastığımda boş kayıt açmaya devam ediyordu. O yüzden ben yine kaydet butonunun başına alttaki kodları eklemek zorunda kaldım.
Kod:
If IsNull(klasor1) Or Me.klasor1 = "" Then
MsgBox ("Boş Kayıt Girilemez"), vbCritical, "Kaydetme Hatası"
klasor1.SetFocus
Else
If IsNull(klasoradi1) Or Me.klasoradi1 = "" Then
MsgBox ("Boş Kayıt Girilemez"), vbCritical, "Kaydetme Hatası"
klasoradi1.SetFocus
İlginize tekrar teşekkürler...
Saygılarımla