Cuestión : código del vba del Microsoft Access para seleccionar objetos de una caja combinada

Tengo el código siguiente que trabaja bien en la selección de los objetos (tablas, formas, informes, etc) de una caja de lista.  Sin embargo, funciono en problemas al usar la misma lógica para seleccionar artículos de una caja combinada.  El código abajo está para una caja de lista y pedía la ayuda experta en la adaptación de ella a una caja combinada.  Gracias.  Mi caja combinada se llama Combo1. class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 secundario " del class= " del id= " codeSnippet821691 del
class= del

Respuesta : código del vba del Microsoft Access para seleccionar objetos de una caja combinada

quitar esta línea

Para cada x en 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 secundario privado ()

'DoCmd.RunMacro “DialogOK”

Me.Visible = verdad
En el error Err_ScrapSinceOK_Click indicado

De x variante dévil tan, strObject como de largo, strObject1 como de largo, strObject3 como de largo, strObject4 como de largo, strObject5 como de largo, obj como AccessObject
J dévil
Con Me.InternalAuditScheduleList
    Para j = 0 a .ListCount - 1

            strObject =. Columna (1, j)
            Seleccionar el strObject del caso
                Encajonar 1 'acTable
                'Fijar el obj = CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
                Caso 4 'acTable
                    'Fijar el obj = CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
                Caso 6 'acTable
                    'Fijar el obj = CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
                acQuery del caso 5 '
                    'Fijar el obj = CurrentData.AllQueries
                    DoCmd.OpenQuery InternalAuditScheduleList.ItemData (x), acViewNormal
                    '    Obj de DoCmd.OpenQuery, acViewNormal
                    '    strObject de DoCmd.OpenQuery, acViewNormal
                acForm del caso -32768 '
                    'Fijar el obj = CurrentProject.AllForms
                    DoCmd.OpenForm InternalAuditScheduleList.ItemData (x), acViewNormal
                Encajonar el 'acReport -32764
                    'Fijar el obj = CurrentProject.AllReports
                    DoCmd.OpenReport InternalAuditScheduleList.ItemData (x), acViewPreview
                Encajonar el 'acMacro -32766
                    'Fijar el obj = CurrentProject.AllMacros
                    DoCmd.RunMacro InternalAuditScheduleList.ItemData (x)
                'Encajonar el acModule
                    'Fijar el obj = CurrentProject.AllModules
                'Encajonar el acDataAccessPage
                    'Fijar el obj = CurrentProject.AllDataAccessPages
            Terminar selecto

    Después
Extremo con
 
Exit_ScrapSinceOK_Click:
    Salir el submarino
 
Err_ScrapSinceOK_Click:
    MsgBox yerra. Descripción
    Curriculum vitae Exit_ScrapSinceOK_Click
    
Submarino del extremo
Otras soluciones  
 
programming4us programming4us