Öncelikle Yapılmaması Gereken Ölümcül Hatalar konusunu mutlaka inceleyin.

Modüldeki kodu aşağıdaki ile değiştir

Public GKullanici As String

FAna formundaki butonun tıklandığında olayındaki kodu aşağıdaki ile değiştir.

If Şifre.Value = "" Or IsNull(Şifre) Then



    MsgBox ("Lütfen Geçerli Bir Şifre Giriniz!")

    Exit Sub



ElseIf İsim.Value = "" Or IsNull(İsim) Then



    MsgBox ("Lütfen Geçerli Bir İsim Giriniz!")

    Exit Sub



End If



'Şifre Doğrulama Kodu



If Şifre.Value = Dlookup ("şifre", "kullanicilar", "İsim='" & İsim.Value & "'") Then



GKullanici = Me.İsim.Value



MsgBox ("Şifre DOĞRU")



 Dim stDocName As String

    Dim stLinkCriteria As String



    stDocName = "ANA MENÜ"

    DoCmd.OpenForm stDocName, , , stLinkCriteria



Exit_Komut8_Click:

    Exit Sub



Else

MsgBox ("Şifre YANLIŞ")



End If

Başlamamış Çalışmalar isimli formun yüklendiğinde olayına aşağıdaki kodu ekle

If GKullanici = "Misafir" Then



    MsgBox ("bu formu açmaya yetkiniz yok")

    DoCmd.Close acForm, "Başlamamış Çalışmalar"



End If