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 Sub
Açılan Kutuda Kullanıcının Veri Değiştirmesini Engelleme
Bu Konudaki Yorumlar |
Açılan Kutuda Kullanıcının Veri Değiştirmesini Engelleme - Yazar: hey - 01/05/2018, 12:54
Cvp: Açılan Kutuda Kullanıcının Veri Değiştirmesini Engelleme - Yazar: ozanakkaya - 01/05/2018, 13:12
Cvp: Açılan Kutuda Kullanıcının Veri Değiştirmesini Engelleme - Yazar: hey - 01/05/2018, 15:00
|
Konuyu Okuyanlar: 1 Ziyaretçi