Fråga : microsoft tar fram vba kodifierar för att välja anmärker från ett combo boxas

Jag har efter kodifiera som fungerar, i att välja, anmärker väl (bordlägger, bildar, rapporter, etc.) från en lista boxas.  Emellertid jag kör in i problem, när jag använder den samma logiken för att välja objekt från ett combo, boxas.  Den nedanföra kodifiera är för en lista boxas, och jag bad sakkunnig hjälp, i att anpassa den till ett combo, boxas.  Tack.  Min combo boxas kallas Combo1. > för 
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:
" codeBody " " >Private underScrapSinceOK_Click för class= " för
" klar "

Svar : microsoft tar fram vba kodifierar för att välja anmärker från ett combo boxas

ta bort detta fodrar

För varje x i 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:

Privata underScrapSinceOK_Click ()

'DoCmd.RunMacro ”DialogOK”,

Me.Visible = True
På felet GoTo Err_ScrapSinceOK_Click

Dunkel för x Variant så, strObject som Long, strObject1 som Long, strObject3 som Long, strObject4 som Long, strObject5 som Long, obj som AccessObject
Dunkelt j
Med Me.InternalAuditScheduleList
    För j = 0 till .ListCount - 1

            strObject =. Kolonn (1, j)
            Välj fallstrObject
                Case acTable 1 '
                'Fastställd obj = CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x) som är acViewNormal
                acTable fall 4 '
                    'Fastställd obj = CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x) som är acViewNormal
                acTable fall 6 '
                    'Fastställd obj = CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x) som är acViewNormal
                acQuery för fall 5 '
                    'Fastställd obj = CurrentData.AllQueries
                    DoCmd.OpenQuery InternalAuditScheduleList.ItemData (x) som är acViewNormal
                    '    DoCmd.OpenQuery-obj som är acViewNormal
                    '    DoCmd.OpenQuery-strObject som är acViewNormal
                acForm för fall -32768 '
                    'Fastställd obj = CurrentProject.AllForms
                    DoCmd.OpenForm InternalAuditScheduleList.ItemData (x) som är acViewNormal
                acReport för fall -32764 '
                    'Fastställd obj = CurrentProject.AllReports
                    DoCmd.OpenReport InternalAuditScheduleList.ItemData (x), acViewPreview
                acMacro för fall -32766 '
                    'Fastställd obj = CurrentProject.AllMacros
                    DoCmd.RunMacro InternalAuditScheduleList.ItemData (x)
                'FallacModule
                    'Fastställd obj = CurrentProject.AllModules
                'FallacDataAccessPage
                    'Fastställd obj = CurrentProject.AllDataAccessPages
            Avsluta valt

    Därefter
Avsluta med
 
Exit_ScrapSinceOK_Click:
    Gå ut suben
 
Err_ScrapSinceOK_Click:
    MsgBox felar. Beskrivning
    Meritförteckning Exit_ScrapSinceOK_Click
    
Avsluta suben
Andra lösningar  
 
programming4us programming4us