Вопрос : Кодий vba доступа Майкрософт к отборным предметам от комбинированной рамки

Я имею следующий Кодего работает наилучшим образом в выбирать предметы (таблицы, формы, рапорты, etc) от коробки списка.  Однако, я бегу в проблемы при использовании такой же логики для выбирать детали от комбинированной рамки.  Кодий ниже для коробки списка и я спрашивал экспертную помощь в приспосабливать ее к комбинированной рамке.  Спасибо.  Моя комбинированная рамка вызвана Combo1. class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
>Private Sub ScrapSinceOK_Click " class= " id= " codeSnippet821691
class=

Ответ : Кодий vba доступа Майкрософт к отборным предметам от комбинированной рамки

извлекайте эту линию

Для каждого x в InternalAuditScheduleList
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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

Приватное Sub ScrapSinceOK_Click ()

'DoCmd.RunMacro «DialogOK»

Me.Visible = True
На ошибке переход Err_ScrapSinceOK_Click

Тусклый x вариант как, strObject как длиной, strObject1 как длиной, strObject3 как длиной, strObject4 как длиной, strObject5 как длиной, obj как AccessObject
Тусклый j
С Me.InternalAuditScheduleList
    Для j = 0 к .ListCount - 1

            strObject =. Колонка (1, j)
            Выберите strObject случая
                Покрывайте 1 'acTable
                'Установите obj = CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
                Случай 4 'acTable
                    'Установите obj = CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
                Случай 6 'acTable
                    'Установите obj = CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
                acQuery случая 5 '
                    'Установите obj = CurrentData.AllQueries
                    DoCmd.OpenQuery InternalAuditScheduleList.ItemData (x), acViewNormal
                    '    Obj DoCmd.OpenQuery, acViewNormal
                    '    strObject DoCmd.OpenQuery, acViewNormal
                acForm случая -32768 '
                    'Установите obj = CurrentProject.AllForms
                    DoCmd.OpenForm InternalAuditScheduleList.ItemData (x), acViewNormal
                acReport случая -32764 '
                    'Установите obj = CurrentProject.AllReports
                    DoCmd.OpenReport InternalAuditScheduleList.ItemData (x), acViewPreview
                acMacro случая -32766 '
                    'Установите obj = CurrentProject.AllMacros
                    DoCmd.RunMacro InternalAuditScheduleList.ItemData (x)
                'Покрывайте acModule
                    'Установите obj = CurrentProject.AllModules
                'Покрывайте acDataAccessPage
                    'Установите obj = CurrentProject.AllDataAccessPages
            Закончите отборное

    Затем
Конец с
 
Exit_ScrapSinceOK_Click:
    Выходите подводная лодка
 
Err_ScrapSinceOK_Click:
    MsgBox заблуждается. Описание
    Резюме Exit_ScrapSinceOK_Click
    
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us