Pergunta : código do vba do acesso de microsoft aos objetos seletos de uma caixa combinado

Eu tenho o seguinte código que trabalha bem em selecionar os objetos (tabelas, formulários, relatórios, etc.) de uma caixa de lista.  Entretanto, eu funciono em problemas ao usar a mesma lógica para selecionar artigos de uma caixa combinado.  O código abaixo é para uma caixa de lista e eu pedia a ajuda perita em adaptá-la a uma caixa combinado.  Obrigado.  Minha caixa combinado é chamada Combo1. class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
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 notpretty ScrapSinceOK_Click secundário " do class= " do id= " codeSnippet821691 do
class= do

Resposta : código do vba do acesso de microsoft aos objetos seletos de uma caixa combinado

remover esta linha

Para cada x em 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:

ScrapSinceOK_Click secundário confidencial ()

'DoCmd.RunMacro “DialogOK”

Me.Visible = retificam
No erro Err_ScrapSinceOK_Click empreendedores

De x variação não ofuscante tão, strObject quanto por muito tempo, strObject1 como por muito tempo, strObject3 como por muito tempo, strObject4 como por muito tempo, strObject5 como por muito tempo, obj como AccessObject
J não ofuscante
Com Me.InternalAuditScheduleList
    Para j = 0 a .ListCount - 1

            strObject =. Coluna (1, j)
            Selecionar o strObject do caso
                Encaixotar 1 'acTable
                'Ajustar o obj = o CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
                Caso 4 'acTable
                    'Ajustar o obj = o CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
                Caso 6 'acTable
                    'Ajustar o obj = o CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
                acQuery do caso 5 '
                    'Ajustar o obj = o CurrentData.AllQueries
                    DoCmd.OpenQuery InternalAuditScheduleList.ItemData (x), acViewNormal
                    '    Obj de DoCmd.OpenQuery, acViewNormal
                    '    strObject de DoCmd.OpenQuery, acViewNormal
                acForm do caso -32768 '
                    'Ajustar o obj = o CurrentProject.AllForms
                    DoCmd.OpenForm InternalAuditScheduleList.ItemData (x), acViewNormal
                Encaixotar 'o acReport -32764
                    'Ajustar o obj = o CurrentProject.AllReports
                    DoCmd.OpenReport InternalAuditScheduleList.ItemData (x), acViewPreview
                Encaixotar 'o acMacro -32766
                    'Ajustar o obj = o CurrentProject.AllMacros
                    DoCmd.RunMacro InternalAuditScheduleList.ItemData (x)
                'Encaixotar o acModule
                    'Ajustar o obj = o CurrentProject.AllModules
                'Encaixotar o acDataAccessPage
                    'Ajustar o obj = o CurrentProject.AllDataAccessPages
            Terminar seleto

    Em seguida
Extremidade com
 
Exit_ScrapSinceOK_Click:
    Retirar o submarino
 
Err_ScrapSinceOK_Click:
    MsgBox erra. Descrição
    Resumo Exit_ScrapSinceOK_Click
    
Submarino da extremidade
Outras soluções  
 
programming4us programming4us