Açılan Kutuda Kullanıcının Veri Değiştirmesini Engelleme

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