bonjour à tous,
Je vais essayer de vous expliquer le contexte mais ca va être compliqué :
j'ai une table TOperation contenant un numéro d'opération NumOperation, une table TStagiaires contenant les champs NumOperation, NbStagiaires et NomStagiaire1 à 20. Enfin j'ai une table TAttestation avec un NumAttestation, un NumOperation et un NomStagiaire à laquelle je souhaite ajouter des enregistrements.
Mon but est le suivant : ajouter à la table TAttestation un enregistrement par stagiaire (pour completer d'autres champs après).
j'ai créé un code qui me parrait juste mais j'ai juste un problème de syntaxe :
Mon erreur se situe sur cette ligne :
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
39
40
41
42
43
44
45 Dim db As DAO.Database Dim rst As DAO.Recordset Dim sSQL As String Dim rst2 As DAO.Recordset Dim sSQL2 As String Dim sSQL3 As String Dim rst3 As DAO.Recordset Dim v1 As String Dim v2 As String v2 = 1 v1 = "non" Set db = CurrentDb sSQL = "select * from TOperation" Set rst = db.OpenRecordset(sSQL) sSQL2 = "select * from TAttestation" Set rst2 = db.OpenRecordset(sSQL2) rst.MoveFirst rst2.MoveFirst While Not rst.EOF While Not rst2.EOF If v1 = "non" Then If rst!NumOperation = rst2!NumOperation Then v1 = "oui" Else End If Else End If rst2.MoveNext Wend If v1 = "oui" Then Else While rst!NbStagiaires <> 0 rst2.AddNew sSQL3 = "select * from TStagiaires where NumOperation =" & rst!NumOperation Set rst3 = db.OpenRecordset(sSQL3) rst2!NumAttestation = DMax("[NumAttestation]", "TAttestation") + 1 rst2!NumOperation = rst!NumOperation rst2!NomStagiaire = rst3!["NomStagiaire" & v2] v2 = v2 + 1 rst!Nbstagiaire = rst!Nbstagiaire - 1 Wend v2 = 1 v1 = "non" End If Wend
j'ai essayé plusieurs trucs mais je n'est pas trouvé la syntaxe, peut être es impossible de concaténer de cette manière ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part rst2!NomStagiaire = rst3!["NomStagiaire" & v2]
J'espere que quelqu'un pourra m'aider
Merci
Partager