msgbox uyarıları hk.

[serdaryilmaz]

merhabalar

uygulamamda metin kutusunun boş kalmamasını istiyorum ve bosşa mesaj çıkıyor. yapmak istediğim eksik olan metin kutusu uyarısı verdikten sonra o metin kutusuna gitmesi.

şimdiden yardımlarınız için teşekkürler

 

[beab05]

Bakınız...

http://www.excel.web.tr/showthread.php?t=40680

 

[serdaryilmaz]

sayın beab05 sayfayı inceledim ama orası bana yardımcı olmadı yada ben anlamadım.
benim kod şöyle;
If IsNull(sozlesmetarih) Then
MsgBox "Sözleşme Tarihini Giriniz.", vbInformation + vbOKOnly, "Dikkat!"
Exit Sub
End If

buraya bi kod ekleyerek sozlesmetarih metin kutusuna gitmesini sağlarız.

 

[modalı]

Sayın serdaryılmaz,

Aşağıdaki kodu ekleyin.

 Me.sozlesmetarih.SetFocus

İyi çalışmalar

 

[serdaryilmaz]

konu ile ilgilenen sayın beab5 ve modalı'ya teşekkür ederim. ben sorunu aşağıdaki gibi çözdüm;

If IsNull(Me.sozlesmetarih) Then
MsgBox "Sözleşme Tarihini Giriniz.", vbInformation + vbOKOnly, "Dikkat!"
DoCmd.GoToControl "tarih"
Exit Sub
End If

 

[serdaryilmaz]

sayın modalı sizin dedğiniz gibide tekrar denedim oldu.
If IsNull(Me.sozlesmetarih) Then
MsgBox "Sözleşme Tarihini Giriniz.", vbInformation + vbOKOnly, "Dikkat!"
me.tarih.setfocus
Exit Sub
End If