(Vallahi yalan son olması mümkün değil)Hocalarım şimdi verdiğiniz örnekte
Tblsifrede Adı - Şifre - ve Yetki hanesi var
Yetki = Admin - Users var
Ben buradaki yetkiyi = Admin - Users - Only Read olarak çoğaltak istediğimde aşağıdaki kodu nasıl değiştirebilirim? Çünkü yetki usersa şunları yap değilse hepsi açık gibi birşey olmuyor mu burada?
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 = "User" Then
MsgBox "** DİKKAT ** SİZ..Bazı işlemlerde Yetkili Değilsiniz.***", vbInformation, "DİKKAT"
Form.AllowDeletions = False
Form.AllowEdits = True
Form.Recalc
Me.Durum.Enabled = False
Me.MSFFirma_Adı.Visible = False
Me.yenkayıt.Enabled = True
Else
Form.AllowDeletions = True
Form.AllowEdits = True
Form.Recalc
Me.Durum.Enabled = True
Me.MSFFirma_Adı.Enabled = True
Me.yenkayıt.Enabled = True
End If
End Sub
Böyle birşey denedim ama olmadı ya
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 = "User" Then
MsgBox "** DİKKAT ** SİZ..Bazı işlemlerde Yetkili Değilsiniz.***", vbInformation, "DİKKAT"
Form.AllowDeletions = False
Form.AllowEdits = True
Form.Recalc
Me.Durum.Enabled = False
Me.MSFFirma_Adı.Visible = False
Me.yenkayıt.Enabled = True
If Yetki = "ReadOnly" Then
MsgBox "** DİKKAT ** SİZ..Read Onlysiniz..***", vbInformation, "DİKKAT"
Form.AllowDeletions = False
Form.AllowEdits = True
Form.Recalc
Me.Durum.Enabled = False
Me.MSFFirma_Adı.Visible = False
Me.yenkayıt.Enabled = False
Else
Form.AllowDeletions = True
Form.AllowEdits = True
Form.Recalc
Me.Durum.Enabled = True
Me.MSFFirma_Adı.Enabled = True
Me.yenkayıt.Enabled = True
End If
End If
End Sub
