Vraag : microsoft de code van toegangsvba om voorwerpen van een combodoos te selecteren

Ik heb de volgende code die goed in het selecteren van voorwerpen (lijsten, vormen, rapporten, enz.) van een lijstvakje werkt.  Nochtans, kom ik problemen tegen wanneer het gebruiken van de zelfde logica voor het selecteren van punten van een combodoos.  De code is hieronder voor een lijstvakje en ik verzocht om deskundige hulp in het aanpassen van het aan een combodoos.  Dank.  Mijn combodoos wordt genoemd Combo1.
" codeBody " 
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 SubScrapSinceOK_Click ()

'DoCmd.RunMacro „DialogOK“

Me.Visible = Waar
Op Fout GoTo Err_ScrapSinceOK_Click

    Schemerig zo Verschillend x, strObject zoals lang, strObject1 zoals lang, strObject3 zoals lang, strObject4 zoals lang, zo Lange strObject5, obj zoals AccessObject
    Voor Elk x in InternalAuditScheduleList.ItemsSelected
        strObject = InternalAuditScheduleList.Column (1, x)
        Selecteer Geval strObject
            acTable geval 1 '
                'Plaats obj = CurrentData.AllTables
                DoCmd.OpenTable InternalAuditScheduleList.ItemData (acViewNormal x),
            acTable geval 4 '
                'Plaats obj = CurrentData.AllTables
                DoCmd.OpenTable InternalAuditScheduleList.ItemData (acViewNormal x),
            acTable geval 6 '
                'Plaats obj = CurrentData.AllTables
                DoCmd.OpenTable InternalAuditScheduleList.ItemData (acViewNormal x),
            Geval 5 'acQuery
                'Plaats obj = CurrentData.AllQueries
                DoCmd.OpenQuery InternalAuditScheduleList.ItemData (acViewNormal x),
                'DoCmd.OpenQuery obj, acViewNormal
                'DoCmd.OpenQuery strObject, acViewNormal
            acForm van geval -32768 '
                'Plaats obj = CurrentProject.AllForms
               DoCmd.OpenForm InternalAuditScheduleList.ItemData (acViewNormal x),
            acReport van geval -32764 '
                'Plaats obj = CurrentProject.AllReports
              DoCmd.OpenReport InternalAuditScheduleList.ItemData (x), acViewPreview

            acMacro van geval -32766 '
                'Plaats obj = CurrentProject.AllMacros
            DoCmd.RunMacro InternalAuditScheduleList.ItemData (x)
            'Geval acModule
                'Plaats obj = CurrentProject.AllModules
            'acDataAccessPage van het geval
                'Plaats obj = CurrentProject.AllDataAccessPages
        Beëindig Uitgezocht
    Daarna
 
Exit_ScrapSinceOK_Click:
    Sub van de uitgang
 
Err_ScrapSinceOK_Click:
    MsgBox vergist zich. Beschrijving
    Hervat Exit_ScrapSinceOK_Click
    
Beëindig Sub

Antwoord : microsoft de code van toegangsvba om voorwerpen van een combodoos te selecteren

verwijder deze lijn

Voor Elk 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:

Privé SubScrapSinceOK_Click ()

'DoCmd.RunMacro „DialogOK“

Me.Visible = Waar
Op Fout GoTo Err_ScrapSinceOK_Click

Schemerig zo Verschillend x, strObject zoals lang, strObject1 zoals lang, strObject3 zoals lang, strObject4 zoals lang, zo Lange strObject5, obj zoals AccessObject
Schemerig j
Met Me.InternalAuditScheduleList
    Voor j = 0 aan .ListCount - 1

            strObject =. Kolom (1, j)
            Selecteer Geval strObject
                acTable geval 1 '
                'Plaats obj = CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (acViewNormal x),
                acTable geval 4 '
                    'Plaats obj = CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (acViewNormal x),
                acTable geval 6 '
                    'Plaats obj = CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (acViewNormal x),
                Geval 5 'acQuery
                    'Plaats obj = CurrentData.AllQueries
                    DoCmd.OpenQuery InternalAuditScheduleList.ItemData (acViewNormal x),
                    '    DoCmd.OpenQuery obj, acViewNormal
                    '    DoCmd.OpenQuery strObject, acViewNormal
                acForm van geval -32768 '
                    'Plaats obj = CurrentProject.AllForms
                    DoCmd.OpenForm InternalAuditScheduleList.ItemData (acViewNormal x),
                acReport van geval -32764 '
                    'Plaats obj = CurrentProject.AllReports
                    DoCmd.OpenReport InternalAuditScheduleList.ItemData (x), acViewPreview
                acMacro van geval -32766 '
                    'Plaats obj = CurrentProject.AllMacros
                    DoCmd.RunMacro InternalAuditScheduleList.ItemData (x)
                'Geval acModule
                    'Plaats obj = CurrentProject.AllModules
                'acDataAccessPage van het geval
                    'Plaats obj = CurrentProject.AllDataAccessPages
            Beëindig Uitgezocht

    Daarna
Eind met
 
Exit_ScrapSinceOK_Click:
    Sub van de uitgang
 
Err_ScrapSinceOK_Click:
    MsgBox vergist zich. Beschrijving
    Hervat Exit_ScrapSinceOK_Click
    
Beëindig Sub
Andere oplossingen  
 
programming4us programming4us