cannot find Access query refered in module

[srabani]

Hi,
I have been facing a strange problem in VBA

I have function in a module like this:

Public Function GetGroupCodes()

Dim rs As DAO.Recordset
Dim sPrefix As String
Dim sRelat As String

Set rs = CurrentDb.OpenRecordset("PAG Relationships")

With rs

.MoveFirst

While Not .EOF
sPrefix = .Fields("prefix")
sRelat = .Fields("AGRelat")
updFRID sPrefix, sRelat
.MoveNext
Wend

End With

Set rs = Nothing

End Function

I need to modify the Table/ query " PAG Relationship " Unfortunately there
is no table or query or a string named PAG relationship set with the select
query that I can find in the whole project. I searched with find and repace
altrough the project but no luck.

Any help regarding this problem is very much appreciated.
Thanks In advance.

srabani

 

[Jerry Whittle]

Could be hidden. Run the following:

SELECT MSysObjects.Name, MSysObjects.Type
FROM MSysObjects
WHERE MSysObjects.Name = "PAG Relationships"
ORDER BY MSysObjects.Name;

5 is a query and 1 or 6 are tables.