VB 6 :Datacontrol >Delete

[Rajesh345]

i am just newbee in VB

>i cr8ed a project with Data control linked to MS access

>Everything is working fine but the delete Button
it giving me error if last record is deleted
> So i need 2 prevent the deletion of last access data
How i coded =


1)
Private Sub Command4_Click()
Data1.Recordset.Delete
End Sub

2)
Private Sub Command4_Click()
If Data1.Recordset.RecordCount >= 1 Then
Data1.Recordset.Delete
Data1.Refresh
End If
End Sub

3)
Private Sub Command4_Click()
data1.recordset.delete
if not data1.recordset.bof then
data1.recordset.moveprevious
elseif not data1.recordset.eof then
data1.recordset.movenext
else
msgbox"last Record"
end if
end sub

All these methods not working


Can any 1 pls tell me how to solve this problem .if possible with sample code

thanku vm

[abhijangda]

every thing runs fine friend nothing but what do you mean by deletion of last access data

[Rajesh345]

ty abhijangda in trying 2 help me . I got the solution from another website

How 2 code it

On Error GoTo Delete_Error

If MsgBox("Are you sure you want to delete this record?", _
vbQuestion + vbYesNo + vbDefaultButton2, _
"Confirm") = vbNo Then
Exit Sub
End If

'delete the current record
datAuthors.Recordset.Delete

'move to a valid record
cmdMoveNext_Click

Exit Sub

Delete_Error:
' This error will occur if you attempt to delete an author that is related to
' another table in the biblio.mdb database ...
MsgBox "This record cannot be deleted. Error code = " _
& Err.Number & vbCrLf & Err.Description, _
vbCritical, "Cannot Delete"




link of that site



http://www.vb6.us/tutorials/database-access-vb6-data-control-tutorial




Thank u