Textbox Taki Değişikliği Algılama Kodu

Textbox Taki Değişikliği Algılama Kodu

4 Mayıs 2021 0 Yazar: ODEL

Aşağıdaki kod bloğunu kullanarak textboxta gerçekleşen değişiklikleri algılayabilir ve buna uygun istediklerinizi yapabilirsiniz.

 

                    

Public Degisti As Boolean 'Bu degisken textbox'ta 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