Melvin
asked on
Error 91 Object variable or With block not set
Error 91 Object variable or With block not set.
This is the error I get from the initial form in the "form load" event.
How do I resolve this error? It doesn't appear to be my code. Is there a problem with the compiler? Do I need a new run time? Could the system need new dll's?
Any assistance greatly appreciated.
Melvin
This is the error I get from the initial form in the "form load" event.
How do I resolve this error? It doesn't appear to be my code. Is there a problem with the compiler? Do I need a new run time? Could the system need new dll's?
Any assistance greatly appreciated.
Melvin
Showing the code from the Form_Load event will help.
Does it happen only at run-time? Otherwise you can see the line that failed.
The reason is that one of your objects is nothing
The reason is that one of your objects is nothing
I have found that the Form_Load event is not the place to initialize features of your form, because thay do not yet exist! The form has not yet created the control you are trying to modify with your code.
I have used two methods. The first is th Form_Activate event:
Sub Form_Activate()
Static bInit as boolean
If Not bInit then
' put your initialization code here
bInit = True
End If
End Sub
The bInit boolean prevents your code from running more than once. It will run the first time the form is opened.
The other soliution is to put a timer on your form, and use the Timer event to initialize your form:
Put a timer on your form. Call it tmrStartUp. Set it's Enabled property to True. Set it's Interval property to 100. Paste this code to the form:
Sub tmrStartUp_Timer()
tmrStartUp.Enabled = False
' putyour initialization code here
End Sub
Play around with these two schemes to find which one you like best!
Good Luck!
-kf
I have used two methods. The first is th Form_Activate event:
Sub Form_Activate()
Static bInit as boolean
If Not bInit then
' put your initialization code here
bInit = True
End If
End Sub
The bInit boolean prevents your code from running more than once. It will run the first time the form is opened.
The other soliution is to put a timer on your form, and use the Timer event to initialize your form:
Put a timer on your form. Call it tmrStartUp. Set it's Enabled property to True. Set it's Interval property to 100. Paste this code to the form:
Sub tmrStartUp_Timer()
tmrStartUp.Enabled = False
' putyour initialization code here
End Sub
Play around with these two schemes to find which one you like best!
Good Luck!
-kf
ASKER
I have additional information. The object is a database created using Visual Basic. I have upgraded Visual Basic with Service Pack 2. Now I can't open the database. The more descriptive error message is: 3041 -- Can't open a database created with a previous version of your application.
I suppose I will have to reinstall the original VB and not include Service Pack 2. This may resolve the problem.
I suppose I will have to reinstall the original VB and not include Service Pack 2. This may resolve the problem.
I wondered if it might be database related, I'm sure the comments above are more helpful than this, but I got the same error 91 recently, which was the result of trying to close a database table before it was opened.
ASKER
I resolved the problem by upgrading the database. The problem was that I built the database using VB. When I installed Service Pack 2 in VB, my application could no longer open the database created with the older version of VB. Using Microsoft Access I converted the database to Access 7.0 and now everything works fine.
I appreciate kfrick's response, but my failure to adequately explain the issue initially, resulted in an answer that didn't resolve my problem. My fault.
I appreciate kfrick's response, but my failure to adequately explain the issue initially, resulted in an answer that didn't resolve my problem. My fault.
No problem! Glad you found the answer! Happy Holidays!
-kf
-kf
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.