Opening Forms

[Kath via AccessMonster.com]

Hi all,
I am working on an application that is collecting indicators. The
relationship is PI Entry ID & Site ID & Time Period of Entry = Unique Key.
For each indicator, they will open a form and fill out specific information
on that indicator. I have a function that is supposed to be linking the
forms but is not working. Can anyone help me in what may be the issue?
Thanks..here is the code used.
-----------------------------------------
When they select the indicator via a drop down list:
-----------------------------------------
Private Sub openForm()
Dim pstrSQL As String
Dim pobjRS As ADODB.Recordset

Select Case Me.cboPI_ID
Case "ADM-1"
Call openTheForm("frmADM_1", "tblADM_1")
Case "CA-4"
Call openTheForm("frmCA_4", "tblCA_4")
End Select
End Sub

 

[kathieglassel via AccessMonster.com]

Also: the indicator forms all have this on the load event.

Private Sub Form_Load()
Dim pstrArgs As String
Dim paryArgs() As String

If Me.AllowAdditions And Me.AllowEdits Then
pstrArgs = Me.OpenArgs
paryArgs = Split(pstrArgs, ",")

Me.PI_E_ID = paryArgs(0)
Me.PI_SITE_ID = paryArgs(1)
End If
End Sub