Discussion :

[deglingo37]

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 :

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

Mon erreur se situe sur cette ligne :

Code :

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

rst2!NomStagiaire = rst3!["NomStagiaire" & v2]

j'ai essayé plusieurs trucs mais je n'est pas trouvé la syntaxe, peut être es impossible de concaténer de cette manière ?

J'espere que quelqu'un pourra m'aider

Merci

[pgz]

Bonjour,

Je n'ai pas lu tout ton code, mais pour faire

rst2!NomStagiaire = rst3!["NomStagiaire" & v2]

tu pourrais plutôt écrire

Code :

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

rst2!NomStagiaire = rst3.Fields("NomStagiaire" & v2).Value

Bon courage,

PGZ

[deglingo37]

Formidable! ca fonctionne.
J'avais quelque bugs dans mon code après ca mais y'avais pas trop de modifs à faire.
Je te remerci bien pgz