Frage : Microsoft Access vba Code zum Vorwählen Gegenstände von einem kombinierten Kasten

Ich habe den folgenden Code, der gut funktioniert, wenn es Gegenstände (Tabellen, Formen, Reports, usw.) von einem Listenkasten vorwählt.  Jedoch laufe ich in Probleme, wenn die gleiche Logik für das Vorwählen der Einzelteile von einem kombinierten Kasten verwendet.  Der folgende Code ist für einen Listenkasten und ich forderte sachverständige Hilfe in der Anpassung sie einem kombinierten Kasten.  Danke.  Mein kombinierter Kasten genannt Combo1. 
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

Private VorScrapSinceOK_Click ()

'DoCmd.RunMacro „DialogOK“

Me.Visible = ausrichten en
Auf Störung Goto- Err_ScrapSinceOK_Click

    Schwache x-so Variante, strObject wie lang, strObject1 als lang, strObject3 als lang, strObject4 als lang, strObject5 als lang, obj als AccessObject
    Für jedes x in InternalAuditScheduleList.ItemsSelected
        strObject = InternalAuditScheduleList.Column (1, x)
        Fall strObject vorwählen
            1 'acTable Rechtssache
                'Obj = CurrentData.AllTables einstellen
                DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
            Rechtssache 4 'acTable
                'Obj = CurrentData.AllTables einstellen
                DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
            Rechtssache 6 'acTable
                'Obj = CurrentData.AllTables einstellen
                DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
            Rechtssache 5 'acQuery
                'Obj = CurrentData.AllQueries einstellen
                DoCmd.OpenQuery InternalAuditScheduleList.ItemData (x), acViewNormal
                'DoCmd.OpenQuery obj, acViewNormal
                'DoCmd.OpenQuery strObject, acViewNormal
            Rechtssache -32768 'acForm
                'Obj = CurrentProject.AllForms einstellen
               DoCmd.OpenForm InternalAuditScheduleList.ItemData (x), acViewNormal
            acReport -32764 Rechtssache '
                'Obj = CurrentProject.AllReports einstellen
              DoCmd.OpenReport InternalAuditScheduleList.ItemData (x), acViewPreview

            acMacro -32766 Rechtssache '
                'Obj = CurrentProject.AllMacros einstellen
            DoCmd.RunMacro InternalAuditScheduleList.ItemData (x)
            'acModule umkleiden
                'Obj = CurrentProject.AllModules einstellen
            'acDataAccessPage umkleiden
                'Obj = CurrentProject.AllDataAccessPages einstellen
        Auserwähltes beenden
    Zunächst
 
Exit_ScrapSinceOK_Click:
    Unterseeboot herausnehmen
 
Err_ScrapSinceOK_Click:
    MsgBox irren. Beschreibung
    Zusammenfassung Exit_ScrapSinceOK_Click
    
Enden-Unterseeboot

Antwort : Microsoft Access vba Code zum Vorwählen Gegenstände von einem kombinierten Kasten

diese Linie entfernen

Für jedes 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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

Privates VorScrapSinceOK_Click ()

'DoCmd.RunMacro „DialogOK“

Me.Visible = ausrichten en
Auf Störung Goto- Err_ScrapSinceOK_Click

Schwache x-so Variante, strObject wie lang, strObject1 als lang, strObject3 als lang, strObject4 als lang, strObject5 als lang, obj als AccessObject
Schwaches J
Mit Me.InternalAuditScheduleList
    Für J = 0 zu .ListCount - 1

            strObject =. Spalte (1, j)
            Fall strObject vorwählen
                1 'acTable Rechtssache
                'Obj = CurrentData.AllTables einstellen
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
                Rechtssache 4 'acTable
                    'Obj = CurrentData.AllTables einstellen
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
                Rechtssache 6 'acTable
                    'Obj = CurrentData.AllTables einstellen
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
                Rechtssache 5 'acQuery
                    'Obj = CurrentData.AllQueries einstellen
                    DoCmd.OpenQuery InternalAuditScheduleList.ItemData (x), acViewNormal
                    '    DoCmd.OpenQuery obj, acViewNormal
                    '    DoCmd.OpenQuery strObject, acViewNormal
                Rechtssache -32768 'acForm
                    'Obj = CurrentProject.AllForms einstellen
                    DoCmd.OpenForm InternalAuditScheduleList.ItemData (x), acViewNormal
                acReport -32764 Rechtssache '
                    'Obj = CurrentProject.AllReports einstellen
                    DoCmd.OpenReport InternalAuditScheduleList.ItemData (x), acViewPreview
                acMacro -32766 Rechtssache '
                    'Obj = CurrentProject.AllMacros einstellen
                    DoCmd.RunMacro InternalAuditScheduleList.ItemData (x)
                'acModule umkleiden
                    'Obj = CurrentProject.AllModules einstellen
                'acDataAccessPage umkleiden
                    'Obj = CurrentProject.AllDataAccessPages einstellen
            Auserwähltes beenden

    Zunächst
Ende mit
 
Exit_ScrapSinceOK_Click:
    Unterseeboot herausnehmen
 
Err_ScrapSinceOK_Click:
    MsgBox irren. Beschreibung
    Zusammenfassung Exit_ScrapSinceOK_Click
    
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us