VBA Access Обращение к списку имён таблиц

[Ethex]

Доброго времени суток
Моя задача - сделать программу экспорта из акса в эксель. Требуется экспортировать несколько (в данный момент 5) таблиц в одну книгу на разные листы. Имеется код теоретически нужный код, который пока не проверял

Sub CopyToExcel(tblName)    'Процедура экспорта в Excel
'tblName - массив содержащий имена таблиц
    Dim db As DAO.Database, rst As DAO.Recordset, i, t, j&
    Dim app As Object, wrk As Object
    Set db = CurrentDb
 
    Set app = CreateObject("excel.application")
    Set wrk = app.workbooks.Add
    For i = 0 To UBound(tblName)
        t = tblName(i)
        If i <= wrk.sheets.Count - 1 Then
            wrk.sheets(i + 1).Name = t
        Else
            wrk.sheets.Add(, wrk.sheets(i)).Name = t
        End If
        Set rst = db.OpenRecordset("select * from [" & t & "]")
        app.sheets(t).Activate
        app.range("a2").copyfromrecordset rst
        For j = 1 To rst.Fields.Count
            wrk.sheets(t).cells(1, j) = rst(j - 1).Name
        Next j
    Next i
    app.Visible = True
End Sub

В коде имеется обращение к массиву. Массив, как я понял - список с именами таблиц. В рамках задачи от меня требуется возможность "выбрать таблицы" (крайне желательно с выводом имён таблиц на форму). Вот в том, как реализовать этот момент разобраться пока не получается
Окажите помощь, если возможно

[Serge_Bliznykov]

Сообщение от Ethex

В рамках задачи от меня требуется возможность "выбрать таблицы" (крайне желательно с выводом имён таблиц на форму)

поиском нашёл такой запрос

SELECT MSysObjects.Name FROM MSysObjects WHERE MSysObjects.Type=1;

попробуйте.

[Ethex]

Попробовал

Public Sub SelectNames()
Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("SELECT MSysObjects.Name FROM MSysObjects WHERE MSysObjects.Type = 1")
Set Me.[Список0].Recordset = rst
   
rst.Close: Set rst = Nothing

End Sub

Не срабатывает

Когда ставил метку и делал шаги, при наведении на

Set Me.[Список0].Recordset

Выводило Set Me.[Список0].Recordset = Nothing

Запрос, в теории, вытащит имена всех таблиц. А есть ли возможность "выбирать" таблицы, имена которых нужны? Кликнул мышью по таблице, нажал на кнопку формы, имя перенеслось?

[Aleksandr H.]

Сообщение от Ethex

возможность "выбрать таблицы" (крайне желательно с выводом имён таблиц на форму).

см архив

[Ethex]

Прошу прощения за то, что так затянул с ответом

Сообщение от Aleksandr H.

см архив

Aleksandr H., вы в очередной раз меня выручили.
Получив форму, я пытался избавится от этих скрытых/системных элементов в списке.
Додумался до такого:

Private Sub Кнопка12_Click()
    Dim aob As AccessObject
    Dim line As String
    Dim i As Integer
    With CurrentData
        For Each aob In .AllTables
            line = aob.Name
            If InStr(aob.Name, "MSys") > 0 Then
                line = line & " <-- Hidden/System Item"
            End If
            Me.Список4.AddItem Item:=line
        Next
    End With
    For i = 0 To 12
    Me!Список4.RemoveItem 0
    Next
End Sub

Этих элементов 13 (кол-во таблиц не влияет на их кол-во). Цикл в конце удаляет их из списка. Работает. Ещё поменял два других цикла.

Dim intItemsInList As Integer
    Dim intCounter As Integer
    intItemsInList = Me!Список20.ListCount
    For intCounter = intItemsInList - 1 To 0 Step -1
      Me![Список20].RemoveItem 0
    Next
End Sub

Проверил. Получилось то, что мне нужно. И всё бы хорошо, но...
Позже начнутся приколы
Дело в том, что менял код я прямо в том файле из архива. Потом перенёс оттуда

[Serge_Bliznykov]

Сообщение от Ethex

Этих элементов 13 (кол-во таблиц не влияет на их кол-во). Цикл в конце удаляет их из списка. Работает.

ООО! НЕТ! Зачем?! Зачем удалять их из списка, когда можно (И НУЖНО) не помещать их в список?!

Private Sub Кнопка12_Click()
    Dim aob As AccessObject
    Dim line As String
    Dim i As Integer
    With CurrentData
        For Each aob In .AllTables
            line = aob.Name
            If InStr(aob.Name, "MSys") = 0 Then
                Me.Список4.AddItem Item:=line
            End If
        Next
    End With
End Sub

[Ethex]

Перенёс оттуда форму в свой файл с другой формой. Дома с флэшки запустил файл. По какой-то причине на домашнем ноуте программа работала не так как нужно: нажатие кнопки добавляло одно имя из существующих таблиц. Ещё один клик - ещё одно имя. Если кликов больше, чем имён - заносил повторно.

Приехал на работу. Снёс форму из файла. Создал новую, переписал код. Запускаю - выдаёт ошибку 6014. Требует указать тип источника данных для строки

Me.Список0.AddItem Item:=itm

Я то может и разберусь, как указать ему RecordSourseType. Но почему один и тот же код ведёт себя по разному в разных файлах???

[Ethex]

Сообщение от Serge_Bliznykov

ООО! НЕТ! Зачем?!

На опережение сработали. Спасибо.
Я знал что способ, до которого я додумался не очень грамотен и рано или поздно наверняка мне пришлось бы выяснять иной

[Serge_Bliznykov]

Сообщение от Ethex

На опережение сработали. Спасибо.

не за что.
на самом деле, переменная line лишняя, поэтому можно ещё сократить код:

Private Sub Кнопка12_Click()
    Dim aob As AccessObject
    With CurrentData
        For Each aob In .AllTables
            If InStr(aob.Name, "MSys") = 0 Then
                Me.Список4.AddItem Item:=aob.Name
            End If
        Next
    End With
End Sub

[Aleksandr H.]

Ну так что, вопрос решен или как?