VB Code:
If Dir("D:\DB Query Map.txt") <> vbNullString Then Kill "D:\DB Qyery Map.txt"
For i = 0 To qry.Count - 1
If InStr(1, qry(i).Name, "~sq_f") = 0 Then 'Actual queries only
'Debug.Print qry(i).Name; qry(i).Type
'Debug.Print qry(i).Properties(qry(i).Properties.Count - 1).Value
Open "D:\DB Qyery Map.txt" For Append As #1
Print #1, qry(i).Name; qry(i).Type
Print #1, "----------------------------------------"
sTemp = qry(i).Properties(qry(i).Properties.Count - 1).Value
Print #1, Trim$(Replace(sTemp, Chr(63), "")) 'Isnt working for some reason????
Close #1
'Parse this property to get the tables
DoEvents 'Actual queries do not have a fields collection,
'only form recordsources do. fields = textboxes
'on form, so to speak.
'Prop 20 is the DOL prop.
End If
Next