I am opening and adding a record in a form like this:
Private Sub cmdRecert_Click()
On Error GoTo Err_cmdRecert_Click
On Error GoTo Err_cmdRecert_Click
Dim stDocName As String
Dim intArgs
Dim stLinkCriteria As String
intArgs = Forms![Applicant Details].ApplicantID
stDocName = "Application Details"
If Not IsNull(intArgs) Then
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd, , intArgs
Else
MsgBox "You must fill in all values"
End If
Exit_cmdRecert_Click:
Exit Sub
Err_cmdRecert_Click:
ErrorLog Me.Name & "_Click", Err, Error
Resume Exit_cmdRecert_Click
End Sub
Dim intArgs
Dim stLinkCriteria As String
intArgs = Forms![Applicant Details].ApplicantID
stDocName = "Application Details"
If Not IsNull(intArgs) Then
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd, , intArgs
Else
MsgBox "You must fill in all values"
End If
Exit_cmdRecert_Click:
Exit Sub
Err_cmdRecert_Click:
ErrorLog Me.Name & "_Click", Err, Error
Resume Exit_cmdRecert_Click
End Sub
But I also need to pass in another parameter REcertFlag = -1 to the opening form. RecertFlag is on the form being opened "Applications Details" can it be done?
Thank you
Art Lorenzini
Sioux Falls, SD
__._,_.___
Posted by: dbalorenzini@yahoo.com
Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (1) |
Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.
SPONSORED LINKS
.
__,_._,___
Tidak ada komentar:
Posting Komentar