The following example interates through the AllDataAccessPages collection and returns the name of the link and the path of each data access page in the current project.
Sub PrintDAPLocationInfo()
Dim dapObject As AccessObject
For Each dapObject In CurrentProject.AllDataAccessPages
Debug.Print "The '" & dapObject.Name & _
"' is located at: "; dapObject.FullName
Next dapObject
End Sub