Parantezler hatalı... Aşağıdaki gibi yapınız....

Private Sub Komut9_Click()



If (IsNull(Me.Adi) Or Len(Trim(Me.Adi)) = 0) Or _

   (IsNull(Me.Soyadi) Or Len(Trim(Me.Soyadi)) = 0) Or _

   (IsNull(Me.Email) Or Len(Trim(Me.Email)) = 0) Then

    

         MsgBox "lütfen tüm alanları doldurunuz..!"

    

    Exit Sub

End If

    

    DoCmd.GoToRecord , , acNewRec

    

End Sub