AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Yetkilendirmeler ile İlgili

1 2 3
06/02/2009, 16:17

tdsharun

Hangi örnekten bahsettiğinizi bilmiyorum ama kodu şu şekilde düzelttiğinizde sorun olmayacaktır...


Kod:
Private Sub Form_Open(Cancel As Integer)
Dim Yetki As String, c As String
Yetki = DLookup("Yetki", "tblsifre", "[ID]=" & Forms!frmŞifre!Kullanıcı.Value)

If Yetki = "Admin" Then
Form.AllowDeletions = True
Form.AllowEdits = True
Me.Durum.Enabled = True
Me.MSFFirma_Adı.Enabled = True
Me.yenkayıt.Enabled = True
End If

If Yetki = "User" Then
MsgBox "** DİKKAT ** SİZ..Bazı işlemlerde Yetkili Değilsiniz.***", vbInformation, "DİKKAT"
Form.AllowDeletions = False
Form.AllowEdits = True
Me.Durum.Enabled = False
Me.MSFFirma_Adı.Visible = False
Me.yenkayıt.Enabled = True
End If

If Yetki = "ReadOnly" Then
MsgBox "** DİKKAT ** SİZ..Read Onlysiniz..***", vbInformation, "DİKKAT"
Form.AllowDeletions = False
Form.AllowEdits = True
Me.Durum.Enabled = False
Me.MSFFirma_Adı.Visible = False
Me.yenkayıt.Enabled = False
End If

End Sub

Kolay gelsin...
12/02/2009, 10:25

Morphe

(06/02/2009, 16:17)tdsharun yazdı: Hangi örnekten bahsettiğinizi bilmiyorum ama kodu şu şekilde düzelttiğinizde sorun olmayacaktır...


Kod:
Private Sub Form_Open(Cancel As Integer)
Dim Yetki As String, c As String
Yetki = DLookup("Yetki", "tblsifre", "[ID]=" & Forms!frmŞifre!Kullanıcı.Value)

If Yetki = "Admin" Then
Form.AllowDeletions = True
Form.AllowEdits = True
Me.Durum.Enabled = True
Me.MSFFirma_Adı.Enabled = True
Me.yenkayıt.Enabled = True
End If

If Yetki = "User" Then
MsgBox "** DİKKAT ** SİZ..Bazı işlemlerde Yetkili Değilsiniz.***", vbInformation, "DİKKAT"
Form.AllowDeletions = False
Form.AllowEdits = True
Me.Durum.Enabled = False
Me.MSFFirma_Adı.Visible = False
Me.yenkayıt.Enabled = True
End If

If Yetki = "ReadOnly" Then
MsgBox "** DİKKAT ** SİZ..Read Onlysiniz..***", vbInformation, "DİKKAT"
Form.AllowDeletions = False
Form.AllowEdits = True
Me.Durum.Enabled = False
Me.MSFFirma_Adı.Visible = False
Me.yenkayıt.Enabled = False
End If

End Sub

Kolay gelsin...

Merhaba Hocam... Şimdi bu kodu ben ANA FORM ' um var bunun vb kodlarına yazdım. ve çalışıyor... Şimdi ikinci bir XYZ FORM yaptım. Buna da aynı kodu yazdığım zaman hata veriyor. Bunu nasıl düzeltebilirim? Yani her forma girerken kullanıcıların o formdaki yetkilerini ayarlamaya çalışıyorum...
Ek koymayı unutmuşum Arkadaşlar belki ekte daha çok yardımcı olabilirsiniz... Şimdi ANA FORMda program çalışıyor "Kalite Kontrol" de çalışmıyor Kullanıcı Adı: Admin
Şifre: MORPHEUS
14/02/2009, 00:09

ozanakkaya

sn morphe, Kalite Kontrol formu yok, KALITE_GIRIS formundan bahsediyorsanız o formda da şifreli giriş veya yetkilendirme ile ilgili alan yok, amacınız yetkiye göre formdaki verileri düzenleme izni mi?
18/02/2009, 08:44

assenucler

Sayın tdsharun ve Sayın C*E*L*O*Y*C*E;

Güzel açıklamalarınız ve dosyalarınız için ayrı ayrı teşekkürler.

Her şey gönlünüzce olsun.

Sevgi ve saygılar.
21/05/2009, 20:13

benremix

Sn Celoyce ve tdsharun öncelikle emeğiniz için teşekkürler ben bir Access hayranıyım..Değerli katkılarınız sayesinde iyi şeyler öğreneceğimi düşünüyorum. Hiçbir eğitim almadan kendi kendime örnek programlardan yola çıkarak Access programları yaptım ve çalıştığım işyerinde kullanıyoruz. Ancak tam anlamıyla bir program olmadı çünkü kullanıcı yetkilendirmeyi tam başaramadım.. Sizin örneklerinizi inceledim... Tablolara ve raporlara kullanıcı olarak ulaşılıp değiştirilebiliyor. hatta Celoyce Beyin örneğinde tablodan değiştirilemez veriler bile değiştirilebiliyor.. Acces'in kendi içinde sihirbaz yardımızla bu işler yapılabiliyor ben tam anlamıyla yapamadım. Birde paket programlar gibi başlangiş sayfası ve sayfadaki butonlardan başka yere kullanıcılar giremesin ama admin olarak ben her yere ulaşabileyim istiyorum.. İlgilenirseniz kullandığım programları gönderebilirim.. Saygılar.
1 2 3