C
CrystalJim
Network OS = w2003, desktop = XPPro, Access = 2003
Database #1, using all access tables and queries, uses the same code as DB
#2 to find a record.
DB #2 is linked to 4 SQL tables, and has 3 access queries, one of which is
used by the main form.
DB # 1 works when doing a record search.
DB#2 using the same code (Copied from DB#1), fails with the "Not a valid
bookmark error" message. I have compacted and repaired several times.
Started with the decompile switch - did not fix.
rsObject.Supports(adBookmark) = true
Here is the code:
Set cnObject = New ADODB.Connection
Set rsObject = New ADODB.Recordset
cnObject.Open "provider = microsoft.jet.oledb.4.0; " & _
"data source = J:\tasks\modelnumberconversion.mdb; "
rsObject.CursorLocation = adUseClient
rsObject.Open "qryModelNumbers", cnObject, adOpenKeyset, adLockOptimistic,
adCmdTable
rsObject.Filter = strWhereClause
If rsObject.EOF = True Then
MsgBox "Name Not found, Please check your spelling and try again."
Exit Sub
Else
Me.Bookmark = rsObject.Bookmark --- Fails here
End If
Except for the path to the database and variable names, the code in DB#1 is
the same as DB#2.
Using the Edit/Find Menu does work but is not what the end user wants - and
when the end user is your boss, well...
What am I missing?
Database #1, using all access tables and queries, uses the same code as DB
#2 to find a record.
DB #2 is linked to 4 SQL tables, and has 3 access queries, one of which is
used by the main form.
DB # 1 works when doing a record search.
DB#2 using the same code (Copied from DB#1), fails with the "Not a valid
bookmark error" message. I have compacted and repaired several times.
Started with the decompile switch - did not fix.
rsObject.Supports(adBookmark) = true
Here is the code:
Set cnObject = New ADODB.Connection
Set rsObject = New ADODB.Recordset
cnObject.Open "provider = microsoft.jet.oledb.4.0; " & _
"data source = J:\tasks\modelnumberconversion.mdb; "
rsObject.CursorLocation = adUseClient
rsObject.Open "qryModelNumbers", cnObject, adOpenKeyset, adLockOptimistic,
adCmdTable
rsObject.Filter = strWhereClause
If rsObject.EOF = True Then
MsgBox "Name Not found, Please check your spelling and try again."
Exit Sub
Else
Me.Bookmark = rsObject.Bookmark --- Fails here
End If
Except for the path to the database and variable names, the code in DB#1 is
the same as DB#2.
Using the Edit/Find Menu does work but is not what the end user wants - and
when the end user is your boss, well...
What am I missing?