01/05/2018, 12:54
FsYetkili Alt Formda SyKayitTur ve SyDurum alanlarına veri girişini kullanıcaya göre değiştirmesini engelleyebilirmiyiz. Her Kullanıcı kendi verisini değiştirsin.
![[Resim: do.php?imgf=15251683021231.jpg]](https://accesstr.net/resim/do.php?imgf=15251683021231.jpg)
01/05/2018, 13:12
Private Sub SyDurum_AfterUpdate()
If Me.SyAdi <> Dlookup ("kulanici_adi", "TKullanicilar", "kul_id=AktifKullanici()") Then
MsgBox ("Bu Kaydı Değiştirme Yetkiniz Bulunmamaktadır .....")
Me.Undo
Exit Sub
Else
Select Case Right(SyDurum, 0)
Case "_rp"
DoCmd.OpenReport Me.SyDurum, acViewReport
Case "frm"
DoCmd.OpenForm Me.SyDurum
End Select
End If
End Sub
Private Sub SyKayitTur_AfterUpdate()
If Me.SyAdi <> Dlookup ("kulanici_adi", "TKullanicilar", "kul_id=AktifKullanici()") Then
MsgBox ("Bu Kaydı Değiştirme Yetkiniz Bulunmamaktadır .....")
Me.Undo
End If
End Sub01/05/2018, 15:00
Hocam teşekkür ederim sorunum düzeldi.