
Pada saat user mengedit data maka even On Dirty aktif dan nilai Me.Dirty menjadi True.
Private Sub Form_Dirty(Cancel As Integer) MsgBox "Anda mengedit Data" End SubKita dapat memanfaatkan event On Dirty dan variabel Me.Dirty untuk keperluan tertentu, misalnya memberitahu user bahwa data yang diedit belum di save.
Sebagai contoh pada saat user mengedit data kemudian menutup form kita dapat menggunakan kode berikut untuk memberitahu user bahwa data belum disave.
Private Sub Form_Unload(Cancel As Integer) If Me.Dirty = True Then Msgbox "Data belum di save !",vbExclamation Cancel = True Endif End SubAtau anda tidak ingin user mengedit data pada form, maka kode program pada event On Dirty dapat ditulis sebagai berikut:
Private Sub Form_Dirty(Cancel As Integer) MsgBox "Anda tidak boleh mengedit Data", vbExclamation Cancel = True End Sub
No comments:
Post a Comment