Yuakrıdaki koda bir kullanıcı daka eklemek istiyorum fakat bir türlü yapamadım.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
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