Error message when open Access file

[Guest]

I have a Access 2000 file and have been using it with Office XP with no
issues. I recently upgraded my Office to Office 2003. However, after upgrade,
the file prompts as error message whenever I open the file:

"The expression On Open you entered as the event property produced the
following error: A problem occurred while Microsoft Office Access was
communicating with the OLE server or ActiveX Control"

I have another machine (WinXP SP2) with Office 2003 and when I try to open
the same file, there is no such error.

I tried to download MS Jet 4.0 SP8 but it seems like my computer (WinXP SP2)
doesnt need the update.

I tried to lower the security level of macro but to no avail. Appreciate
some prompt feedback. Thanks.

 

[Randy]

I have a Access 2000 file and have been using it with Office XP with no
issues. I recently upgraded my Office to Office 2003. However, after
upgrade,
the file prompts as error message whenever I open the file:

"The expression On Open you entered as the event property produced the
following error: A problem occurred while Microsoft Office Access was
communicating with the OLE server or ActiveX Control"

I have another machine (WinXP SP2) with Office 2003 and when I try to open
the same file, there is no such error.

I tried to download MS Jet 4.0 SP8 but it seems like my computer (WinXP
SP2)
doesnt need the update.

I tried to lower the security level of macro but to no avail. Appreciate
some prompt feedback. Thanks.

Teo, please post your On Open event code. Something contained there does not
work, because you do not have the right project library references to make
it work or an ActiveX control needs to be re-installed. Please submit the
event code for analysis.

-Randy

 

[Guest]

Hi Randy,

The error message is as follow:

The expression On Open you entered as the event property produced the
following error: A problem occurred while Microsoft Office Access was
communicating with the OLE server or ActiveX Control"

What do you mean by On Open event code? How do I find it? Appreciate more
details since I'm not too familiar with Access. Thanks.

 

[Guest]

hi everyone. I get the same message, after i wrote some code in an
afterupdate of a field. The message appears only when the field is updated.
ill write all the code bottom. please help me, this problem is desperating!
i even formated my pc.
(im using office xp)
here is the code:

Option Compare Database

Private Sub alt_AfterUpdate()
If Forms![doentes]![sexo] = 1 And [alt] >= 0 And [alt] <= 41 Then
With CodeContextObject
.[grau ALT] = "normal"
End With
End If

If Forms![doentes]![sexo] = 1 And [alt] >= 42 And [alt] <= 82 Then
With CodeContextObject
.[grau ALT] = "grau 0"
End With
End If

If Forms![doentes]![sexo] = 1 And [alt] >= 83 And [alt] <= 144.5 Then
With CodeContextObject
.[grau ALT] = "grau 1"
End With
End If

If Forms![doentes]![sexo] = 1 And [alt] >= 144.5 And [alt] <= 289 Then
With CodeContextObject
.[grau ALT] = "grau 2"
End With
End If

If Forms![doentes]![sexo] = 1 And [alt] >= 290 And [alt] <= 578 Then
With CodeContextObject
.[grau ALT] = "grau 3"
End With
End If

If Forms![doentes]![sexo] = 1 And [alt] >= 579 Then
With CodeContextObject
.[grau ALT] = "grau 4"
End With
End If

If Forms![doentes]![sexo] = 0 And [alt] >= 0 And [alt] <= 31 Then
With CodeContextObject
.[grau ALT] = "normal"
End With
End If

If Forms![doentes]![sexo] = 0 And [alt] >= 32 And [alt] <= 62 Then
With CodeContextObject
.[grau ALT] = "grau 0"
End With
End If

If Forms![doentes]![sexo] = 0 And [alt] >= 62 And [alt] <= 108.5 Then
With CodeContextObject
.[grau ALT] = "grau 1"
End With
End If

If Forms![doentes]![sexo] = 0 And [alt] > 108.5 And [alt] <= 217 Then
With CodeContextObject
.[grau ALT] = "grau 2"
End With
End If

If Forms![doentes]![sexo] = 0 And [alt] > 217 And [alt] <= 434 Then
With CodeContextObject
.[grau ALT] = "grau 3"
End With
End If

If Forms![doentes]![sexo] = 0 And [alt] >= 434 Then
With CodeContextObject
.[grau ALT] = "grau 4"
End With
End If
End Sub