Text Kutusundaki Değişiklikleri Farketme - Bilişim

Text Kutusundaki Değişiklikleri Farketme

Text Kutusundaki Değişiklikleri Farketme

Amaç kullaniciyi yaptigi degisiklikler konusunda programi kapatmadan uyarmaktir.

Public Degisti As Boolean Bu degisken textboxta herhangi bir degisiklik olup olmadigini tutar.
Private Sub Text1_Change()
Degisti= True
End SubPrivate

Sub Form_Unload(Cancel As Boolean)
If Degisti Then
If Msgbox("Degisiklikler kaydedilsin mi?", vbYesNo, "Kayit") = vbYes Then
Buraya kaydetme ile ilgili kodlar gelecek
Degisti = False
Degisti degerini tekrar False yap ki bir sonraki degisiklikte tekrar çalisabilsin. (Bu Önemli!!!!)
Bunu sadece buradaki If - End If blogu arasina yaz
End If
End If
End Sub

Paylaş

Etiketler: Text Kutusundaki Değişiklikleri Farketme

beykozlu

Üyemiz, Akrep Burcu 35 Yaşında, Mesleği: İLETİŞİM-TEKNOLOJİ,

Yorumlar
Yorum Yaz
Güvenlik Kodu