Split database and getting 3219 error

  • Thread starter Thread starter johnvielee via AccessMonster.com
  • Start date Start date
J

johnvielee via AccessMonster.com

I moved my tables to a seperate database and linked the tables. Now I am
getting error 3219 but don't understand why. I have a function the Set
RST = db.OpenRecordset(bidTbl, dbOpenTable)
is getting error

thanks,
john


Function IsBidSum(ByVal pid As Long, ByVal wsv As Long) As Variant
Dim db As Database
Dim bidTbl As String
Dim RST As Recordset

Set db = CurrentDb()
bidTbl = "tblBidSummary"

IsBidSum = False

Set RST = db.OpenRecordset(bidTbl, dbOpenTable)
RST.Index = "PrimaryKey"

Select Case RST.RecordCount
Case 0
GoTo Exit_IsBidSum
Case Is > 0
RST.Seek "=", pid, wsv
If RST.NoMatch = False Then
IsBidSum = True
GoTo Exit_IsBidSum
End If

End Select

Exit_IsBidSum:
RST.Close
Set RST = Nothing

End Function
 
john,
I moved my tables to a seperate database and linked the tables. Now I am
getting error 3219 but don't understand why. I have a function the Set
RST = db.OpenRecordset(bidTbl, dbOpenTable)
is getting error
Click to expand...

Is your table (bidTbl) a linked table? If so, linked tables cannot be opened
with the arg "dbOpenTable".
Replace dbOpenTable with dbOpenDynaset and you should still have the same
functionality.

-Nick
 
Back
Top