A.S.C Filtre, Grafik ve Raporlama Eklentisi

[FONKSiYON] Veritabanı şifreleme Işlemleri
#25
Hocam çok teşekkür ederim. Son hali süper olmuş. End if lerin birinin yerini değiştirdim zira SysForce=0 olsa da form kapanıyordu ayrıca sayacı geri saydırmak için kodu aşağıdaki gibi değiştirdim.

Visual Basic
  1. Function UygulamaCikis(Frm As Form)
  2. Dim Defi As Variant
  3. Defi = Nz(DLookup("[SysForce]", "MSysForce"), 0): Frm.TimerInterval = IIf(Defi = 3000, 0, 1000)
  4. If Defi = -1 Then
  5.     If Frm.Name = "FKullaniciGiris" Then
  6.         Frm.Controls("Etiket24").Caption = "VT Bakımı yapılacaktır. " & vbNewLine & Sefer + 30 & " Sn sonra kapatılacak."
  7.     Else
  8.         Frm.Caption = "VT Bakımı yapılacaktır. " & Sefer + 30 & " Sn sonra kapatılacak."
  9.     End If
  10.  
  11. Sefer = Sefer - 1
  12. If Sefer = -30 Then
  13.     Application.Quit acQuitSaveAll
  14. End If
  15.  
  16. End If
  17.  
  18. End Function



30 sn den geri sayarak ekran kapanıyor. Diğer form ekranlarında da aynı sayaç işliyor. Süre istenilen değere ayarlanabilir. Uygulamanızın en güzel tarafı UserID ile sadece yöneticinin kullanımına açık olması. Süper olmuş elinize sağlık.


Eklenti Dosyaları
.rar   ekrem_Prg_Dsz.rar (Boyut: 241,88 KB / İndirilme: 8)



  Alıntı
Bu mesajı beğenenler:
#26
Sn Ekrem;
Eklenen ornegi inceledim, MSysForce tablosunu DsysForce olarak degistirmistim, Kodlarin bir yerinde degistirilmedigi icin eylem eksikligi olmus. Kullanicilar arasinda veri isleme haricinde kullanicilarin Misafir olarak form nesnelerine salt okunur olarak gorulmesini ve diger kullanicilarin veri isleme kontrolu de yetki alani ile eylem yuklenebilir.

Mesaj 22'yi güncelledim.



  Alıntı
Bu mesajı beğenenler:
#27
Salt okunur olarak misafir kullanıcının uygulamayı kullanabilmesini eklemişsiniz. Daha önce aklıma gelmemişti, çok iyi düşünmüşsünüz. Tekrar teşekkürler.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Veritabanı Tablolar arası alan değiştirme kurt1981 3 1.360 25-01-2021, 14:27
Son Mesaj: lemoncher2
access-sql-17 [TABLO] Veritabanı Performansım Var Hastane Veritabanı Tasarımı Yapmam Gerek aydyass 1 310 09-12-2020, 16:06
Son Mesaj: alperalper
  Fabrika Veritabanı Hakkında canerdurmaz 0 262 03-12-2020, 00:17
Son Mesaj: canerdurmaz
  Aşı Sistemleri Veritabanı Nasıl Yapılır Lütfen Yardım esmaaltinsu 3 410 11-05-2020, 07:58
Son Mesaj: onur_can
  Tüm Kargo şirketlerinin Adres Telefon Güncel Veritabanı markup 1 463 05-03-2020, 22:58
Son Mesaj: onur_can
  Access Formdaki Işlemleri Kaydetme gunalp26 2 246 25-02-2020, 10:04
Son Mesaj: gunalp26
  [TABLO] Askubuntu Veritabanı Modellemesi holy 1 462 04-11-2019, 14:58
Son Mesaj: dsezgin
access-sql-18 [VBA] Veritabanı Altyapısı Hk. heyijet 1 400 15-10-2019, 00:10
Son Mesaj: Taruz

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi