Как да направите заявка за VBA в Access списък таблици в база данни
Получете списък с таблици
Стъпка 1
Създайте заявка за изпълнение на SQL командата, показана по-долу. Тази заявка получава списък на всички таблици в текущата база данни на Access. Където изявлението използва номер 1, за да покаже, че искаме само таблиците да се показват.
SELECT MSysObjects.Name, MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Type, MSysObjects.Flags от MSysObjects WHERE MSysObjects.Type = 1
Стъпка 2
Получете списък, в който има само таблици в базата данни, които не са от системата, както е показано по-долу:
SELECT MSysObjects.Name, MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Type, MSysObjects.Flags от MSysObjects WHERE MSysObjects.Type = 1 И MSysObjects.Name не като "MSys"
Стъпка 3
Получете списък, който съдържа само таблици, които не са скрити в базата данни, като изпълните следната заявка:
SELECT MSysObjects.Name, MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Type, MSysObjects.Flags от MSysObjects WHERE MSysObjects.Type = 1 И MSysObjects.Flags 8
Стъпка 4
Сортирайте списъка с не скрити несистемни таблици, като използвате следния SQL код:
SELECT MSysObjects.Name, MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Type, MSysObjects.Flags от MSysObjects WHERE MSysObjects.Type = 1 И MSysObjects.Flags 8 И MSysObjects.Name не като "MSys *" ORDER BY MSysObjects.Name
Използвайте списъка с таблици във VBA
Стъпка 1
Заредете списъка си с таблици в обект за запис, като използвате VBA кода, показан по-долу:
Dim rsMisTablas Като DAO.Recordset Задайте rsMisTablas = CurrentDb.OpenRecordset ('MyConsulta')
Стъпка 2
Превъртете през цикъл през всеки запис, получен в заявката.
Dim rsMisTablas Като DAO.Recordset Задайте rsMisTablas = CurrentDb.OpenRecordset ('MyConsulta')
Докато не rsMisTablas.EOF "Код за манипулиране на информацията
rsMisTablas.MoveNext Loop
Стъпка 3
Добавете имената на всяка таблица в падащ списък, който променя Вашия цикъл:
Dim rsMisTablas Като набор DAO.Recordset rsMisTablas = CurrentDb.OpenRecordset ('MyConsulta') Me.cmbMiComboBox.Clear
Докато не е rsMisTablas.EOF Me.cmbMiComboBox.AddItem rsMisTablas! [Име]
rsMisTablas.MoveNext Loop
Стъпка 4
Затворете обекта си за запис, за да освободите използваната памет:
Dim rsMisTablas Като набор DAO.Recordset rsMisTablas = CurrentDb.OpenRecordset ('MyConsulta') Me.cmbMiComboBox.Clear
Докато не е rsMisTablas.EOF Me.cmbMiComboBox.AddItem rsMisTablas! [Име]
rsMisTablas.MoveNext Loop
rsMisTablas.Close Set rsMisTablas = Нищо
