Mismatch error opening form from code 1

[tigersden]

Hi All,
I am unable to get the following code to open the selected form.

Private Sub cmdOpenSelected_Click()
Dim stDocName As String
Dim stLinkCriteria As String

On Error GoTo Err_cmdOpenSelected_Click

Select Case fraChooseForm.Value
Case Is = 1
stDocName = "frmRisk#1"
Case Is = 2
stDocName = "frmUpdateReviewDates"
End Select

DoCmd.OpenForm stDocName, acNormal, , , stLinkCriteria
...........Rest Of error trapping...........
End sub

 

[PHV]

DoCmd.OpenForm stDocName, acNormal, , stLinkCriteria

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[tigersden]

Many thanks PHV!!
Maybe one day I will get the hang of Access.
Thanks
Tim