Discussion :

[vexalys]

Bonjour à tous,

Déjà un grand merci, car j'ai bcp évolué dans mon projet grâce à tous vos tutos, le forum etc .... et bien sur l'aide microsoft.

Mais la je bug et sur un truc tout bête, je ne trouve pas dans le site la réponse à ma question, quoi je trouve des choses mais n'arrive pas à adapter les différentes sources à ma demande étant donné mon niveau.

J'ai un combobox rempli avec une requête, jusque là tout va bien. Je me retrouve avec "Element de liste 1, Element de liste 2 ...."

Je souhaiterais qu'en cliquant sur tel ou tel Element cela m'ouvre simplement un formulaire ou un état.

J'ai essayé avec Select Case. value .Index .texte bref un peu tout .... mais je n'y arrive pas

Je pense que cela vient peut être de ma requête qui fait référence à l'id plutôt qu'au nom qui s’affiche dans ma combobox.

J'ai donc essayer de remplir ma combo box directement en vb (pour y faire référence via l’événement combobox_afterupdate et mon Select Case) avec .AddItem sur form_load() mais là non plus ça ne marche pas. A vrai dire je n'arrive même pas à remplir ma combobox.

Bref, besoin de vous ou d'un lien que peut être je n'ai pas vu dans le site.

Remplir une combobox en vba avec AddItem
Ouvrir un formulaire ou état sur clic dans la combobox.

Merci d'avance

En fait je veux un combobox du style de celui de la base Northwind du formualire "employé détail" quand tu cliques sur un élément cela ouvre un état. Mais dans cette base cela fait appel à tout les états présents dans la base via la table MsysObject mais moi je ne veux que certains Etats et aussi certains fournisseurs. (choisi au préalable selon mon formulaire via une requête)



Donc j'ai essayé ce genre de truc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Private Sub Form1_Load
        ComboBox1.Items.Add("First")
        ComboBox1.Items.Add("Second")
        ComboBox1.Items.Add("Third")
        ComboBox1.Items.Add("Fourth")
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBox1_SelectedIndexChanged ou afterupdate ou clic
        Select Case ComboBox1.Value (ou text ou index ...)
            Case 0
               'Ouvre un formulaire
            Case 1
              'Ouvre un état
            Case 2 ....
 
        End Select
28
    End Sub
29

[marot_r]

Bonjour.

Pourquoi ne pas utiliser l'événement Après MAJ de ta liste ?

Sinon que veux-tu faire exactement Ouvrir un formulaire qui porte le nom indiqué dans ta liste ?

Enfin, il existe dans Access un menu (un peu caché) de type "switchboard" (tableau de boutons) qui pourrait bien faire ce que tu veux.

Ici comment le trouver.

https://www.addintools.com/documents...d-manager.html

A+

[vexalys]

hello

merci de ton retour, vais regarder le lien que tu m'as fais parvenir

pour ma combobox, j'ai tout essayé

événement sur après maj et sur clic mais ça ne donne rien

j'ai essayé avec Select Case avec des If ..; Then, bref je n'y arrive pas

Vais continuer de chercher car je suis sûre c'est tout bête et je bloque pour rien

et j'ai le temps

[Jeannot45]

Je souhaiterais qu'en cliquant sur tel ou tel Element cela m'ouvre simplement un formulaire ou un état.

C'est ce que je retiens de ta demande dans ton post.

Comme te le disait marot_r, il faut agir sur l’événement Après_MAJ de ta liste. Chaque fois que tu fais un choix, la valeur de la liste change en prenant la valeur de l'ID de ton enregistrement.

Dans ta procédure tu pourrais écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
       DoCmd.OpenForm "NomObjet", acNormal, , "ID = " & Me.ActiveControl

NomObjet sera le Nom du Formulaire ou Nom de l'état à ouvrir

Bonne continuation

[vexalys]

Merci de l'intérêt que tu m'accordes. Je vais suivre ton conseil, mais c'est dèjà ce que j'avais essayé. J'écrivais mon code dans événementiel liste apres maj mais je n'ai pas le bon code.
Je vais essayer avec ta solution, je vais y arriver. Et surtout je veux comprendre pourquoi je bug

merci en tout cas