If IsNull(Me.Metin0) Or Me.Metin0 = "" Then
MsgBox "Metin0 boş bıraktınız."
Me.Metin0.SetFocus
Exit Sub
ElseIf IsNull(Me.Metin2) Or Me.Metin2 = "" Then
MsgBox "Metin2 boş bıraktınız."
Me.Metin2.SetFocus
Exit Sub
ElseIf IsNull(Me.Metin4) Or Me.Metin4 = "" Then
MsgBox "Metin4 boş bıraktınız."
Me.Metin4.SetFocus
Exit Sub
Else
MsgBox ("Tüm Alanlar Dolu")
End If
Kodu aşağıdaki gibi kullanabilirsiniz.