jim at therareshop.com
jim at therareshop.com
Wed Oct 29 11:19:22 CDT 2008
<The table is a linked table - so no Seek.>
Rocky,
Using the function below allows you to perform a seek on a linked table. This is a nifty function from the microsoft website that I've been using for years without a problem.
Set db = WhichDB(strTable)
Function WhichDB(strTableName As String) As Database
Dim dbpath$, SourceTable$, dbTest As Database
On Error GoTo whichDB_ERR
Set dbTest = DBEngine(0)(0)
dbpath = Mid(dbTest(strTableName).Connect, InStr(1, dbTest(strTableName).Connect, "=") + 1)
If dbpath = "" Then
Set dbTest = CurrentDb()
Else
Set dbTest = DBEngine(0).OpenDatabase(dbpath)
End If
Set WhichDB = dbTest
whichDB_EXIT:
Exit Function
whichDB_ERR:
MsgBox Err.Description
Resume whichDB_EXIT
End Function