Discussion :

[thoruiz]

Bonjour,
j'ai le problème suivant: dans un formulaire je voudrais remplir un controle1 (type liste), avec une saisie effectuée dans un controle2(type liste modifiable). De sorte que chacune des saisie ou selection dans controle2, le texte saisi s'ajoute dans le controle1.

Si mon explication n'est pas assez claire faites-le moi savoir
Amicalement
Thoruiz

[argyronet]

Bonjour,

Les contrôles Liste et Combo d'Access sont incompatibles ave la méthode AddItem donc pour ton cas, je te suggère de créer une table temporaire (que tu vides à l'ouverture du formulaire) et qui se rempli au fur et à mesure que tu choisis un élément dans la zone de liste.
Bien entendu, tu seras sensé contrôler les doubles entrées afin d'éviter les doublons.
A chaque événement Click() ou AfterUpdate(), tu affectes ta ListBox à la table temporaire (RowSource).



Argy

[thoruiz]

Merci de votre réponse rapide. Je n'ai pas tout compris. Comment la table temporaire est-elle crée? s'agit-t-il d'une requête création de table? à partir de quel évènement?
Pourriez vous m'écrire un bout de code à partir duquel je pourrais avancer?
Dernier soucis, je souhaite que controle2 affiche instantanément les saisies de controle1.
Si controle1 était un champ mémo, cela serait-il plus simple?
Merci de m'éclairer.

[argyronet]

Bien...
Tu créés une table nommée TBLTempItemData avec un champ texte nommé ItemSelected.

Tu créés un formulaire avec une ComboBox et une ListBox.
Dans la ComboBox que j'ai nommé pour l'exemple cmbAvailableList, tu affectes une table de manière à ce que la la liste des éléments à choisir apparaissent.
Dans la ListBox, tu n'appliques rien.

Sur l'événement Load du formulaire, tu places le code suivant:

Code :

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

1
2
3
4
5
Dim SQLDelete As String
 
  SQLDelete = "DELETE * FROM TBLTempItemData"
  CurrentDb.Execute SQLDelete, dbSeeChanges
  lstYourChoice.RowSource = vbNullString

=> celui-ci efface le contenu de la table et la liste

Sur l'événement AfterUpdate de cmbAvailableList , tu places le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
Dim strSelection As String
 
  strSelection = Me!cmbAvailableList
  If NotAlreadyExists(strSelection) Then
    AddNewItem strSelection, "TBLTempItemData"
    lstYourChoice.RowSource = "TBLTempItemData"
  Else
    MsgBox "Élément déjà ajouté !", 48
  End If

Tu ajoutes enfin cette fonction et cette méthode qui vont se charger de vérifier l'existence et l'ajout des données dans la table.

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
Private Function NotAlreadyExists(ByVal ItemToCheck As String) As Boolean
Dim oRS As Recordset
Dim SQLSelect As String
 
  SQLSelect = "SELECT * FROM TBLTempItemData WHERE ItemSelected = " & Chr(34) & ItemToCheck & Chr(34)
  Set oRS = CurrentDb.OpenRecordset(SQLSelect, 2)
    NotAlreadyExists = oRS.EOF
    oRS.Close
  Set oRS = Nothing
End Function
 
Private Sub AddNewItem(ByVal WhatToAdd As String, ByVal TableName As String)
Dim SQLInsert As String
 
  SQLInsert = "INSERT INTO " & TableName & " (ItemSelected) VALUES (" & Chr(34) & WhatToAdd & Chr(34) & ");"
  CurrentDb.Execute SQLInsert, dbSeeChanges
End Sub

Tu passes en mode formulaire et tu testes... et ça marche...
A toi de peaufiner selon tes besoins.

Argy