Computer Forums - View Single Post - Trouble deleting the 1st record in a recordset

DKasler · 10-14-2004, 10:50 AM

Hey, im trying to delete the 1st record of a record set, and for some reason its not working... It works for the last record and any middle records, just not the 1st

Code:
Private Sub Command4_Click()
Dim strMsg1
strMsg1 = "Are you sure you want to Delete the record with Vid '" & Text8.Text & "' record?"
If MsgBox(strMsg1, vbQuestion + vbYesNo + vbDefaultButton2, "Exit?") = vbYes Then

Data3.Recordset.FindNext "vid LIKE '*" & Text8.Text & "*'"
Data3.Recordset.Delete
Data3.Recordset.MoveNext
End Sub

Any thoughts?

10-14-2004, 10:50 AM	#1 (permalink)
DKasler Newb Techie Join Date: Mar 2004 Posts: 36	Trouble deleting the 1st record in a recordset Hey, im trying to delete the 1st record of a record set, and for some reason its not working... It works for the last record and any middle records, just not the 1st Code: Private Sub Command4_Click() Dim strMsg1 strMsg1 = "Are you sure you want to Delete the record with Vid '" & Text8.Text & "' record?" If MsgBox(strMsg1, vbQuestion + vbYesNo + vbDefaultButton2, "Exit?") = vbYes Then Data3.Recordset.FindNext "vid LIKE '" & Text8.Text & "'" Data3.Recordset.Delete Data3.Recordset.MoveNext End Sub Any thoughts?