Bonjour à tous,

Je reviens vers vous pour un petit problème de publipostage.
Tout par d'un recordset dans lequel je mets un code patient.

Premier problème, lorsque j'écris ce code patient directement dans la query, il semble qu'il y ait une erreur de syntaxe....mais je règle ce problème en liant ce code à un champ sur un formulaire et je demande à la query de chercher la valeur contenue dans ce champ

A partir de ce code, je lance un recordset basé sur une table(Comme dans mon code) ou plusieurs tables liées...

Et là tout se complique...
Ca bug de partout.. du type "Low parameters" etc...
Peut être que je n'ai pas bien compris l'utilisation ou la fonction d'un recordset..


En fait, l'idée du projet est la suivante: J'ai un patient identifié par un code. Je cherche toutes les données dont j'ai besoin sur lui, et je les positionne dans un dossier word à l'aide des bookmarks.

Help Please!

Voilà le code:
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
Dim wApp As Word.Application
Dim chemin As String
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim sql As String
sql = "SELECT tblComStart.PatientCode, tblComStart.PatientName, tblComStart.PatientSurname From tblComStart WHERE (((tblComStart.PatientCode)=[Forms].[frmMainPanel].[Text16]));"
 
 
Set db = CurrentDb
Set rs = db.OpenRecordset(sql)
Set wApp = New Word.Application
    'chemin = C:\Users\dnr\Desktop.path
wApp.Visible = True
 
While Not rs.EOF
With wApp
    .Documents.Open "C:\Users\dnr\Desktop\Bookmarks.docx"
    .ActiveDocument.Bookmarks("Name").Range.Text = rs.Fields("PatientName")
    .ActiveDocument.Bookmarks("Surname").Range.Text = rs.Fields("PatientSurname")
    .ActiveDocument.PrintOut
    .ActiveDocument.Close (wdDoNotSaveChanges)
End With
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
 
Set wApp = Nothing
 
End Sub