Question Could someone check this for me please?

[shabbaranks]

Youve got a one to many on the UserNames and UserGroups this is a many to many. Ive got this at the mo

Also I was feeling brave and went to do some code but Ive obviously written it wrong. Can you spot any mistakes?

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

shabba!