Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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]
.rar 30.04.2018.rar (Dosya Boyutu: 531,91 KB | İndirme Sayısı: 3)
Cevapla
#2
Visual Basic Code
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
Cevapla
Çözüldü #3
Hocam teşekkür ederim sorunum düzeldi.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task