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: 19)



  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: 17)
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
  Tablo Alan Kıyaslama magggmar 1 31 01-07-2020, 14:44
Son Mesaj: magggmar
  [SORGU] Tabloda Bir Alan Için Sorgu Oluşturmaya çalışıyorum. Ertansay 1 66 26-04-2020, 18:57
Son Mesaj: onur_can
  Kaydetme Kontrolü Ve Kaydedildiyse Bilgi Mesajı Görüntülenmesi mgunes 4 219 10-03-2020, 09:53
Son Mesaj: mgunes
  Alan Boş Olduğu Zaman Hata Veren Vba Kodu Satir 7 182 13-02-2020, 16:58
Son Mesaj: Satir
  [FONKSiYON] Access Yada Excel Tablosunda Yer Alan Verileri Xml Ile Entegre Etmek cuneyt_emir 4 260 11-02-2020, 15:31
Son Mesaj: onur_can
  Alan Boş Ise Not Yazma adnan 2 133 29-01-2020, 12:50
Son Mesaj: adnan
  [SORGU] Dinamik Rapor Boş Alan Kayıt Getirme Sorunu Ahmet51 14 436 12-12-2019, 19:55
Son Mesaj: Ahmet51
  Tabloda Alan Saydırma sefersanli 4 236 21-11-2019, 20:13
Son Mesaj: sefersanli

Foruma Git:


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