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.



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

Bu konuyla ilgili Kaydet(Form da KAYDET butonuna basmadan cikma) eylemine ait ornekleri, ARAMA bolumunden listeleyebilirsiniz.


  KontrolTusaBas.rar (Boyut: 32,11 KB / İndirilme: 100)
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.

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

(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

(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

(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.