Zone de liste VBA/Access
Résolu
saanaa
Messages postés
16
Date d'inscription
Statut
Membre
Dernière intervention
-
harhor -
harhor -
A voir également:
- Zone de liste VBA/Access
- Liste déroulante excel - Guide
- Alternative zone telechargement - Accueil - Outils
- Liste déroulante en cascade - Guide
- Liste code ascii - Guide
- Liste de diffusion whatsapp - Guide
8 réponses
Bonsoir,
VOici une partie de réponse : Les éléments sélectionnés dans la liste 1 sont charés vers liste 2 sur évènement de ton choix
---------------1. Vider la liste 2----
Private Sub vider_liste2()
Dim x As Integer
If Me.Liste2.ListCount > 0 Then
For x = 1 To Me.Liste2.ListCount
Me.Liste2.RemoveItem (x)
Next x
End If
End Sub
---------------2. Alimenter liste 2---------
Private Sub charge_liste2()
If Me.liste1.ItemsSelected.Count > 0 Then
Me.Liste2.AddItem Me.liste1.Column(1)
End If
End Sub
Il manque des vontrpoles de doublons mais j'espère que ceci t'aidera.
Bonne continuation.
VOici une partie de réponse : Les éléments sélectionnés dans la liste 1 sont charés vers liste 2 sur évènement de ton choix
---------------1. Vider la liste 2----
Private Sub vider_liste2()
Dim x As Integer
If Me.Liste2.ListCount > 0 Then
For x = 1 To Me.Liste2.ListCount
Me.Liste2.RemoveItem (x)
Next x
End If
End Sub
---------------2. Alimenter liste 2---------
Private Sub charge_liste2()
If Me.liste1.ItemsSelected.Count > 0 Then
Me.Liste2.AddItem Me.liste1.Column(1)
End If
End Sub
Il manque des vontrpoles de doublons mais j'espère que ceci t'aidera.
Bonne continuation.
salut pour ts
dézolé javai probleme de connexion donc jai pa pu vous repondre,et heureusement jai résolu mon probleme hier
j'ai 2 liste:
dans click list1:
Liste2.AddItem Item:=Liste0, Index:=0
dans clik liste2:
Dim a As Integer
a = Liste2.ListIndex
If a >= 0 Then Liste2.RemoveItem a '''''' on veu suprimer l'element de la 2eme liste
et pour récuperer les données du 2eme liste et chercher la valeur correspondante dans une table et la stocker :
Dim res, res1 As Recordset
Dim i As Integer
Dim didi, REQSQL, REQSQL1, a As String
ReDim TIdMuf(0 To Liste0.ListCount) As Integer
For i = 0 To Me.Liste2.ListCount - 1
a = Me.Liste2.Column(0, i)
a = "'" & a & "'"
REQSQL = "SELECT IDMUF,NUMPROMESS,DATEPROMESSE,MATRICULE FROM PROMESSE WHERE MATRICULE=" & a & " "
Set db = CurrentDb()
Set res = db.OpenRecordset(REQSQL)
TIdMuf(i) = res.Fields(0).Value
Next i
Mais maintenant jai un autre probleme: je veux afficher le résultat de la requette dans un tableau
j'ai pu la stocker dans une table mai jai pa pu l'afficher.
Merci
pour TheMan: wi ana hiya dayra abonement m3a vba/access had l'été lol
dézolé javai probleme de connexion donc jai pa pu vous repondre,et heureusement jai résolu mon probleme hier
j'ai 2 liste:
dans click list1:
Liste2.AddItem Item:=Liste0, Index:=0
dans clik liste2:
Dim a As Integer
a = Liste2.ListIndex
If a >= 0 Then Liste2.RemoveItem a '''''' on veu suprimer l'element de la 2eme liste
et pour récuperer les données du 2eme liste et chercher la valeur correspondante dans une table et la stocker :
Dim res, res1 As Recordset
Dim i As Integer
Dim didi, REQSQL, REQSQL1, a As String
ReDim TIdMuf(0 To Liste0.ListCount) As Integer
For i = 0 To Me.Liste2.ListCount - 1
a = Me.Liste2.Column(0, i)
a = "'" & a & "'"
REQSQL = "SELECT IDMUF,NUMPROMESS,DATEPROMESSE,MATRICULE FROM PROMESSE WHERE MATRICULE=" & a & " "
Set db = CurrentDb()
Set res = db.OpenRecordset(REQSQL)
TIdMuf(i) = res.Fields(0).Value
Next i
Mais maintenant jai un autre probleme: je veux afficher le résultat de la requette dans un tableau
j'ai pu la stocker dans une table mai jai pa pu l'afficher.
Merci
pour TheMan: wi ana hiya dayra abonement m3a vba/access had l'été lol
dans click list1:
Liste2.AddItem Item:=Liste0, Index:=0
en faite le "clik list1"est le clik sur la 1ere liste son nom :Liste0 ,Liste2 est le nom de la 2eme liste
Liste2.AddItem Item:=Liste0, Index:=0
en faite le "clik list1"est le clik sur la 1ere liste son nom :Liste0 ,Liste2 est le nom de la 2eme liste
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
...voir ceci
'---Vider la zone de liste
Do While Liste.ListCount > 0
Liste.RemoveItem (0)
Loop
'---