Access97 probs in Citrix

[DanRob2277]

We have a Access97 database linked to a SQL 7.0 back end and each time the user tries to open the database in citrix they get an error message that says :

The expression On Open you entered as the event property setting produced the following error: Error accessing the system registry.

If we log in as someone with Domain Admin rights, the database works perfectly.

Please please help.

 

[Philly44]

What level of rights are setup on the Access db? On the directory it resides in? Also have you done any cmpact and repairsw on it recently, access has an annoying feature that it resets the permissions to only allow the person that compacted it open it again.

 

[DanRob2277]

The security is set OK everywhere and nobody has compacted it recently.

 

[Philly44]

What is your citrix serever running? Feature release's and service packs. With Access 97 being several versions old I know that many of the components have been updated by way of service packs. Also what is the db trying to access the registry for? It might be trying to access a portion of the registry that the user running doesn't have access to.

 

[DanRob2277]

The server is running Metaframe XP FR3 with service pack 3. We have loads of Databases running on the server at the moment and they are all OK. I have no idea why the database is trying to access the registry.

 

[Philly44]

Hmmm... Has anything changed on the server recently? Is this an in house developed db?

 

[DanRob2277]

No, no recent changes and yes this in an In house developed app by the development team who are gladly blaming Citrix!!

 

[Philly44]

Being a Citrix admin as well as an Access developer I think I can take a pretty even stance. It definelty sounds like a permissions problem so I can only suggect that you get the code thats running in the OnOpen event and post it, then maybe it will be a little clearer.

 

[DanRob2277]

Private Sub Form_Open(Cancel As Integer)
' Minimize the database window and initialize the form.

' Move to the switchboard page that is marked as the default.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
Me.FilterOn = True

End Sub

Private Sub Form_Current()
' Update the caption and fill in the list of options.

Me.Caption = Nz(Me![ItemText], "")
FillOptions

End Sub

Private Sub FillOptions()
' Fill in the options for this switchboard page.

' The number of buttons on the form.
Const conNumButtons = 8

Dim dbs As Database
Dim rst As Recordset
Dim strSQL As String
Dim intOption As Integer

' Set the focus to the first button on the form,
' and then hide all of the buttons on the form
' but the first. You can't hide the field with the focus.
Me![Option1].SetFocus
For intOption = 2 To conNumButtons
Me("Option" & intOption).Visible = False
Me("OptionLabel" & intOption).Visible = False
Next intOption

' Open the table of Switchboard Items, and find
' the first item for this Switchboard Page.
Set dbs = CurrentDb()
strSQL = "SELECT * FROM [Switchboard Items]"
strSQL = strSQL & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]
strSQL = strSQL & " ORDER BY [ItemNumber];"
Set rst = dbs.OpenRecordset(strSQL)

' If there are no options for this Switchboard Page,
' display a message. Otherwise, fill the page with the items.
If (rst.EOF) Then
Me![OptionLabel1].Caption = "There are no items for this switchboard page"
Else
While (Not (rst.EOF))
Me("Option" & rst![ItemNumber]).Visible = True
Me("OptionLabel" & rst![ItemNumber]).Visible = True
Me("OptionLabel" & rst![ItemNumber]).Caption = rst![ItemText]
rst.MoveNext
Wend
End If

' Close the recordset and the database.
rst.Close
dbs.Close

End Sub

 

[Philly44]

OK, I'm stumped. I can only suggest maybe going to your backups and restoring the last good copy. Its possible the db has eaten itself, I have come across that.