Probléme de recordset avec variable
Bonjour,
j'utilise Access 2000 et je souhaite faire un module permettant d'insérer dans un document Word, d'abord, en en-tête, tout se qui touche du fournisseur (n° tel, @, rue, nom, ...) puis, dans le corps de la page, toute les commandes lui correspondant en partant d'une table qui contient plusieurs champs (fournisseur, @ fournisseur, telephone, code article, libellé article,...).
Ainsi j'obtiens plusieurs enregistrements avec le meme fournisseur mais avec des commande différentes.
ex :
PSA 03.27.31.... art1 siege
PSA 03.27.31.... art2 echappement
PSA 03.27.31.... art3 capot
Jusque là tout se passe bien, par contre, aprés, afin de l'insérer dans le document word, j'ai rentré dans ce document des mots qui devront etre remplacé par les aleurs des champs avec le code :
Code:
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 tableau(8) As String
tableau(1) = "Téléphone"
tableau(2) = "Fax"
tableau(3) = "Raison Sociale 1"
tableau(4) = "Raison Sociale 2"
tableau(5) = "Raison Sociale 3"
tableau(6) = "Rue"
tableau(7) = "Code Postal"
tableau(8) = "Code Pays"
Dim rs As DAO.Recordset
Dim x As Integer
Dim record As String
With objWord
For x = 1 To 8
.Selection.Find.ClearFormatting
Set rs = CurrentDb().OpenRecordset("select * from [355 - Relance Fournisseur]")
With .Selection.Find
.Text = "$$$" & tableau(x) & "$$$"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
record = tableau(x)
.Selection.Find.Execute
.Selection.TypeText Text:=rs! & record
.Selection.TypeParagraph
rs.Close
Next |
ce que je souhaite faire c'est donc de pouvoir intégrer une variable dans la rs mais ca ne fonctionne pas et si je met:
Code:
1
2
3
4
5
6
7
|
record = rs! &tableau(x)
.Selection.Find.Execute
.Selection.TypeText Text:=record
.Selection.TypeParagraph
rs.Close
Next |
j'aurai une erreur car record serait en texte et ne serait pas en recordset!
Merci de m'aider.
