(03/12/2018, 01:09)Oğuz Türkyılmaz yazdı: Merhabalar.
If IsNull(txtTeklifNo) Or txtTeklifNo = "" Then
MsgBox "Lütfen Teklifiniz için Teklif Numarası veriniz ", vbExclamation, "Uyarı"
Exit Sub
End If
Şeklindeki kodumu txtTeklifNo metin kutusunun güncelleştirme sonrasına veya çıkıldığında yordamlarına yazdığımda alan boş ise hata mesajını veriyor fakat numaranın verilip verilmediğini kontrol etmeden sonraki sekmeye devam ediyor. Bu döngüyü nasıl sonlandırırım. Alana numara verilmediyse alandan çıkamamalı ve formu kaydedememeli ancak numara verildikten sonra işleme devam edebilmeli. Teşekkürler.
Aklıma 2 farklı yöntem geldi ama tabii ki akıl akıldan üstündür. Daha iyi fikirler de çıkabilir.
Birincisi, bir sonraki metin kutusuna geçse bile kaydetme yordamını yapmasını engelleyebilirsiniz.
"Teklif numarası vermeden kayıt işlemi gerçekleşemez" şekline hata mesajı verdirip.
Me.txtTeklifNo.SetFocus komutuyla kullanıcıyı tekrar teklif no metin kutusuna yönlendirebilirsiniz.
İkinci önerim, diğer metin kutularının enable özelliğini false yaparsınız, teklif numarası vermeden true'ya dönmezler.
Böylece mecburen teklif numarası vermek zorunda olurlar.
Belki işinize yarar...