K
Kerman SPI
I have an Access 2000 database I developed on my computer with windows XP.
The database works great on xp and windows 2000. On some computers with
windows 98 and with my database installed, I am getting errors that i cannot
duplicate on xp or 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
The database works great on xp and windows 2000. On some computers with
windows 98 and with my database installed, I am getting errors that i cannot
duplicate on xp or 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