Kolay gelsin iyi çalışmalar arkadaşlar; butona şifre ataya biliyorum ancak bu işime yaramıyor çünkü açılan formu Açılan Kutu değerine göre yetkilendirmek istiyorum bu mümkün mü ?

Formun VBA'na koyu olan bolumleri ekleyin.
Option Compare Database
Dim Cvp As String
Private Sub Komut2_Click()
...
Cvp = InputBox("Parola Giriniz", "G U V E N L I K", , 100, 100)
a = "[sorumlu]=" & "'" & Me![Açılan Kutu0] & "'"
DoCmd.OpenForm stDocName, , , a, IIf(Parola(Me![Açılan Kutu0]) = 0, acFormReadOnly, acFormEdit)
...
End Sub

Public Function Parola(Kullanici As String)
Parola = IIf(Kullanici = "murat" And Cvp = "M1", -1, IIf(Kullanici = "şenol" And Cvp = "S1", -1, IIf(Kullanici = "erol" And Cvp = "E1", -1, 0)))
End Function

Parola ve kullanici denden ile sinirlandirilmistir. Yeni bir tablo ile kullanici ve parola verisini dlookup(... ile cagrilarak kontrol saglanabilir.

  Yetki.rar (Boyut: 29,07 KB / İndirilme: 86) Ek'te ki VT inceleyip,kendi projenize aktarabilirsiniz.

hocam dediğiniz gibi koyurek ile yazılmış kodları forma yapıstırdım şöylebir hata veriyor

Dim Cvp As String satiri sonrasi iki satiri silin. Ornek VT kodlari gbi olmali

Sayın dsezgin83260 öcelikle hızlı cevabınız ve ilginiz için teşekkür ederim ben kapattıktan sonra cevaplamışsınız hocam deiklerinizi anladığim kadarı ile yaptım (yapmaya çalıştım) fakat tekrar uyumsuzluk hatası verdi. çevirdim yap boz yaptım gene hatayı bulamadım tekrardan size gönderiyim dedim son kez bir daha bakarmısınız

Dim Cvp... formun VBA bolumu ikinci satirindan baska bir yerde olmayacak ve paralo proseduru bir tane olmali. VBA editoru calisma sonrasi debug-compile yaparsaniz size hatali satir ve gerekcesi ileti halinde gosterilecektir. Onceki mesajinizd ki VT ornegini guncelledim.