Could someone explain why this code isnt working please?

[shabbaranks]

As the title suggests, I had a go at writing some VBA but all I get is errors. Obviously Im oding something wrong but Google wont help me out so I was wondering if someone here could please?

Private Sub DeleteRecord_Click()
If Me.TimesheetTableSubform.Form = "" Then
MsgBox "You have no records to delete"
Else
Me.TimesheetTableSubform.Form.Recordset.Delete
Me.TimesheetTableSubform.Form.Recordset.MoveNext
End Sub

Thanks

[orange]

What exactly are you trying to do?
Can you post an mdb version of your database -- remove anything confidential?

I have Acc2003 so can't open 2007 or 2010 accdb.

I think you need to check the recordcount along these lines

Me.TimesheetTableSubform.Form.Recordset.RecordCoun t

[shabbaranks]

Im trying to check if the subform has any entries before it attempts to delete a row from the subform. I think Im making a bit of a lash up on this cant attach 2003 version as Im using 2007 functions.

[orange]

You could try putting a debug statement into your code and step through it.

Debug.print Me.TimesheetTableSubform.Form.Recordset.RecordCoun t

Put this line a first line in your DeleteRecord_Click proc
Make this a breakpoint
Run your procedure, use F8 to step thru and see what the count is.

[shabbaranks]

I get a compile error block if without end if :S

[orange]

Post the procedure code.

[shabbaranks]

I think I get it but I dont know what needs to go in place

Private Sub DeleteRecord_Click()
If Me.TimesheetTableSubform.Form.Recordset = "" Then
MsgBox "You have no records to delete"
Else if Me.TimesheetTableSubform.'here
Me.TimesheetTableSubform.Form.Recordset.Delete
Me.TimesheetTableSubform.Form.Recordset.MoveNext
End Sub

'here (This is where I think I need to tell it that if there is something there then....) But I dont know what needs to go there

[orange]

Private Sub DeleteRecord_Click()
Debug.print Me.TimesheetTableSubform.Form.Recordset.RecordCoun t
If Me.TimesheetTableSubform.Form = "" Then
MsgBox "You have no records to delete"
Else
Me.TimesheetTableSubform.Form.Recordset.Delete
Me.TimesheetTableSubform.Form.Recordset.MoveNext
End Sub


For some reason, the editor is sticking a blank before the final t in RecordCount. There should be no space before the t.