Skip to main content

AccessTr.neT


Yetkilendirmeler ile İlgili

Yetkilendirmeler ile İlgili

Çözüldü #13
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...
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
Çözüldü #14
(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ıyorImg-cray
Kullanıcı Adı: Admin
Şifre: MORPHEUS
.rar planlama_son_2003.rar (Dosya Boyutu: 748,99 KB | İndirme Sayısı: 22)
Son Düzenleme: 12/02/2009, 11:20, Düzenleyen: Morphe.
Cevapla
Çözüldü #15
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?
Cevapla
Çözüldü #16
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.
Cevapla
Çözüldü #17
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.
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task