+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kullanıcı Girişi (/konu-kullanici-girisi--84885.html)
Sayfalar:
1
2
Cvp: Kullanıcı Girişi - golf2000 - 15/12/2018
Sayın.haliliyas Hocam
Dediğiniz Gibi Tüm Kodları Dediğiniz Gibi "FRM_ANA" Geçerli Olduğunda Olayına Yazdım
Access Veritabanını açıp kapattım Tüm Kullanıcılar ile giriş yaptım Her Kullanıcıda da Butonlar Aktif Hale Geldi Olmadı
Teşekkürler
Cvp: Kullanıcı Girişi - berduş - 15/12/2018
FormCurrent olayına aşağıdaki kodları yazar mısınız?
sizin kodunuza ufak bir ekleme yaptım sadece
Private Sub Form_Current()
If Me.yetkigoster = "ADMİN" Then
Me.Etiket15.Caption = " Admin olarak oturum açtığınız için tam yetkiye sahipsiniz"
Me.FIRMA_SABITLERI.Enabled = True
Me.PERSONEL.Enabled = True
Me.FIYAT_DUZENLEME.Enabled = True
ElseIf Me.yetkigoster = "USER" Then
Me.FIRMA_SABITLERI.Enabled = False
Me.Etiket15.Caption = " User olarak oturum açtığınız için bazı formları açamazsınız"
Me.PERSONEL.Enabled = False
Me.FIYAT_DUZENLEME.Enabled = False
Else
Me.Etiket15.Caption = " Kısıtlı olarak oturum açtığınız için bazı formları açamazsınız"
Me.PERSONEL.Enabled = True
Me.FIRMA_SABITLERI.Enabled = True
Me.FIYAT_DUZENLEME.Enabled = False
Me.Komut10.Enabled = False
End If
End SubCvp: Kullanıcı Girişi - golf2000 - 15/12/2018
Sayın.haliliyas Hocam
Eline Koluna Sağlık Çok Teşekkür Ederim
Oldu Şimdi Çok Sağolun
Tekrar Tekrar Teşekkürler