04-03-2014, 21:58
Hocam bahsettiğiniz kodlar şu şekilde VT de
'Şartlara Göre Formu Açalım..
If ekleme = 0 Then frm.AllowAdditions = False
If duzenleme = 0 Then frm.AllowEdits = False
If silme = 0 Then frm.AllowDeletions = False
If gorme = 0 Then
MsgBox "Bu formu açma yetkiniz yok! ", vbInformation, "Taruz 2012"
DoCmd.Close acForm, formadi
End If
If DCount("*", "TNesneIzinleri", _
"nesne = '" & formadi & _
"' AND grup = " & kllnc) > 0 Then
If Ngorme = -1 Then
MsgBox "Bu formu açma yetkiniz yok! ", vbInformation, "Taruz 2012"
DoCmd.Close acForm, formadi
End If
If Nekleme = -1 Then frm.AllowAdditions = False
If Nduzenleme = -1 Then frm.AllowEdits = False
If Nsilme = -1 Then frm.AllowDeletions = False
End If
dediğiniz gibi kısıtlama kodları var ama kod bilgim çok fazla olmadığı için hatayı veya düzeltme yolunu bulamadım, bu yüzden konu açtım özür dilerim,
saygılarımla.
'Şartlara Göre Formu Açalım..
If ekleme = 0 Then frm.AllowAdditions = False
If duzenleme = 0 Then frm.AllowEdits = False
If silme = 0 Then frm.AllowDeletions = False
If gorme = 0 Then
MsgBox "Bu formu açma yetkiniz yok! ", vbInformation, "Taruz 2012"
DoCmd.Close acForm, formadi
End If
If DCount("*", "TNesneIzinleri", _
"nesne = '" & formadi & _
"' AND grup = " & kllnc) > 0 Then
If Ngorme = -1 Then
MsgBox "Bu formu açma yetkiniz yok! ", vbInformation, "Taruz 2012"
DoCmd.Close acForm, formadi
End If
If Nekleme = -1 Then frm.AllowAdditions = False
If Nduzenleme = -1 Then frm.AllowEdits = False
If Nsilme = -1 Then frm.AllowDeletions = False
End If
dediğiniz gibi kısıtlama kodları var ama kod bilgim çok fazla olmadığı için hatayı veya düzeltme yolunu bulamadım, bu yüzden konu açtım özür dilerim,
saygılarımla.

