Préselection des élements d'une ListBox
Résolu
rampa99
Messages postés
8
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
16 août 2005
-
15 août 2005 à 22:10
rampa99 Messages postés 8 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 16 août 2005 - 16 août 2005 à 21:05
rampa99 Messages postés 8 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 16 août 2005 - 16 août 2005 à 21:05
A voir également:
- Vba listbox selected item value
- Vba listbox additem ✓ - Forum Visual Basic 6
- Doevents vba - Conseils pratiques -Visual Basic / VB.NET
- Vba listbox selected item index ✓ - Forum VB.NET
- Listview selected item ✓ - Forum C# / .NET
- Vba listview selected item - Forum Visual Basic
4 réponses
rampa99
Messages postés
8
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
16 août 2005
16 août 2005 à 21:05
16 août 2005 à 21:05
Voila un peu de recherche et de tatonnements et j'ai trouvé
Dim requete As String
Dim para As String
'récupération & conversion de l'identifiant du texte
para = Conversion.CStr(Forms!f_textes!textes_id.Value)
'requete de selection des contenants
requete = "SELECT contenants_id from contenants_textes where textes_id=" & para
Dim db As Database
Set db = CurrentDb
Dim R As DAO.Recordset
Set R = db.OpenRecordset(requete)
For i = 0 To Forms!f_textes_sf_contenants_MAJ!l_contenants.ListCount - 1
'On parcourt chaque élément de la listbox. L'indexation commence à 0
R.FindFirst "[contenants_id]
= " & Forms!f_textes_sf_contenants_MAJ!l_contenants.ItemData(i)
'on recherche si un des elements
de la requete correspond à l'objet de la liste actuellement étudié
If R.NoMatch Then
'pas de correspondance: on ne fait rien
'MsgBox "Contenant " &
Forms!f_textes_sf_contenants_MAJ!l_contenants.ItemData(i) & " pas
dans la liste"
Else
'L'élément est dans la liste, on le passe donc à sélectionné
'MsgBox "Contenant " &
Forms!f_textes_sf_contenants_MAJ!l_contenants.ItemData(i) & " dans
la liste"
Forms!f_textes_sf_contenants_MAJ!l_contenants.Selected(i) = True
End If
Next
'On passe à l'objet suivant de la liste
R.Close
pour les ! ceci semble etre le standard pour VBA access (mais comme je l'ai dit plus haut je débute)
Dim requete As String
Dim para As String
'récupération & conversion de l'identifiant du texte
para = Conversion.CStr(Forms!f_textes!textes_id.Value)
'requete de selection des contenants
requete = "SELECT contenants_id from contenants_textes where textes_id=" & para
Dim db As Database
Set db = CurrentDb
Dim R As DAO.Recordset
Set R = db.OpenRecordset(requete)
For i = 0 To Forms!f_textes_sf_contenants_MAJ!l_contenants.ListCount - 1
'On parcourt chaque élément de la listbox. L'indexation commence à 0
R.FindFirst "[contenants_id]
= " & Forms!f_textes_sf_contenants_MAJ!l_contenants.ItemData(i)
'on recherche si un des elements
de la requete correspond à l'objet de la liste actuellement étudié
If R.NoMatch Then
'pas de correspondance: on ne fait rien
'MsgBox "Contenant " &
Forms!f_textes_sf_contenants_MAJ!l_contenants.ItemData(i) & " pas
dans la liste"
Else
'L'élément est dans la liste, on le passe donc à sélectionné
'MsgBox "Contenant " &
Forms!f_textes_sf_contenants_MAJ!l_contenants.ItemData(i) & " dans
la liste"
Forms!f_textes_sf_contenants_MAJ!l_contenants.Selected(i) = True
End If
Next
'On passe à l'objet suivant de la liste
R.Close
pour les ! ceci semble etre le standard pour VBA access (mais comme je l'ai dit plus haut je débute)
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
15 août 2005 à 23:38
15 août 2005 à 23:38
salut
si çà peut t'aider, tes ! partout, çà me laisse perplexe...
2e point, requete, je l'aurais écrit de cette manière :
requete "SELECT contenants_id FROM contenants_textes WHERE textes_id '" & para & "'"
désolé de pas pouvoir faire plus. (VB6)
PCPT
si çà peut t'aider, tes ! partout, çà me laisse perplexe...
2e point, requete, je l'aurais écrit de cette manière :
requete "SELECT contenants_id FROM contenants_textes WHERE textes_id '" & para & "'"
désolé de pas pouvoir faire plus. (VB6)
PCPT
rampa99
Messages postés
8
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
16 août 2005
16 août 2005 à 00:04
16 août 2005 à 00:04
Petite précision: je suis en VBA pour Acces version 2002.
Les ! ne posent pas de pb pas plus que la requete (teste autrement).
Mon probleme c'est d'acceder aux Item de ma listBox et positionner la
valeur Selected à true.
Les ! ne posent pas de pb pas plus que la requete (teste autrement).
Mon probleme c'est d'acceder aux Item de ma listBox et positionner la
valeur Selected à true.
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
16 août 2005 à 00:17
16 août 2005 à 00:17
j'ai précisé VB6 pour que tu vois pourquoi "perplexe" était le mot
je suppose que la commande Debug.Print existe sous VBA.
si c'est le cas, dans ta boucle, peux-tu remplacer MsgBox par Debug.Print et copier le résultat qui apparaitra dans la fenêtre d'execution, ici?
ainsi que le nom de ta ListBox stp
ce qui m'étonne surtout dans ta boucle, c'est qu'il n'y ait pas de MoveNext.....
PCPT
je suppose que la commande Debug.Print existe sous VBA.
si c'est le cas, dans ta boucle, peux-tu remplacer MsgBox par Debug.Print et copier le résultat qui apparaitra dans la fenêtre d'execution, ici?
ainsi que le nom de ta ListBox stp
ce qui m'étonne surtout dans ta boucle, c'est qu'il n'y ait pas de MoveNext.....
PCPT