Searching through multiple databases

[Prototype]

Hello everyone,

Is there a way to search through multiple records/queries from different databases to see if there are duplicates?

Thanks so much.

 

[arnelgp]

if there is no linked table to your external database,
the one i can think of is (1) either open the other database
and open a recordset from table you want to search.
or (2) directly open a recordset from the external database.

(1)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim bolFound As Boolean

'open external db
Set db = OpenDatabase(CurrentProject.Path & "\ExternalDBname.accdb", False, False)

'open recordset based on what you like to find
Set rs = db.OpenRecordSet("Select * From ExternalTableName Where FieldInExternalTable = '" & yourSearchString & "'")

bolFound = (rs.BOF And rs.EOF)

'housekeeping
rs.Close
Set rs=Nothing
Set db=Nothing

(2)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim bolFound As Boolean

Set db=CurrentDB
'open recordset based on what you like to find
Set rs = db.OpenRecordSet("Select * From " & _
			ExternalTableName  & _
			" In '" & _
			CurrentProjectPath & "\" & _
			"ExternalWhereDBName & "' Where FieldInExternalTable = '" & yourSearchString & "'")
bolFound = (rs.BOF And rs.EOF)

'housekeeping
rs.Close
Set rs=Nothing
Set db=Nothing