Thank you all for your suggestions. I have taken your advice June7 and made this into a button (much smarter). I have used the following code behind it to get it to do the "soft delete" as NTC called it.
Code:
Public Sub Dlt(Form)Dim Dltbtn As Integer
Dltbtn = MsgBox("Are you sure you want to delete the curernt record?", vbYesNo Or vbQuestion, "DELETE?")
If Dltbtn = vbYes Then
MsgBox "Your record has been deleted", vbOKOnly Or vbInformation, "DELETED"
Form.optDeleted.Value = 1
DoCmd.GoToRecord , , acNewRec
ElseIf Dltbtn = vbNo Then
Form.optDeleted.Value = 0
End If
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand (acCmdRefresh)
End Sub
However if I remove the above code and only use this
Code:
Private Sub cmdDltRec_Click() DoCmd.GoToRecord , , acNewRec
tboFirstName.SetFocus
End Sub
I get the same results.
Missinglinq, next I tried your idea and you're correct. If I use the native record selector and select go to new record. lets say 45. as soon as I begin typing in the first textbox I get a message that says I'm about to delete 1 record. If I click no on the msgbox it returns me to record 44. If I click yes it returns me to an empty record number 44.
This form is bound to my table, Employees. I have tried switching "Data Entry" in the properties section to both Yes and no with no success. I have also created a new DB and imported all my work with no luck.
This problem is driving me crazy. Any help is greatly appreciated.