pass parameters to form being opened

[lhartmann]

I am using the following code to click on a field in Activities_Subform to open the Task_Subform with the related records to the particular field in Activities_Subform.

the form opens ok, but only if I put in two parameters (objID and actID), can anyone tell me what the code is to eliminate having to put in the parameters each time.

Private Sub ActivityID_Click()
Dim objID As Integer
Dim actID As Integer

objID = ObjectiveID.Value
actID = ActivityID.Value

DoCmd.OpenForm "Tasks_Subform", , , ""


End Sub

[JKing]

I think all you need to do is add a where statement to your openform command
Give this a try:

Private Sub ActivityID_Click()
Dim objID As Integer
Dim actID As Integer
Dim strLinkCriteria
 
objID = ObjectiveID.Value
actID = ActivityID.Value
strLinkCriteria = "[objID] = " + objID + " AND [actID] = " + actID
 
DoCmd.OpenForm "Tasks_Subform", , , strLinkCriteria
End Sub
 

[lhartmann]

Hi

Thanks, I put in that code and I get a runtime error 13 (Type Mismatch)

Any solutions??

[JKing]

Yes sorry you just need to add "As String" to the line "Dim strLinkCriteria"
That was my mistake sorry about that.

[lhartmann]

thats ok, but I added As String and I still get the same error and it is referring to this line

strLinkCriteria = "[objID] = " + objID + " AND [actID] = " + actID

[JKing]

Are objID and actID both number data types? Or are they text?

[lhartmann]

they are both number types

[JKing]

Ok try this:

strLinkCriteria = "[objID] = " & objID & " AND [actID] = " & actID

[lhartmann]

thanks

I do not get the error anymore, but I am still asked to put in the objID and actID parameters, for some reason it is not passing the values

[JKing]

Is the subform based off a query that has parameters?

[JKing]

Also check to make sure that any renaming done to tables / queries that the form is based off have been also made on the form. This can cause the form to prompt you for parameters because it is still using a field name that no longer exists in the table /query.

[lhartmann]

the Task_Subform is based on a query that does have criteria

ObjectiveID criteria is[objID]
ActivityID criteria is [actID]

[JKing]

If you remove the criteria from the query it will stop the prompt for parameters.

You will need to make another small modification to the strLinkCriteria now. I had previously thought objID and actID were the field names. It's a simple change and should be as follows.

strLinkCriteria = "[ObjectiveID] = " & objID & " AND [ActivityID] = " & actID

[lhartmann]

Thanks sooooooooo much for your help...... it worked perfectly :>)