Syntax Edit
Syntax ini berfungsi untuk mengedit data dalam form,
melakukan pengeditan anda harus memanggil data tersubut dengan mencari data
tersebut. Setelah data yang anda panggil keluar baru klik tombol Edit dan
letakan kursor dimana akan anda edit. Setelah proses edit selesai dan anda ingin
menyimpan data anda yang baru anda edit, klik tombol edit kembali.
Ketikan Syntax sebagai berikut :
Private Sub EDIT_Click()
With DATA_KAMAR
.Recordset.EDIT
.Recordset.Fields!NO_KAMAR = Text1.Text
.Recordset.Fields!RUANG = Text2.Text
.Recordset.Fields!JENIS_KAMAR = Combo1.Text
.Recordset.Fields!FASILITAS1 = Text3.Text
.Recordset.Fields!FASILITAS2 = Text4.Text
.Recordset.Fields!FASILITAS3 = Text5.Text
.Recordset.Fields!TARIF = Text6.Text
.Recordset.Update
End With
End Sub
Tidak ada komentar:
Posting Komentar