Access 2000 db not working correctly on win 98

[Randy]

I have developed an Access 2000 db on my Dell 2.5 gh with XP. This database
works great on computers with XP or Windows 2000. The database is very
buggy on some 98 operating systems (Pentium 2, 350 mhz). even though they
also have access 2000 installed. I am getting error messages such as when I
am creating a new record, I get "you cannot execute this command" I cant
even close out the form. Or the debug screen pops up. With the following
code highlighted: "DoCmd.OpenReport strDocName, acPreview, , strWhere"
Does any one have any ideas? This is driving me crazy. Thanks...Randy

Private Sub Preview_This_Field_Note_Click()

Dim strDocName As String
Dim strWhere As String

If Me.Dirty Then 'Save any edits first.
Me.Dirty = False
End If
If Me.NewRecord Then
MsgBox "Field Note Not Selected. Please Select a Field Note To
Preview"
Else
strDocName = "Inedible Notesheet"
strWhere = "[AnalysisID]=" & Me![AnalysisID]
DoCmd.OpenReport strDocName, acPreview, , strWhere
End If

End Sub

 

[John Nurick]

Hi Randy,

The first thing is to make certain that all the machines have the same
Office 2000 and Jet service packs installed. Unless the older machines
have been deliberately kept up to date it's likely that the newer ones
will have later Jet SPs installed as part of Windows or Windows service
packs.

I have developed an Access 2000 db on my Dell 2.5 gh with XP. This database
works great on computers with XP or Windows 2000. The database is very
buggy on some 98 operating systems (Pentium 2, 350 mhz). even though they
also have access 2000 installed. I am getting error messages such as when I
am creating a new record, I get "you cannot execute this command" I cant
even close out the form. Or the debug screen pops up. With the following
code highlighted: "DoCmd.OpenReport strDocName, acPreview, , strWhere"
Does any one have any ideas? This is driving me crazy. Thanks...Randy

Private Sub Preview_This_Field_Note_Click()

Dim strDocName As String
Dim strWhere As String

If Me.Dirty Then 'Save any edits first.
Me.Dirty = False
End If
If Me.NewRecord Then
MsgBox "Field Note Not Selected. Please Select a Field Note To
Preview"
Else
strDocName = "Inedible Notesheet"
strWhere = "[AnalysisID]=" & Me![AnalysisID]
DoCmd.OpenReport strDocName, acPreview, , strWhere
End If

End Sub