Coding Hapus Atau Delete

[saat 0]

sila betulkan......

Private Sub cmdHapus_Click()

'Buang data yang sedang dipapar

With Pesanan.Recordset

MsgBox "Awak mahu hapuskan rekod?", vbOKCancel, "Peringatan!!"

.Delete

'Gerakkan ke arah seterusnya supaya pengguna nampak data yang dibuang

Pesanan.Recordset.MoveNext

If Pesanan.Recordset.EOF Then

MsgBox "Rekod kosong.", vbInformation, "Tiada Rekod"

Pesanan.Recordset.MovePrevious

End If

End With

End Sub