İlginize çok teşekkür ederim ama maalesef olmadı.
Kod:
Private Sub recete_denetim()
Me.Metin180.SetFocus
If IsNull(Metin180) Or Metin180 = "" Or Len(Metin180) < 1 Then 'protokol numarası boşsa
MsgBox "REÇETENİN PROTOKOL NOSUNU GİRMEDİNİZ"
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