Discussion :

[jojodid]

Bonjour!
J'ai sous access 2003 un formulaire avec 2 zones de listes déroulantes et une zone de liste en multiselection; je voudrais savoir quel code écrire sur le bouton d'enregistrement pour recuperer mes sélection.
zone liste déroulante 1 = période
zone liste déroulante 2 = Tacheron
zone liste multiselect = Ouvriers

[Heureux-oli]

Salut,

La première chose à récupérer, c'est le contenu du multiselect.

Ensuite, pour chaque enregistrement récupéré, tu ajoutes le contenu des deux listes.

Code :

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

1
2
3
4
Dim selMult
For Each selMult In Me.Liste0.ItemsSelected
    Debug.Print Me.Liste0.ItemData(selMult) & "-" & Me.liste1 & "-" & Me.liste2
Next selMult

[jojodid]

Merci pour votre réponse prompte;
J'ai certainement été imprécis, car je souhaiterais en fait porter ces enregistrements dans ma table Affectation dont les champs sont Période, Tâcheron et Ouvrier.
Debug.print permet-il de faire cela?

[Heureux-oli]

Salut,

Debug.print permet de visualiser le résultat dans la fenêtre exécution de VBE.

Cette précision n'était pas dans la question.

Pour ajouter des enregistrements dans la table de ton choix, il suffit de la faire par DAO, mais sans autre précision c'est pas très simple.

Une bonne idée serait de nous donner le nom exact de la table est des champs affectés.

[jojodid]

Vrais je reconnais n'avoir pas été assez claire et je m'en excuse.
Pour ce qui est des noms de tables voici:
Table Affectation N_Aff , N_periode , Code_Tacheron , Code_Ouvrier.

Sur le formulaire, Modifiable11 correspond à Période, Modifiable0 à Tacheron, et Liste18 à Ouvriers.

[babar001]

Salut
Quelque chose comme cela?

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim mesenr As Recordset
Set mesenr = New ADODB.Recordset
mesenr.ActiveConnection = CurrentProject.Connection
mesenr.Open "Table Affectation", , adOpenDynamic, adLockOptimistic
mesenr.Addnew
mesenr![Code_Ouvrier] = Me![ListeTacheron]
mesenr.Update
mesenr.Close

[Heureux-oli]

Salut,

J'opterais pour le DAO.

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
Dim rs As Recordset
Dim sql As String
Dim selMult
 
sql  = "SELECT * From Table Affectation"
Set rs = CurrentDB.OpenRecordset(sql)
 
For Each selMult In Me.Liste0.ItemsSelected
    rs.AddNew
    rs.Fields("N_periode") = Me.Liste0.ItemData(selMult)
    rs.Fields("Code_Tacheron") = Me.Liste1
    rs.Fields("Code_Ouvrier") = Me.Liste2
    rs.Update
Next selMult
rs.Close
set rs = Nothing

Si tu veux en apprendre un peu plus sur le DAO : http://warin.developpez.com/access/dao/

[jojodid]

Merci Heureux-oli pour ta réponse. Ton code résout bien mon problème;
seulement je me demande comment réinitialiser la zone de liste de multi-sélection après le traitement.

[Heureux-oli]

Essaie avec un Requery sur ton contrôle.

[jojodid]

finalement j'ai complété le code par un autre boucle après la fermeture du recordset; et cela me permet de remettre à zéro la zone de multi sélection.
Le code est le suivant:

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
25
26
27
28
29
 
Private Sub Commande20_Click()
Dim rso As Recordset
Dim sql As String
Dim selMult
Dim I As Variant
 
 
sql11 = "SELECT * FROM T_Affectation"
 Set rso = CurrentDb.OpenRecordset(sql11)
 
For Each selMult In Me.Liste25.ItemsSelected
    rso.AddNew
    rso.Fields("N_periode") = Me.Modifiable11
    rso.Fields("Code_Tacheron") = Me.Modifiable0
    rso.Fields("Code_Ouvrier") = Me.Liste25.ItemData(selMult)
 
    rso.Update
 
Next selMult
 
rso.Close
Set rso = Nothing
For Each I In Liste25.ItemsSelected
    If Liste25.Selected(I) = True Then
    Liste25.Selected(I) = False
    End If
Next
End Sub

Ensuite j'aimerais personnaliser le message d'erreur de doublon 3022 obtenu lorsque l'ouvrier est déjà affecter pour le mois en sélectionné.ET si possible ressortir la liste des ouvriers à la base de l'erreur