Arkadaşlar merhabaformumdaki adı soyadı boş geçilmesin diye

Private Sub Komut51_Click()
On Error Resume Next
If IsNull(Me.ADI) And IsNull(Me.SOYADI) And IsNull(Me.NOT) And IsNull(Me.ADRESİ) And IsNull(Me.[TELEFON NO SABİT]) And IsNull(Me.[TELEFON NO MOBİL]) Then
DoCmd.Close acForm, "MUSTERIG"
ElseIf IsNull(Me.ADI) Then
Me.ADI.SetFocus
DoCmd.OpenForm "BOS", acNormal
ElseIf IsNull(Me.SOYADI) Then
Me.SOYADI.SetFocus
DoCmd.OpenForm "BOS", acNormal
Else:
DoCmd.Close acForm, "MUSTERIG"