This is the code i have but doesn't work....
Private Sub cmdnewuser_Click()
On Error GoTo Err_cmdnewuser_Click
Dim DocName As String
Dim LinkCriteria As String
DocName = "frmcomplaint"
DoCmd.OpenForm DocName, , , LinkCriteria
DoCmd.GoToRecord , , A_NEWREC...