Discussion :

[mmcg79]

Bonjour,
je bloque sur une partie de mon programme.
Je voudrai faire une boucle dans une zone de liste (Personne du cour).
Je m'explique:
J'ai une base de donnée de client et je choisi le ou les clients que je veux pour les mettre dans cette zone de liste.
Depuis cette zone de liste j'aimerai en un clic remplir une table (TCour) ou je retrouve un client par ligne.

comment faire ?
voici un petit bout de mon code
sa fonctionne jusqu'au (for i)

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
30
31
32
33
34
35
36
37
38
Dim SQL As String
Dim i As Long
Dim itm As Variant, retval
 
DoCmd.SetWarnings False                                                         'Désactivation des messages access
 
'                                   'Sélectionne toute la liste "Personneducour"
 
 
With Personnesducour                                                            'boucle de la liste
 
 
 
 
    For Each itm In .ItemsSelected
 
SQL = " "                                                                       'Création du code SQL
 
 
        SQL = "INSERT INTO TCours Values"
        SQL = SQL & " (" & Me.Personnesducour.Column(0) & " ,"                  'TCours colonne 'ClientId'
        SQL = SQL & " '" & ChaineOdbc(Me.Personnesducour.Column(1)) & "' ,"     'TCours colonne 'Personnesducour'
        SQL = SQL & " '" & Me.EmployeId.Column(1) & "' ,"                       'TCours colonne 'EmployeId'
        SQL = SQL & " #" & Me.Moment_du_cour & "# ,"                            'TCours colonne 'Date du cour'
        SQL = SQL & " " & Me.Coupons & " )"                                     'TCours colonne 'Coupons'
 
DoCmd.RunSQL (SQL)                                                              'Lancement du SQL
 
            For i = 0 To Me.Personnesducour.ListCount
            Me.Personnesducour.Selected(i) = i - 1
            Next i
 
 
    Next itm
 
     End With                                                                   'sortie de la boucle
 
'DoCmd.SetWarnings True

[marot_r]

Bonjour.

En fait tu peux y arriver sans programmation en utilisant un formulaire et un sous-formulaire.

Je vais supposer que tu as la structure suivante :

tblCours
ClefCours
Autres infos sur le cours (ex : Titre, résumé)

tblPersonne
ClefPersonne
Autres infos (ex : Nom, Prenom)

tblCoursPersonne
ClefCoursPersonne
ClefCours
ClefPersonne
DateCours

Ensuite tu crées un formulaire sur tblCours.
Tu y ajoutes un sous-formulaire basé sur tblCoursPersonne.
Et dans ce sous-formulaire tu définis une liste déroulante basée sur tblPersone.
Comme cela tu pourras ajouter tes personnes une à une au cours qu'elles vont suivre.

A+

[mmcg79]

Merci pour votre proposition, mais je ne pense pas que ce que vous me proposer aie pour mon programme, a moins que je me trompe je début sur access.

Dans les renseignements des personnes il y a une date, une abréviation et des points.
Ce que j'aimerai faire en partant de cette table (TCour) c'est que ca classe tout seul par personne les infos annexes dans leur fiche personnel qui est déjà créer.

si vous voulez voir mon programme je peux le mettre en pièce jointe, mais en privé.

[marot_r]

Bonjour.

Ce que j'aimerai faire en partant de cette table (TCour) c'est que ca classe tout seul par personne les infos annexes dans leur fiche personnel qui est déjà créer.

De ce que j'ai compris tu as des cours et des personnes.
Et tu souhaites seulement associer les cours aux personnes donc les informations complémentaires sur les personnes n'entre pas en ligne de compte dans leur assignation à un cour.

Avec la solution que j'ai en tête, tu as :

1. Les cours
2. Association Cour <-> Personne
3. Les personnes
4. Association Personne <-> Ses Informations complémentaires

Est-ce que cela répond à ta demande ?

Si non, peux-tu mettre un exemple de ce que tu attends ?

A+

[mmcg79]

exemple:
J'ai un formulaire ou il y a deux zone de liste , une case ou on peut mettre la date, une ou on a une liste déroulante et une autre ou on peux écrire un chiffre a virgule.
La première zone de liste a la base de donnée des personnes avec leurs ID.
puis j'alimente la deuxième zone de liste en fonction des personnes que je choisi.
je choisi une date puis une abréviation dans la liste déroulante et je met un chiffre.

Ca c'est bon .

De là, j'aimerai en un seul clic, inscrire la date, l'abréviation et le chiffre, sur chaque fiche personnel des personne mis dans la deuxième zone de liste.

si jamais on fait comment pour que je puisse vous envoyez en privé mon programme?

[marot_r]

Bonjour.

OK, je n'avais pas compris ton besoin.

si jamais on fait comment pour que je puisse vous envoyez en privé mon programme?

Habituellement j'envoie mon adresse courriel perso en message privé mais je n'ai pas le temps pour cela.

Revenons à ton problème.

Tu as donc quelque chose comme :

• ClefCour (Le cour concerné)
• personnesDuCour (Liste des personnes à mettre à jour)
• dateMAJ (date à inscrire)
• valeurMAJ (valeur avec décimale à mettre à jour)
• T_Cours (table qui te donnes l'association entre le cour et la personne, qui va être mise à jour)

Ici un exemple de code qui va modifier toutes les personnes du cours et créer les personnes manquantes.

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
dim db as dao.database: set db=currentdb
dim r as dao.recordset: set r=db.openrecordset("T_Cours")
dim critere as string
 
dim itm as variant: For Each itm In me.personnesDuCour.ItemsSelected
   critere="[ClefCours]=" & me.clefCours & " and [ClefPersonne]=" & itm 'Pour trouver la personne dans le cours
 
   call r.findfisrt(critere)
 
   if r.nomatch() then
       r.addnew 'Personne non trouvée, l'ajoute au cours
       r![ClefCour]=ClefCour
       r![ClefPersonne]=itm
       'ici mettre les lignes pour les autres infos de la personne et le cour si nécessaire
     else  
       r.edit 'La personne est trouvée
   end if
 
   r![DateMAJ]=dateMAJ
   r![ValeurMAJ]=valeurMAJ
   r.update
 
next itm
 
r.close:set r=nothing 'Ferme l'objet et libère la mémoire utilisée
db.close: set db=nothing 'Ferme l'objet et libère la mémoire utilisée

Je pense que cela répond à ta demande.

A+

[mmcg79]

vous avez mis [clefcour] et [clefpersone], c'est à remplacer par le me.personne du cour et me.chiffre?
pourquoi c'est en rouge?

[mmcg79]

[mmcg79]

merci et bonne soirée, je dois aller bosser.

[marot_r]

Bonjour.

vous avez mis [clefcour] et [clefpersone], c'est à remplacer par le me.personne du cour et me.chiffre?

Probalemement plutôt [Personne] et [Chiffre].
C'est un exemple de code et je ne connais pas le nom de tes champs. C'est l'identifiant de la personne dans ta table et l'identifiant du cour.

pourquoi c'est en rouge?

C'est pour mettre en évidence que c'est un texte entre des guillemets et rendre la lecture plus facile.

A+

[mmcg79]

bonjour,
désolé de l'absence, mais je construit mon programme que quand je suis au boulot

J'ai essayé votre programme mais il y a un bug dès le départ.
J'ai bien changer les parties en rouge, et j'ai mis les bon nom de champs.

Mais lors de la lecture du programme il me mets:

Erreur de compilation:
Type défini par l'utilisateur non défini

Sur la Ligne: Dim db as dao data.base: Set db = CurrentDb

se qui est en rouge c'est surligné en bleu.

Que faire?
merci

[marot_r]

Bonjour.

C'est database en un seul mot et non data.base.

A+

[mmcg79]

sa ne fonctionne toujours pas

db As dao.database:

[tee_grandbois]

bonjour,
çà non plus n'est pas correct :

Code :

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

dim r as dao.database:

c'est

Code :

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

dim r as dao.recordset:

[mmcg79]

toujours pas

Code :

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

1
2
3
Dim r As dao.Recordset: Set db = CurrentDb
Dim r As dao.database: Set r = db.openrecordset("TCours")
Dim critere As String

sa me dit toujours le meme texte et sa surligne la meme chose.

[marot_r]

Code :

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

1
2
dim db as dao.database: set db=currentdb
dim r as dao.recordset: set r=db.openrecordset("T_Cours")

A+

[mmcg79]

toujours la meme chose

[marot_r]

Bizarre.

Peux-tu poster une copie d'écran de tes références ?

C'est dans le menu outils de l'éditeur de code.

A+

[tee_grandbois]

C'est :

Code :

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

Call rs.findfirst(critere)

et pas

Code :

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

call r.findfisrt(critere)

il faudrait compiler le code si possible ...

[marot_r]

Merci tee_grandbois pour le FindFirst (désolé, je suis un peu dyslexique quand je tape trop vite) mais on va quand même avoir besoin des références car il n'aurait pas du buter sur la déclaration de la BD.

A+