Connection Errors (Simple)
I have a form using a connection and command set up in the data environment.
The following code works fine the first time the form is opened. If I unload
the form without doing anything else and then re-open the form I receive
an error 3709 on line 4 stating "Operation is not allowed on an object referencing
a closed or invalid connection." Any ideas??? Thanks in advance!
Private Sub Form_Load()
On Error GoTo ErrorHandler
1: 'Populate the Contract Combo Box
3: With dePyramid.rscomContracts
6: Do While .EOF = False
7: cboContract.AddItem !Contract
11: End With
Call RecordErrors("frmDocumentLookup", "Form_Load", Erl)