Delete Last Record in a Table

[nickg96]

Hi,

I'm using MS Access 2000.

Can someone please give me the VBA Code to Delete the Last Record in a Table?

Thanks for your help,

Nick

 

[origapizni]

This should work:

Sub test_delete()

Set db = CurrentDb()
strRstName = "TestTable" 'your table name goes here
Set rst = db.OpenRecordset(strRstName)

With rst
If .RecordCount > 0 Then
.MoveLast
.Delete
End If
End With

rst.Close
Set rst = Nothing
Set db = Nothing
End Sub