New Record.....

[Rogue Programme]

I want to be able to open my main form with a command button that will automatically go to new record rather than record number 1.

Can someone help?

 

[Rogue Programme]

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
Forms![frmcomplaint]![ClaimNo].SetFocus

Exit_cmdnewuser_Click:
Exit Sub

Err_cmdnewuser_Click:
MsgBox Err.Description
Resume Exit_cmdnewuser_Click

End Sub

 

[edtab]

Try:

DoCmd.GoToRecord , , acNewRec

 

[gemma-the-husky]

do you only want new records in your form, if so just open it in append mode, not browse mode.