Event On Dirty pada Form Access

Jika anda mengedit data pada form yang di bound pada tabel atau query dan property Record Selector form anda diset ke Yes maka anda dapat mengetahui jika user sedang mengedit data dengan munculnya gambar pensil pada Record Selector.


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 Sub

Kita 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 Sub

Atau 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

Artikel terkait dengan kategori ini: