nodeclick not changing subform
I want to create an explorer type interface. The user
clicks on the node on the left and the window on the right
responds. I am having real problems getting the window to
the right to change. I will like for a click on each node
displays a different subform. i.e click on the course node
on the left displays the course subform on the right. Does
anyone know how to solve this problem? Many thanks in
advance.
Private Sub tvwDB_NodeClick(ByVal Node As Object)
Dim CourseForm As Object
strNodeKey = Node.Key
Select Case strNodeKey
Case "Course_main"
Call Coursemain
Forms!
COURSE_ENTRY_FORM_base.COURSE_sub.Form.Visible = True
Case "Enrolment1"
Call Enrolmentmain
End Select
End Sub