Questione : codice di vba di accesso del microsoft agli oggetti prescelti da una casella combinata

Ho il seguente codice che funziona bene nella selezione degli oggetti (tabelle, forme, rapporti, ecc) a partire da una casella di riepilogo.  Tuttavia, funziono nei problemi quando usando la stessa logica per la selezione degli articoli a partire da una casella combinata.  Il codice sotto è per una casella di riepilogo e stavo chiedendo l'aiuto esperto nell'adattamento esso ad una casella combinata.  Grazie.  La mia casella combinata è denominata Combo1. class= > " libero " 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 secondario " del class= " del id= " codeSnippet821691 del
class= del

Risposta : codice di vba di accesso del microsoft agli oggetti prescelti da una casella combinata

rimuovere questa linea

Per ogni x in 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 secondario riservato ()

'DoCmd.RunMacro “DialogOK„

Me.Visible = allineano
Sull'errore Err_ScrapSinceOK_Click di avanzamento

Di x variante fioca così, strObject quanto lungamente, strObject1 come lungamente, strObject3 come lungamente, strObject4 come lungamente, strObject5 come lungamente, obj come AccessObject
J fioco
Con Me.InternalAuditScheduleList
    Per J = 0 a .ListCount - 1

            strObject =. Colonna (1, j)
            Selezionare lo strObject di caso
                Caso 1 'acTable
                'Regolare il obj = CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
                Caso 4 'acTable
                    'Regolare il obj = CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
                Caso 6 'acTable
                    'Regolare il obj = CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
                acQuery del caso 5 '
                    'Regolare il obj = CurrentData.AllQueries
                    DoCmd.OpenQuery InternalAuditScheduleList.ItemData (x), acViewNormal
                    '    Obj di DoCmd.OpenQuery, acViewNormal
                    '    strObject di DoCmd.OpenQuery, acViewNormal
                acForm del caso -32768 '
                    'Regolare il obj = CurrentProject.AllForms
                    DoCmd.OpenForm InternalAuditScheduleList.ItemData (x), acViewNormal
                Caso 'acReport -32764
                    'Regolare il obj = CurrentProject.AllReports
                    DoCmd.OpenReport InternalAuditScheduleList.ItemData (x), acViewPreview
                Caso 'acMacro -32766
                    'Regolare il obj = CurrentProject.AllMacros
                    DoCmd.RunMacro InternalAuditScheduleList.ItemData (x)
                'Mettere il acModule
                    'Regolare il obj = CurrentProject.AllModules
                'Mettere il acDataAccessPage
                    'Regolare il obj = CurrentProject.AllDataAccessPages
            Concludere prescelto

    Dopo
Estremità con
 
Exit_ScrapSinceOK_Click:
    Uscire il sommergibile
 
Err_ScrapSinceOK_Click:
    MsgBox erra. Descrizione
    Riassunto Exit_ScrapSinceOK_Click
    
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us