Automation Error

[Brad]

Thanks for reading my question.

I have a db that has worked until 5 minutes ago. All I
have added is a few menus. Now when I open the db all I
get is automation errors.

What are they and how do I get rid of them.

It is currently getting stuck on IsNull in the following.

I don't see anything wrong with the code, and It worked 5
minutes ago.

I had this problem before, and I had to copy all the
tables, forms, macros, modules and reports to a new DB
and it worked. It seems to me that after I made the
menus I started getting this problem last time.

Private Sub Form_Current()
If IsNull(Me.TheUserName) Then Exit Sub
NewUserName = Me.TheUserName.Value
End Sub

Thanks so much for your help.

Brad

 

[Van T. Dinh]

It sounds like corruptions.

Either use the same process you used before or try Tony
Toews' Web page for various techniques.

<http://www.granite.ab.ca/access/corruptmdbs.htm>

HTH
Van T. Dinh
MVP (Access)