(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