Kamis, 01 November 2018

[MS_AccessPros] Passing multiple parameters

 

I am opening and adding a record in a form like this:

Private Sub 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

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