sayın coşkun dediğinizi anladım fakat başka bi yöntem buldum onu uyguladım sorunsuz çalışıyor

if yetki="user" then

   If ButtonMenu.Key = "sifreDegistir" Then

        MsgBox "Yetkiniz bu alanı görmenize izin vermiyor.", vbInformation, "Yetkisiz Giriş"

   End If

    If ButtonMenu.Key = "Kduzenle" Then

        MsgBox "Yetkiniz bu alanı görmenize izin vermiyor.", vbInformation, "Yetkisiz Giriş"

    End If

end if

if yetki="admin" then

    If ButtonMenu.Key = "sifreDegistir" Then

        DoCmd.OpenForm "sifredegistir", acNormal

    End If

    If ButtonMenu.Key = "Zduzenle" Then

        DoCmd.OpenForm "ZiyaretciDuzenle", acNormal

    End If

end if