Programımda alanlarda veri olup olmadığını kontrol ediyorum. Bu kontrol sonucu eğer veri yoksa o metinkutusuna odaklanıp veri girmesini istiyorum. Ben istiyorum ama benim yazdığım kodlara göre Access bunu istemiyor. Kontrolü yapıyor, mesajı veriyor ve sonra hiçbirşey olmamışçasına devam ediyor. Ne yapmam lazım?
Kod:
Private Sub recete_denetim()
If IsNull(Metin180) Or Metin180 = "" Then 'protokol numarası boşsa
MsgBox "REÇETENİN PROTOKOL NOSUNU GİRMEDİNİZ"
Metin180.SetFocus
'Arada aşağıdaki kpoduda denedim olmadı(sonsuz döngü oldu)
'If Len(Metin180) < 1 Then
'Metin180.SetFocus
'End If
ElseIf IsNull(Metin182) Or Metin182 = "" Then 'karne sayfa no boşsa
MsgBox "REÇETE SAYFA NOSUNU GİRMEDİNİZ"
Metin182.SetFocus
End If
End Sub