Quick n Easy

[yessir]

I have this code for a button, what to I need to add to make it open the form to a new record?

Private Sub cmd_Open_Add_Client_Form_Click()
On Error GoTo Err_cmd_Open_Add_Client_Form_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmClient"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , 2
    
Exit_cmd_Open_Add_Client_Form_Click:
    Exit Sub

Err_cmd_Open_Add_Client_Form_Click:
    MsgBox Err.Description
    Resume Exit_cmd_Open_Add_Client_Form_Click
    
End Sub

 

[Milothicus]

This should do it.

I have this code for a button, what to I need to add to make it open the form to a new record?

Private Sub cmd_Open_Add_Client_Form_Click()
On Error GoTo Err_cmd_Open_Add_Client_Form_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmClient"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , 2
    docmd.GoToRecord ,,acNewRec
Exit_cmd_Open_Add_Client_Form_Click:
    Exit Sub

Err_cmd_Open_Add_Client_Form_Click:
    MsgBox Err.Description
    Resume Exit_cmd_Open_Add_Client_Form_Click
    
End Sub