Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
01/05/2018 12:54
Konu Sahibi
hey
Yorumlar
2
Okunma
364
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

hey

Aktif Üye
92224
he.... he....
 36
 12
 45
 24/09/2017
0
 Ankara
 Serbest
 Diğer
 28/04/2019,04:25
Çözüldü 
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]



ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 480
 12.053
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,13:11

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

hey

Aktif Üye
92224
he.... he....
 36
 12
 45
 24/09/2017
0
 Ankara
 Serbest
 Diğer
 28/04/2019,04:25
Çözüldü 
Hocam teşekkür ederim sorunum düzeldi.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Açılan Kutuda Verilerin Görünmesi m_demir 7 146 15/05/2019, 23:27
Son Yorum: haliliyas
Çözüldü Açılan Kutuda Verileri Sıralamak m_demir 2 98 10/05/2019, 12:08
Son Yorum: m_demir
Çözüldü Her Kutuda Otomatik Numarayı Yeniden Başlatma Yunus Bozkurt 3 302 30/03/2019, 23:03
Son Yorum: haliliyas
Çözüldü Liste Kutusu Yada Açılan Kutu Hakkında programmer67 6 246 26/03/2019, 15:21
Son Yorum: programmer67
Çözüldü Access 2010 Da Açılan Proje Access 2016 Da Açılmıyor.(Her İki Bilgisayarda 64 Bit) Oğuz Türkyılmaz 2 140 05/03/2019, 17:06
Son Yorum: haliliyas

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.