Article ID: 172167
Article Last Modified on 9/25/2003
APPLIES TO
- Microsoft Office 97 Developer Edition
This article was previously published under Q172167
Moderate: Requires basic macro, coding, and interoperability skills.
SYMPTOMS
When you paste the sample code from the NodeClick event into a form's class module and then compile it, you may receive the following error message:
This article assumes that you are familiar with Visual Basic for Applications and with creating Microsoft Access applications using the programming tools provided with Microsoft Access. For more information about Visual Basic for Applications, please refer to the "Building Applications with Microsoft Access 97" manual.
CAUSE
The code example contains the following procedure:
Private Sub TreeView1_NodeClick(ByVal Node As Node) Form1.Caption = "Index = " & Node.Index & " Text:" & Node.Text End Sub
The data type of the argument that is passed to this procedure should be Object instead of Node. The subroutine also sets the Caption property of the undefined variable Form1.
RESOLUTION
Edit the TreeView1_NodeClick procedure so that it reads as follows:
Private Sub TreeView1_NodeClick(ByVal Node As Object) Me.Caption = "Index = " & Node.Index & " Text:" & Node.Text End Sub
MORE INFORMATION
Steps to Reproduce Behavior
- Start Microsoft Access and open the sample database Northwind.mdb.
- Open a new, blank form in Design view, and don't base it on any table or query.
- On the Insert menu, click ActiveX Control.
- In the ActiveX Control dialog box, select Microsoft TreeView Control, and then click OK.
- Set the Name property of the control to Treeview1.
- On the Help menu, click Contents And Index, and then click the Index tab.
- Search for "NodeClick event," and display the topic.
- In the NodeClick Event topic, click Example.
- Select the sample code and press CTRL+C to copy the code to the Clipboard; then, minimize the Help window.
- Click View Code on the View menu.
- Press CTRL+V to paste the code into the form's class module.
- On the Run menu, click Compile Loaded Modules. Note that you receive the following message:
Keywords: kberrmsg kbprogramming KB172167