If Koduna Yardım

[i.mete]

Private Sub Form_Open(Cancel As Integer)
Dim Yetki As String
Yetki = DLookup("Yetki", "tblsifrex", "[ID]=" & Forms!frmşifre!Kullanıcı.Value)
If Yetki = "Admin" Then
MsgBox "Sisteme [ADMIN] tam yetkili olarak giriş yaptınız", vbInformation, "Bilgilendirme Penceresi"
Else
MsgBox "Sisteme [USER1] kısıtlı yetkili olarak giriş yaptınız", vbInformation, "Bilgilendirme Penceresi"
[KOMUT 4].Enabled = False
End If
End Sub

Yuakrıdaki koda bir kullanıcı daka eklemek istiyorum fakat bir türlü yapamadım.
2 bir kullanıcı örneğin "User2" eklemek ve bu kallanıcı giriş yaptığında başka bir kamutun pasif olmasını istiyorum.
acil olarak bir çözüme ihtiyacım var
şimdiden teşekkürler ederim

 

[adnanyurdakul]

Dim Yetki As String
Yetki = DLookup("Yetki", "tblsifrex", "[ID]=" & Forms!frmşifre!Kullanıcı.Value)
select case yetki
case admin
msgbox "admin"
case user
msgbox "user"
case user2
msgbox "user2"
end select
iyi çalışmalar