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

[Ethex]

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

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

Касаемо кода или т.н. "приколов" описанных выше?

По 1-му:
В данный момент на рабочем компьютере код работает

По 2-му:
Я создал файл, переместил туда нужные формы (естесно, включая ту что из архива). Работает. Но буду ещё гонять. Завтра проверю также на домашнем ноуте (сегодня домой поздно вернусь из-за дел, поэтому не смогу). Если что-то будет идти не так, напишу

Update: По 2-му же. Это уже не первый случай, когда проблема лечилась переносом форм в другой файл. Хотя симптоматика и разная...

Update1:

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

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

Макет - Данные - Тип источника данных - Список Значений
Запомню

[Ethex]

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

По 2-му:
Я создал файл, переместил туда нужные формы (естесно, включая ту что из архива). Работает. Но буду ещё гонять. Завтра проверю также на домашнем ноуте (сегодня домой поздно вернусь из-за дел, поэтому не смогу). Если что-то будет идти не так, напишу

Привёз форму домой. Работает корректно. Без приколов
Сейчас испытываю сложности с экспортом. Но стыдно сюда так часто писать Попробую сам-сусам чего сообразить и, если совсем тупик, задам вопрос в этой теме

Ещё раз, спасибо вам большое

[Ethex]

Хух! Экспорт готов

На случай пришествия сюда страждущего, навроде меня (аль я тетрадь или флешку потеряю) - вот:

Экспорт нескольких таблиц из Access на разные листы одной книги Excel (используя DAO):

Public Sub MultiExp(tblName)
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim app As Object
Dim wrk As Object
Dim i As Integer
Dim j As Integer
Dim t

Set db = CurrentDb
Set app = CreateObject("Excel.Application")
Set wrk = app.Workbooks.Add
   For i = 0 To UBound(tblName)
   t = tblName(i)
   Set rst = db.OpenRecordset("SELECT * FROM [" & t & "]")
      If i <= wrk.Sheets.Count - 1 Then
      wrk.Sheet(i + 1).Name = t
      Else
      wrk.Sheets.Add(, wrk.Sheets(i)).Name = t
      End If
   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
   rst.Close: Set rst = Nothing
   Next i

app.Visible = True

End Sub

Private Sub Кнопка_Click()
Dim tblName()
Dim cnt As Integer
Dim i As Integer

cnt = Me!Список.ListCount - 1

   If Me!Список.ListCount = 0 Then
   MsgBox "Таблицы не выбраны"
   Exit Sub
   End If

ReDim tblName(1 To cnt)

   For i = 0 To cnt
   tblName(i) = Me.Список.ItemData(i)
   Next i

MultiExp tblName
End Sub