Sayın sHeN_sHaK_r0cK
Sizin ana sayfanızda komut16 diye bir düğme yok hata bu yüzden oluşuyor.
anasayfa formuna açıldığında kısmındaki kodu aşağıdaki şekilde değiştirin
Private Sub Form_Open(Cancel As Integer)
Dim Yetki As String
Yetki = Dlookup ("Yetki", "tblsifre", "[ID]=" & Forms!frmşifre1!Kullanıcı.Value)
If Yetki = "Admin" Then
MsgBox "Sisteme [ADMIN] tam yetkili olarak giriş yaptınız", vbInformation, "Bilgilendirme Penceresi"
Else
MsgBox "Sisteme [USER] kısıtlı yetkili olarak giriş yaptınız", vbInformation, "Bilgilendirme Penceresi"
'Komut16.Enabled = False
Komut14.Enabled = False
Komut21.Enabled = False
Komut10.Enabled = False
End If
End Sub