I am having a problem passing an argument to an Access 2000 (DAO) procedure named ?Sub CreateActiveWOA(strTaskID As String)?.
My procedure is called from the click event on an ?OK? button named ?cmdOK? on a form named ?AMDT? (for Active Maintenance Department Tasks). The click event reads as follows:
Private Sub cmdOK_Click()
On Error GoTo Err_cmdOK_Click
‘EXECUTE THE APPROPRIATE PROCEDURE FOR THE USER SELECTED OPERATION.
Select Case dmdtTaskType
Case “WOA”
Call CreateActiveWOA(Forms!AMDT.dmdtPK)
Case “WOB”
Call CreateActiveWOB(Forms!AMDT.dmdtPK)
Case “WON”
Call CreateActiveWON(Forms!AMDT.dmdtPK)
Case “WRA”
Call CreateActiveWRA(Forms!AMDT.dmdtPK)
Case “WRB”
Call CreateActiveWRB(Forms!AMDT.dmdtPK)
Case “WRN”
Call CreateActiveWRN(Forms!AMDT.dmdtPK)
Case Else
MsgBox “You MUST select a Task Type and load its Posting data before activation.”
dmdtTaskType.SetFocus
End Select
Exit_cmdOK_Click:
Exit Sub
Err_cmdOK_Click:
MsgBox Err.Description
Resume Exit_cmdOK_Click
End Sub
dmdtPK is a Combo box on AMDT where available Primary Key values from a WOA Table (for Work Orders, Automotive) are selected. The first field on AMDT is dmdtTaskType where the user selects on of the six options specified within my select case statement. The first part of my procedure reads as follows: