Opening a Form based on a cmboBox

[chingchanglang]

Hi, what I'm trying to do is probably very simple...but simple is relative! :D
I have a cmbo box on a form "[View All Topics]". It is populated with a query to show me all the Topics in my table where the primary key is "Topic_Number". I want to choose one, select "Search" btn, and then have the "Topic_Information" page display with it's results based on the Topic_Number. This is what I have in the "Search" button OnClick event. When it runs, the error is that it can not find the [Topic Information] form. It is not open yet, I know that is why. How can I open it (without it popping up) so that this code will find it? And is this code enough?


Private Sub btn_SearchTopic_Click()
On Error GoTo Err_btn_SearchTopic_Click
Dim Criteria As String
Dim MyRS As DAO.Recordset

' Find the record that matches the control
'load form2 to use its recordset, but don't show it
DoCmd.OpenTable ("[Topic Information]")


Set MyRS = Forms![Topic Information].RecordsetClone
Criteria = "Topic_Number= '" & Me!cmbo_topicnumber & "'"
MyRS.FindFirst Criteria

If Not MyRS.NoMatch Then
Forms![Topic Information].Bookmark = MyRS.Bookmark
End If

DoCmd.Close acForm, "[View All Topics]"

'show form 1 with the bookmarked record?
DoCmd.OpenForm [Topic Information]

Exit_btn_SearchTopic_Click:
Exit Sub

Err_btn_SearchTopic_Click:
MsgBox Err.Description
Resume Exit_btn_SearchTopic_Click

End Sub

[wlc04]

Private Sub btn_SearchTopic_Click()
On Error GoTo Err_btn_SearchTopic_Click
Dim Criteria As String
Dim MyRS As DAO.Recordset

' Find the record that matches the control
'load form2 to use its recordset, but don't show it
'DoCmd.OpenTable ("[Topic Information]")
DoCmd.OpenForm "Topic Information"
Forms![View All Topics].SetFocus
Forms![Topic Information].Visible = False

Set MyRS = Forms![Topic Information].RecordsetClone
Criteria = "Topic_Number= '" & Me!cmbo_topicnumber & "'"
MyRS.FindFirst Criteria

If Not MyRS.NoMatch Then
Forms![Topic Information].Bookmark = MyRS.Bookmark
End If

DoCmd.Close acForm, "[View All Topics]"

'show form 1 with the bookmarked record?
DoCmd.OpenForm [Topic Information]

Exit_btn_SearchTopic_Click:
Exit Sub

Err_btn_SearchTopic_Click:
MsgBox Err.Description
Resume Exit_btn_SearchTopic_Click

End Sub