VBA: список RecordSource в форме

Question

Я хочу сканировать все RecordSource в моих формах ADP.Одна из моих форм может вызвать неправильный просмотр.Обычно устанавливается в свойстве RecordSource.Проблема в том, что в моем ADP более 300 форм.Поэтому я хочу напечатать все RecordSource в каждой форме, чтобы найти и исправить проблему.Вот что я сделал до сих пор.

Private Sub Command1_Click()

Dim sForm As String

Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject

Dim cCount As Long
cCount = 0

For Each obj In dbs.AllForms

        ' Print name of obj.
        sForm = "Form_" & obj.name

            Debug.Print cCount  & "  " & Forms(sForm)!RecordSource

        cCount = cCount + 1

Next obj

End Sub

Ошибка: Access не может найти форму.Ошибка времени выполнения '2450'.

Answer 1

Возможно:

For Each obj In dbs.AllForms
    DoCmd.OpenForm obj.Name, acDesign
    Set frm = Forms(obj.Name)
    Debug.Print cCount & "  " & frm.RecordSource

    cCount = cCount + 1
    DoCmd.Close acForm, obj.Name, acSaveNo
Next obj