A.S.C Filtre, Grafik ve Raporlama Eklentisi

[FONKSiYON] Tüm Alan Kontrolü Ve Güncelle Uyarısı
#1
Saygı değer üstadlarım Yaşlı formunda kayıtlı kişilerden herhangi bir kişinin kaydı çağrılıp ekrana geldikten sonra tüm metin kutusu alanları üzerinden(yani tüm alanları kontrol edecek hangi alanda değişiklik yapılır ise "kaydı değiştirdiniz güncelleme yapmalısınız gibi bir uyarı verecek");  forum kapatılmadan uyarı verdirecek bir fonksiyona ihtiyaç duyulmaktadır.

Bu mümkün değil ise kayıt değişikliklerini hiçbir mesaj vermeden kaydı güncelleyen arka planda çalışan bir fonksiyon da olabilir.(Form kapatılmadan değişiklik anında çalışmalıdır.)

Örnek Vt ektedir.

Yardımcı olacak üstadlarıma şimdiden sonsuz teşekkürlerimi sunarım.



.rar   YAŞLI-ENGELLİ UYGULAMA.rar (Boyut: 202,01 KB / İndirilme: 4)



  Alıntı
Bu mesajı beğenenler:
#2
Bu konuyla ilgili Kaydet(Form da KAYDET butonuna basmadan cikma) eylemine ait ornekleri, ARAMA bolumunden listeleyebilirsiniz.


.rar   KontrolTusaBas.rar (Boyut: 32,11 KB / İndirilme: 5)
Iliskisiz form alan konrolu ile dugmeye basma sonunda, tabloya veri ekleme veya guncellemeyi ek'te ki ornek VT'nin da verilen yontemini kendi uygulamaniza tasiyabilirsiniz.



  Alıntı
Bu mesajı beğenenler:
#3
Selam
Ilgili formda bir degisken tanimlanip metin kutularinda degisiklik yada guncelleme oldugunda bu degiskene deger atanir ve bu degere gore form kapanisi kontrol edilebilir

Dim degisken as integer

Metin _kutusu guncellendiginde olay yordami
Degisken=true

Form_closed olay yordami
If degisken=true then
Msgbox "yapilacak uyarı" exit sub
Else
Formu kapat
End if

Vss.Gibi
Formda bir çok örnek olduğu gibi kullanıcı hataları için de bir takım önlemler alınmalı

Örneğin kullanıcı güncelleme den vazgeç mek isteyebilir bu durumu da göz ardı etmemek gerekli



  Alıntı
Bu mesajı beğenenler:
#4
(01-12-2019, 23:03)dsezgin demiş ki: Bu konuyla ilgili Kaydet(Form da KAYDET butonuna basmadan cikma) eylemine ait ornekleri, ARAMA bolumunden listeleyebilirsiniz.


Iliskisiz form alan konrolu ile dugmeye basma sonunda, tabloya veri ekleme veya guncellemeyi ek'te ki ornek VT'nin da verilen yontemini kendi uygulamaniza tasiyabilirsiniz.


Private Sub Fa_AfterUpdate()
Call Bak(Me.ActiveControl.Name)
End Sub
Private Sub Fa_Dirty(Cancel As Integer)
Eski = Me.ActiveControl.OldValue
End Sub
Private Sub Fb_AfterUpdate()
Call Bak(Me.ActiveControl.Name)
End Sub
Private Sub Fb_Dirty(Cancel As Integer)
Eski = Me.ActiveControl.OldValue
End Sub
Private Sub Fc_AfterUpdate()
Call Bak(Me.ActiveControl.Name)
End Sub
Private Sub Fc_Dirty(Cancel As Integer)
Eski = Me.ActiveControl.OldValue
End Sub

her bir alan için  ekteki koddaki gibi veri yokken ve güncelleme sonrası olayına veri aktarma işlemi oldukça kullanışsız gibi geldi bana benim uygulamamnda yaklaşık 66 ya yakın alan var.

Sezgin hocam Taruz hocanın BoşAlanKontrol fonksiyonu gibi bir fonksiyon ile ilk mesajdaki sorunu çözebiliriz diye düşünüyorum. Fakat bu konuda fonksiyon yazacak kadar bilgi sahibi değilim. Sevgili hocam bu konuda yardımınızı bekliyorum



  Alıntı
Bu mesajı beğenenler:
#5
(02-12-2019, 01:22)aydın3838 demiş ki: Selam
Ilgili formda bir degisken tanimlanip metin kutularinda degisiklik yada guncelleme oldugunda bu degiskene deger atanir ve bu degere gore form kapanisi kontrol edilebilir

Dim degisken as integer

Metin _kutusu guncellendiginde olay yordami
Degisken=true

Form_closed olay yordami
If degisken=true then
Msgbox "yapilacak uyarı" exit sub
Else
Formu kapat
End if

Vss.Gibi

Formda bir çok örnek olduğu gibi kullanıcı hataları için de bir takım önlemler alınmalı

Örneğin kullanıcı güncelleme den vazgeç mek isteyebilir bu durumu da göz ardı etmemek gerekli

Sezgin hocama yazdığım gibi aydın hocam sizede aynı şeyi yazıyorum. Taruz hocanın BoşAlanKontrol fonksiyonu gibi bir fonksiyon ile ilk mesajdaki sorunu çözebiliriz diye düşünüyorum. Fakat bu konuda fonksiyon yazacak kadar bilgi sahibi değilim. Sevgili hocam bu konuda yardımınızı bekliyorum



  Alıntı
Bu mesajı beğenenler:
#6
(02-12-2019, 14:13)Ahmet51 demiş ki:
(01-12-2019, 23:03)dsezgin demiş ki: Bu konuyla ilgili Kaydet(Form da KAYDET butonuna basmadan cikma) eylemine ait ornekleri, ARAMA bolumunden listeleyebilirsiniz.


Iliskisiz form alan konrolu ile dugmeye basma sonunda, tabloya veri ekleme veya guncellemeyi ek'te ki ornek VT'nin da verilen yontemini kendi uygulamaniza tasiyabilirsiniz.


Private Sub Fa_AfterUpdate()
Call Bak(Me.ActiveControl.Name)
End Sub
Private Sub Fa_Dirty(Cancel As Integer)
Eski = Me.ActiveControl.OldValue
End Sub
Private Sub Fb_AfterUpdate()
Call Bak(Me.ActiveControl.Name)
End Sub
Private Sub Fb_Dirty(Cancel As Integer)
Eski = Me.ActiveControl.OldValue
End Sub
Private Sub Fc_AfterUpdate()
Call Bak(Me.ActiveControl.Name)
End Sub
Private Sub Fc_Dirty(Cancel As Integer)
Eski = Me.ActiveControl.OldValue
End Sub

her bir alan için  ekteki koddaki gibi veri yokken ve güncelleme sonrası olayına veri aktarma işlemi oldukça kullanışsız gibi geldi bana benim uygulamamnda yaklaşık 66 ya yakın alan var.

Sezgin hocam Taruz hocanın BoşAlanKontrol fonksiyonu gibi bir fonksiyon ile ilk mesajdaki sorunu çözebiliriz diye düşünüyorum. Fakat bu konuda fonksiyon yazacak kadar bilgi sahibi değilim. Sevgili hocam bu konuda yardımınızı bekliyorum

Saygı değer üstadlarım şu konuya bir el atsanız.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Tabloda Alan Saydırma sefersanli 4 80 21-11-2019, 20:13
Son Mesaj: sefersanli
  [FONKSiYON] Ceza Tarihi Alan Kontrolü Ahmet51 10 196 30-09-2019, 15:29
Son Mesaj: Ahmet51
  SMS ya da MAİL UYARISI Overall 2 92 12-09-2019, 14:04
Son Mesaj: iscinar
access-sql-5 If Then Else Kullanımı ile Hesap Kontrolü gogoli01 3 174 09-09-2019, 15:22
Son Mesaj: gogoli01
  [FORM] Ana formdaki bir alan doldurulana kadar alt formlar gözükmesim edacan19 19 746 24-05-2019, 14:05
Son Mesaj: halily
  [VBA] İlişkisiz Form Üzerinde Filtrelenen Liste Kutusunun alanını Metin Kutusu ile Güncelle ask200075 4 239 29-04-2019, 11:49
Son Mesaj: ask200075
  [FORM] İnternet Adresinden Stok Ve Fiyat Kontrolü Yapma kokotuna 4 410 11-02-2019, 20:01
Son Mesaj: kokotuna
  [MAKRO]  ''açıklama ekle veri makrosu bulunamadı uyarısı'' sercann 11 567 26-01-2019, 00:13
Son Mesaj: sercann

Foruma Git:


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