[VBA] Alan Kontrollü Kaydetme Işlemi

Merhaba Ahmet
Kaydet butonunuzun Click olayına aşağıdaki kodu girin


Ayrıca Aylar alanının çıkıldığında olayında sondan 2. ve 3. satırını silin.

Üstadım öncelikle emeğine sağlık;

Dediğin gibi yaptım üstadım. Ancak Alt formda "Enter" tuşuna basarak ilelendiği için otomatikman ücret alanından çıkınca altformda ikinci satıra geçilince kodun

"If (IsNull(Forms![Frm_Kasa]![Frm_KasaAlt].Form![Aylar])) Or (IsNull(Forms![Frm_Kasa]![Frm_KasaAlt].Form![AltUcret])) Then

            MsgBox ("Veri Girişi Yapmadınız"), vbInformation, "BİLGİ!!!" " bu kısmını tekrar çalıştırdığından yani Aylar ve Ücret alanını tekrar kontrol ettiği için

Veri girişi yapmadınız uyarısını tekrar vermektedir. Ancak buna şu şekilde bir çözüm buldum AltUcret alanının  Odaklanma Sonlandığında olayını aşağıdaki gibi yaptım

Private Sub AltUcret_LostFocus()
If IsNull(Me.Aylar) Then
Me.Aylar.SetFocus ': Exit Sub
MsgBox "İlgili Ay adını boş geçemezsiniz.", 48, "Kayıt İşlemi"
Else
Me.AltMuhKoduFK.SetFocus
End If
End Sub

 Bu şekilde yapınca "Enter" tuşuna basılınca AltUcret alanına gelince imleç AltMuhKoduFK.SetFocus a odaklandığından altsatıra geçmediği için sorunu bu şekilde çözdüm.

Ancak siz değerli üstadlarımın daha efektif bir çözümü var ise ona da hayır demem doğrusu.

Üstadım ayrıca  Kaydet butonuna yazdığın bu koda benzer bir kodda;

Kullanıcı kaydet butonuna basmadan yanlışlıkla "KAPAT" butonuna başarsa kayıt;

"KAPAT" butonuna aynı alanları kontrol edecek alanlar boşsa uyaracak formu kapatmayacak bir kod mümkünmüdür.

Teşekkür ederim.