Question : code de vba de Microsoft Access aux objets choisis d'une boîte combinée

J'ai le code suivant qui fonctionne bien en choisissant les objets (tables, formes, rapports, etc.) à partir d'une boîte de liste.  Cependant, je rencontre des problèmes en employant la même logique pour choisir des articles à partir d'une boîte combinée.  Le code ci-dessous est pour une boîte de liste et je demandais l'aide experte en l'adaptant dans une boîte combinée.  Merci.  Ma boîte combinée s'appelle le Combo1. class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 " de l'id= " codeSnippet821691 de
class= de

Réponse : code de vba de Microsoft Access aux objets choisis d'une boîte combinée

enlever cette ligne

Pour chaque x dans 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 secondaire privé ()

'DoCmd.RunMacro « DialogOK »

Me.Visible = rectifient
Sur l'erreur Err_ScrapSinceOK_Click GoTo

Faible de x variante aussi, strObject que longtemps, strObject1 en tant que longtemps, strObject3 en tant que longtemps, strObject4 en tant que longtemps, strObject5 en tant que longtemps, obj comme AccessObject
Faible j
Avec Me.InternalAuditScheduleList
    Pour j = 0 à .ListCount - 1

            strObject =. Colonne (1, j)
            Choisir le strObject de cas
                Affaire 1 'jouable
                'Placer l'obj = le CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
                Affaire 4 'jouable
                    'Placer l'obj = le CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
                Affaire 6 'jouable
                    'Placer l'obj = le CurrentData.AllTables
                    DoCmd.OpenTable InternalAuditScheduleList.ItemData (x), acViewNormal
                acQuery de l'affaire 5 '
                    'Placer l'obj = le CurrentData.AllQueries
                    DoCmd.OpenQuery InternalAuditScheduleList.ItemData (x), acViewNormal
                    '    Obj de DoCmd.OpenQuery, acViewNormal
                    '    strObject de DoCmd.OpenQuery, acViewNormal
                acForm de l'affaire -32768 '
                    'Placer l'obj = le CurrentProject.AllForms
                    DoCmd.OpenForm InternalAuditScheduleList.ItemData (x), acViewNormal
                Affaire le 'acReport -32764
                    'Placer l'obj = le CurrentProject.AllReports
                    DoCmd.OpenReport InternalAuditScheduleList.ItemData (x), acViewPreview
                Affaire le 'acMacro -32766
                    'Placer l'obj = le CurrentProject.AllMacros
                    DoCmd.RunMacro InternalAuditScheduleList.ItemData (x)
                'Enfermer l'acModule
                    'Placer l'obj = le CurrentProject.AllModules
                'Enfermer l'acDataAccessPage
                    'Placer l'obj = le CurrentProject.AllDataAccessPages
            Finir choisi

    Après
Extrémité avec
 
Exit_ScrapSinceOK_Click :
    Sortir le sous-marin
 
Err_ScrapSinceOK_Click :
    MsgBox errent. Description
    Résumé Exit_ScrapSinceOK_Click
    
Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us