Doesn't work: CH3 example
I followed the instruction but could not get the expected result. Instead, it when I clicked on the command botton "Get list of forms", it gave me a warning sign saying The expression On Click you entered as the event property setting produced the following error: a problem occurred while Microsoft Office Access was communicating with the OLE server or Actuve X Control.
Here is the code on page 95.
Private Sub cmdGetForms_Click()
Dim frmForms As Form
'loop
For Each frmForms In Forms
Me.1stForms.AddItem (frmForms.Name)
Next frmFroms
End Sub
Please help to detect the error. Thanks!
|