05-01-2021, 23:24
Herkese merhabalar. 2021 yılının ülkemiz, insanlarımız ve bütün dünya için sağlık, huzur, barış ve mutluluk getirmesini ve bu virüs belasını bir an önce defetmesini diliyorum.
Sorum şu. Ekte gönderdiğim veritabanı örneğinde Taruz hocamızın daha önce sitemize faydalanmamız için sunduğu yönetici araçlarından yola çıkarak veritabanını ilk açan kişinin yönetici yetkisinde olabilmesi için "Frm_SfrShrbaz" ekledim. Normalde veritabanında hiç bir kullanıcı kayıtlı değilken Frm_Acilis formu kapanınca Frm_Kullanici_Giris yerine Frm_SfrShrbaz açılıyor ve ilk kullanıcı Yönetici olarak kendini kaydediyor. Kullanıcılar da yetkilendirildiğinde açma yetkisi bulunmayan formları açmak istediğinde "Bu formu açma yetkiniz yoktur" diye bir mesaj çıkıyor. Çalışmalarım esnasında ben bu yetkilendirme modülünü çalıştırmadım ancak veritabanının hemen hemen sonuna geldiğim için örnek kullanıcıları da yetkilendirdim ve bazı formların altına da yazdım.
Ama hiç bir kullanıcı kayıtlı değilken veritabanını ilk açtığımda normal olarak Frm_Acilis'ten sonra Frm_SfrShrbaz gelmesi gerekirken Frm-Acilis'ten sonra "Bu formu açma yetkiniz yoktur" mesajı çıkıyor ben Tamam butonunu tıkladıktan sonra Frm_SfrShrbaz açılıyor ve normal işlemlere devam ediyorum. Daha önce Frm_Acilis'ten sonra "Bu formu açma yetkiniz yoktur" mesajının neden cıktığını çözemedim. Frm_Kullanici_Giris formunun Open özelliğinde yazılı olan kod çalışmıyor gibi geldi bana ama çözemedim. Yardıma ihtiyacım var. Teşekkür ederim.
Private Sub Form_Open(Cancel As Integer)
Dim KulSay As String
KulSay = DCount("*", "Tbl_Kullanici")
If KulSay = 0 Then
DoCmd.Close
DoCmd.OpenForm "Frm_SfrShrbaz"
Else
Etiket12.Visible = False
sifretipi.Visible = False
End If
End Sub
Sorum şu. Ekte gönderdiğim veritabanı örneğinde Taruz hocamızın daha önce sitemize faydalanmamız için sunduğu yönetici araçlarından yola çıkarak veritabanını ilk açan kişinin yönetici yetkisinde olabilmesi için "Frm_SfrShrbaz" ekledim. Normalde veritabanında hiç bir kullanıcı kayıtlı değilken Frm_Acilis formu kapanınca Frm_Kullanici_Giris yerine Frm_SfrShrbaz açılıyor ve ilk kullanıcı Yönetici olarak kendini kaydediyor. Kullanıcılar da yetkilendirildiğinde açma yetkisi bulunmayan formları açmak istediğinde "Bu formu açma yetkiniz yoktur" diye bir mesaj çıkıyor. Çalışmalarım esnasında ben bu yetkilendirme modülünü çalıştırmadım ancak veritabanının hemen hemen sonuna geldiğim için örnek kullanıcıları da yetkilendirdim ve bazı formların altına da yazdım.
Ama hiç bir kullanıcı kayıtlı değilken veritabanını ilk açtığımda normal olarak Frm_Acilis'ten sonra Frm_SfrShrbaz gelmesi gerekirken Frm-Acilis'ten sonra "Bu formu açma yetkiniz yoktur" mesajı çıkıyor ben Tamam butonunu tıkladıktan sonra Frm_SfrShrbaz açılıyor ve normal işlemlere devam ediyorum. Daha önce Frm_Acilis'ten sonra "Bu formu açma yetkiniz yoktur" mesajının neden cıktığını çözemedim. Frm_Kullanici_Giris formunun Open özelliğinde yazılı olan kod çalışmıyor gibi geldi bana ama çözemedim. Yardıma ihtiyacım var. Teşekkür ederim.
Private Sub Form_Open(Cancel As Integer)
Dim KulSay As String
KulSay = DCount("*", "Tbl_Kullanici")
If KulSay = 0 Then
DoCmd.Close
DoCmd.OpenForm "Frm_SfrShrbaz"
Else
Etiket12.Visible = False
sifretipi.Visible = False
End If
End Sub

