Deneme.rar (Boyut: 975,48 KB / İndirilme: 25)

Frm_Kasa ve Frm_KasaAlt isimli ilişkili formumuz mevcut. Frm_Kasa alanında bulunan AdıSoyadı alanı boş geçilmeyecek kontrol edilen alan olacak AltForm olan Frm_KasaAlt formunada veri giriş yapılıp yapılmadığını kontrol edilecek bu Formda Aylar ve AltUcret alanı kontrol edilecek ve bu alanlar dolu ise “Kaydet” tuşuna tıklanınca kaydetme işlemi yapacak ancak bu alanlardan herhangi biri boşsa uyarı verecek kayetme işlemini yapmayacak.
Yaklaşık 2 gündür uğraşıyorum ve internette ve sitemizde aramalar yapmama rağmen sorunu çözemedim.
ÖRENEK :
If (IsNull(.AdıSoyadı)) Then
            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İ!!!"
Mesaj verecek kaydetme işlemi yapmayacak
Tüm alanlar dolu ise
Kayıt işlemini yapacak
MsgBox ("Veri Girişi Kaydı Yapıldı"), vbInformation, "BİLGİ!!!"
Mesajını verecek ve formu kapatmadan kaydetme işlemini yapmış olacak
Before Update İle yapılan işlemlerde denedim ancak işime yaramadı . Sadece “Kaydet” Tuşu ile kaydetme işlemi yapılsın istiyorum.
Siz saygıdeğer üstadlarımdan bu konuda yardımlarını bekler teşekkür ederim.
Uygulama örneği ektedir.

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.

(24-05-2023, 23:51)onur_can demiş ki: 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.