Извините, если где и было - не нашёлю Нужно такое
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.
Dim obj As AccessObject
Dim prop As AccessObjectProperty
Dim strTmpPath As String
strTmpPath = Environ$("TEMP")
'Queries'
For Each obj In Application.CodeData.AllQueries
If obj.Properties("Description") Like strDescription & "*" Then
Debug.Print obj.Name
'Application.SaveAsText acQuery, obj.Name, strTmpPath & "\" & obj.Name'
End If
Next obj
'Forms'
For Each obj In Application.CodeProject.AllForms
If obj.Properties("Description") Like strDescription & "*" Then
Debug.Print obj.Name
'Application.SaveAsText acForm, obj.Name, strTmpPath & "\" & obj.Name'
End If
Next obj
End Sub
Ошибка где пробую получить obj.Properties("Description")
А в отладчике показывает, что нет вообще никаких свойств у объекта obj.
Ну допустим Description запроса, я могу получить через DAO.QueryDef.Properties, а с формами и отчетами как?
