Discussion :

[Daniel MOREAU]

Bonsoir,

Je viens de parcourir les cours et tutoriels, et j'ai constaté que l'on pouvait basculé des éléments d'une liste box vers une autre.

Je souhaiterai savoir si c'est possible de faire la même chose à partir d'une requête.

Pour être plus précis, j'ai une liste de rendez-vous que je dois affecter manuellement pour chaque client.

Je ne vois pas comment automatiser cette procédure puisque je n'ai pas de "Code Client" précis, alors j'ai pensé à faire une affectation manuelle via une liste box.

En fait après avoir sélectionné un ou plusieurs rendez-vous de ma première listebox, je les bascule vers la seconde listebox pour ensuite les affecter à un client.

voici le code utilisé pour basculer les jours de la semaine

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub TransposerElement(lstSource As ListBox, lstDestination As ListBox, _
  Optional LimiteSelection As Boolean = True)
 
Dim i As Integer
Dim strTemp As String
With lstSource
For i = 0 To .ListCount - 1
  'si l'élement est sélectionné dans la liste source
  If .Selected(i) Or Not LimiteSelection Then
    lstDestination.RowSource = lstDestination.RowSource & .Column(0, i) & ";"
  Else
  'sinon, le conserve dans la liste source
    strTemp = strTemp & .Column(0, i) & ";"
  End If
Next i
'Affecte la nouvelle source à lstSource
.RowSource = strTemp
End With
End Sub
'Copie les élements sélectionnés vers la liste de droite
Private Sub GaucheDroite_Click()
TransposerElement lstGauche, lstDroite
End Sub

Si toutefois c'est possible pouvez-vous m'aider à modifier ce code.

Merci d'avance.

Daniel

[ypicot]

En access, il n'est pas possible de basculer les valeurs comme en VB6 (le controle ListBox n'est pas le même).

Il est nécessaire de supprimer l'enregistrement dans une table, l'ajouter dans l'autre et faire un requery pour mettre à jour l'affichage

Accessment,

Yvan

[Daniel MOREAU]

salut,

Merci de m'avoir répondu.

Je pensais que c'était possible.

Je vais procéder autrement.

Merci encore.

Daniel