Open Form Button Click event

A|ex

Registered User.
Local time
Today, 08:11
Joined
Jul 11, 2004
Messages
90
Ive created a button using the wizard here is the VBA code for click event:

Private Sub btnOpenSales_Click()
On Error GoTo Err_btnOpenSales_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Sales"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_btnOpenSales_Click:
Exit Sub

Err_btnOpenSales_Click:
MsgBox Err.Description
Resume Exit_btnOpenSales_Click

End Sub

I want it to open the form Sales but open it on a new record so your ready to enter data. I was wondering what i need to do to change it to open sales on a NEW record?

Cheers
 
Private Sub btnOpenSales_Click()
On Error GoTo Err_btnOpenSales_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Sales"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acNewRec

Exit_btnOpenSales_Click:
Exit Sub

Err_btnOpenSales_Click:
MsgBox Err.Description
Resume Exit_btnOpenSales_Click

End Sub


???
Ken
 

Users who are viewing this thread

Back
Top Bottom