Access Closes Unexpectantly

[at]

I have a database that is on a Citrix server. There is only one user for the
database. There is one main form that has three subforms on it and is the
main form for entering data. When the user tries to enter data into the
fields on the form, Access will just close unexpectantly. There is no error
message, no "Access needs to shut down", no nothing. I've put error trapping
code on the form, but it doesn't even hit that. With it being on a server I
have split the BE and FE and I have just had the tables in the database
itself, I've done all the usual things that they say for setting up a
database on a server, doesn't seem to make any difference. Sometimes is
closes on the first field, sometimes its the last field, sometimes I can
enter 25 records and then it will just close on the next one. Has anyone
every had this problem??

Thanks for any help you can give me.

at

 

[Tony Toews [MVP]]

I have a database that is on a Citrix server.

What version of Access? Have all the Service Packs and patches for
Access been installed on that server?

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/

 

[at]

I'm not familiar with the server information. How would I know if they have
been installed?

Thanks for your help.

at

 

[at]

I've narrowed it down to the code on the "on Current" event of the form. The
reason I say this is because I put a break on the first line and as soon as
it goes to that line, it closes. I can put breaks in other code on the same
form and it works just fine.

Here is the code for the On Current event of the main form:

Private Sub Form_Current()
On Error GoTo Err_Form_Current

If IsNull(Me.OrderCustID) Then
Me.TechNo.Visible = False
Else
Me.TechNo.Visible = True
End If
If Me.OrderNotNew = -1 Then
Me.OrderCustID.Locked = True
Me.OrderCustID.BackColor = 12632256
Me.CustName.BackColor = 12632256
Me.OrderLocationID.Locked = True
Me.OrderLocationID.BackColor = 12632256
Else
Me.OrderCustID.Locked = False
Me.OrderCustID.BackColor = 16777215
Me.CustName.BackColor = 16777164
Me.OrderLocationID.Locked = False
Me.OrderLocationID.BackColor = 16777215
End If

Exit_Form_Current:
Exit Sub

Err_Form_Current:
MsgBox Err.Description
MsgBox Err.Number
Resume Exit_Form_Current

End Sub