Discussion :

[exclusif]

Bonjour,

Comment faire pour sélectionner un élément dans une Combo à partir d'un rs!IdTypeAgenda sachant que je le charge de cette manière ?

Code :

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

1
2
3
4
5
6
7
8
9
rs.Open "SELECT * FROM T_TypeAgenda", db, adOpenKeyset, adLockOptimistic
rs.MoveFirst
FrmModifAgenda.Combo1.Clear
While (rs.EOF = False)
    FrmModifAgenda.Combo1.AddItem StrConv(rs!NomTypeAgenda, vbProperCase)
    FrmModifAgenda.Combo1.ItemData(FrmModifAgenda.Combo1.NewIndex) = rs!IdTypeAgenda
    rs.MoveNext
Wend
rs.Close

Merci à tous,

Ludo

[bricoyeye]

salut

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Combo1_Click()
Dim critere As string
critere = "ton critere = #" & Combo1.Text & "#"
rs.MoveFirst
    rs.Find critere
 
 
    Text1.Text = CStr(rs!ta table)
End Sub

[exclusif]

Merci pour ta réponse bricoyeye mais est-ce que je ne peux pas lui donner un rs!IdTypeAgenda tout simplement afin qu'il m'affiche le texte associé ?

[bricoyeye]

Salut,
Tu veux faire quoi?
Que mets tu dans le combo, et que veut tu afficher pouir ta selection?
Admettons que tu ais un champs Nom, et que tu veuilles afficher les champs qui sont associés à ce nom par exemple adresse, tel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Combo1_Click()
Dim critere As string
critere = "nom = #" & Combo1.Text & "#"
rs.MoveFirst
    rs.Find critere
 
 
    Text1.Text = CStr(rs!adresse)
Text2.Text = CStr(rs!tel)
 
End Sub

Dans text1, sera affiché l'adresse du nom que tu auras choisi dans ton combo.

[exclusif]

Je m'explique, au chargement de mon formulaire les items de mon combo sont chargés depuis une base de données de la manière suivante :

Code :

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

1
2
3
4
5
6
7
8
9
rs.Open "SELECT * FROM T_TypeAgenda", db, adOpenKeyset, adLockOptimistic
rs.MoveFirst
FrmModifAgenda.Combo1.Clear
While (rs.EOF = False)
    FrmModifAgenda.Combo1.AddItem StrConv(rs!NomTypeAgenda, vbProperCase)
    FrmModifAgenda.Combo1.ItemData(FrmModifAgenda.Combo1.NewIndex) = rs!IdTypeAgenda
    rs.MoveNext
Wend
rs.Close

Ce que je voudrais en plus c'est mettre en valeur par défaut l'un de ses items (sachant que ce ne sera jamais le même suivant quel enregistrement de ma base je désire modifier.) et donc pas seulement modifier la combo.text car sinon si je valide mon formulaire sans toucher à mon combo alors je me retrouve avec une erreur car l'index associé n'est pas trouvé.

[bricoyeye]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub SelectByItemData(Cm as ComboBox,ItemData as Long)
Dim i as Long
For i = 0 to Cm.ListCount-1
If Cm.ItemData(i) = ItemData Then
Cm.ListIndex = i
Exit Sub
End If
Next
Msgbox "ItemData non trouvé"
End Sub

ça devrait marcher

[exclusif]

Merci bricoyeye maintenant ca fonctionne