Kodları düz duvar yerine merdiven şeklinde kodlarsanız daha okunur olur ayrıca hatalarınız azalır. Formun Load yani Yüklendiğinde olayını aşağıdaki gibi yapabilirsiniz:

Dim eposta As String

Dim parola As String



parola = Nz(DLookup("SIFRE", "MAILSIFRE"), "")

eposta = Nz(DLookup("MAIL", "MAILSIFRE"), "")



If (eposta = "" Or IsNull(parola) Or parola = "" Or IsNull(parola)) Then

'If MsgBox("Mail Bilgileriniz Güncellensinmi" & vbLf & vbLf & "Bilgileriniz Eksik...") = vbYes Then

'MsgBox "Mail Bilgileriniz eksik.", vbOKOnly + vbInformation, "Bilgilendirme Penceresi"

DoCmd.OpenForm "MAILSIFRE"

Else

DoCmd.SelectObject acTable, , True

DoCmd.RunCommand acCmdWindowHide

End If

'End If

göründüğü gibi düz duvar stili okunaklı değil. Girinti kullanınca ise çok daha okunaklı olacaktır.

Dim eposta As String

Dim parola As String



    parola = Nz(DLookup("SIFRE", "MAILSIFRE"), "")

    eposta = Nz(DLookup("MAIL", "MAILSIFRE"), "")

    

    If (eposta = "" Or IsNull(parola) Or parola = "" Or IsNull(parola)) Then

        

        'If MsgBox("Mail Bilgileriniz Güncellensinmi" & vbLf & vbLf & "Bilgileriniz Eksik...") = vbYes Then

        'MsgBox "Mail Bilgileriniz eksik.", vbOKOnly + vbInformation, "Bilgilendirme Penceresi"

        DoCmd.OpenForm "MAILSIFRE"

    

    Else

        

        DoCmd.SelectObject acTable, , True

        DoCmd.RunCommand acCmdWindowHide

    

    End If

Access ile Null kontrolünü Eposta = Null şeklinde değilde IsNull( Eposta ) olarak kontrol etmeniz daha doğru olur.