Dear Setia Bungsu,
Ok, saya akan mencoba menjawab pertanyaan
Untuk melakukan konfirmasi atas perubahan yang telah dilakukan anda
harus memonitor terlebih dahulu perubahan tersebut. Contohnya seperti
ini :
'saya asumsikan file anda disimpan dalam bentuk text
Dim OldNama As String
Dim OldAlamat As String
LocTextFile = "C:\test.txt"
Private Sub BukaData(ByVal LocTextFile As String)
Open LocTextFile For Input As #1 'Buka file
Line Input #1, OldNama 'Baca data baris pertama
Line Input #1, OldAlamat 'Baca data baris kedua
Close #1 'Tutup File file text
txtNama.Text = OldNama
txtAlamat.Text = OldAlamat
End Sub
Private Sub SimpanData(ByVal LocTextFile As String)
Open LocTextFile For Output As #1 'Buka file
Print #1, Trim(txtNama.Text) 'Simpan Baris Pertama
Print #1, Trim(txtAlamat.Text) 'Simpan Baris Kedua
End Sub
' Untuk Melakukan Pengecekan Apakah data tersebut mengalami perubahan
Private Sub Form1_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If txtNama.Text <> OldNama txtAlamat.Text = OldAlamat Then
Dim response As MsgBoxResult
response = MsgBox("Anda telah melakukan perubahan data." &
VbCrLf & "Apakah anda ingin Menyimpannya ?", vbQuestion + vbYesNoCancel)
If response = VbYes Then
' Simpan ssebelum keluar
SimpanData LocTextFile
ElseIf response =VbYes Then
' Batalkan Keluar dari Program
Cancel = True
End If
End If
End Sub
Semoga dengan sedikit kode tersebut dapat membantu anda.
Terima Kasih.
Salam,
Aiska Hendra
