[internetadami]

Text kutusunda olan degisikligin farkedilmesi.
'Amaç kullaniciyi yaptigi degisiklikler konusunda programi kapatmadan uyarmaktir.
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.
'Bunu sadece buradaki If - End If blogu arasina yazin.
End If
End If
End Sub