AccessTr.neT
Açılan Kutuda Kullanıcının Veri Değiştirmesini Engelleme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Açılan Kutuda Kullanıcının Veri Değiştirmesini Engelleme (/konu-acilan-kutuda-kullanicinin-veri-degistirmesini-engelleme.html)

Açılan Kutuda Kullanıcının Veri Değiştirmesini Engelleme - hey - 01/05/2018

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]

Cvp: Açılan Kutuda Kullanıcının Veri Değiştirmesini Engelleme - ozanakkaya - 01/05/2018 

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


Cvp: Açılan Kutuda Kullanıcının Veri Değiştirmesini Engelleme - hey - 01/05/2018

Hocam teşekkür ederim sorunum düzeldi.