Уважаемые.
Есть БД MyInterfeice.mdb, в которой лежат формы.
Есть MyReports.mdb, в которой находятся отчёты.
Подключаю MyReports.mdb через References.
Из MyInterfeice.mdb использую функцию dhOpenReport, которая открывает отчёт, находящийся в MyReports.mdb. Здесь всё хорошо.
Но хочу возвратить список доступных отчётов для конкретного интерфейса.
Для этого есть несколько таблиц, находящиеся в MyReports.mdb
Никак не могу построить запрос.
Всё время ошибка «Ядро базы данных Microsoft Jet не может найти входную таблицу или запрос 'UserReport'. Проверьте существование таблицы или запроса и правильность имени.»
То есть CurrentDb постоянно ссылается на текущее приложение, из которого вызывалась функция.
Как получить из MyReports.mdb ссылку на саму себя.
О, как завернулось :)
код в MyReports.mdb
В нем я уже начал эксперименты с передачей полного пути к мдб.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
'Возвращает список отчётов, доступный данному интерфейсу
Public Function dhGetListReport(UserInt As Long) As String
Dim rs As DAO.Recordset
Dim strSQL As String
Dim strPrjName As String
On Error GoTo 999
strPrjName = CurrentDb.Name & "."
strSQL = " SELECT UserReportName FROM " & strPrjName & "UserReport UR " & _
" INNER JOIN " & strPrjName & "UserIntReport UIR" & _
" ON UR.UserReportID=UIR.UserReportID" & _
" WHERE UIR.UserIntID=" & UserInt
Set rs = CurrentDb.OpenRecordset(strSQL, , dbReadOnly)
Do While Not rs.EOF
dhGetListReport = dhGetListReport & rs( 0 ) & ";"
rs.MoveNext
Loop
Exit Function
999 :
Err.Raise Err.Number, "Reports.dhGetListReport", Err.Description
End Function
