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
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