Bonjour,
Je dispose de plusieurs tables dont patients et visites qui sont liées (plusieurs visite pour chaque patient à différentes dates), avec lesquelles je souhaitaient récupérer les données pour les extraire dans Word et ainsi imprimer une "Fiche" pour chaque patient.
J'ai utilisé ce code trouvé ici (merci au passage) pour la partie du formulaire patient, et cela fonctionne très bien :
Je coince vraiment sur la partie du SOUS formulaire "VISITE" avec les champ Date_v et Code pour lesquels j'ai créé un Etat mais je ne récupère qu'une seule valeur !
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61 Private Sub Commande67_Click() 'En cas d'erreur, on n'en tient pas compte On Error Resume Next 'Déclaration d'une instance Word Dim W_App As New Word.Application 'Instance Word With W_App 'Word est visible à l'écran ou non .Visible = True 'Ouvre le document Word avec les signets .Documents.Open ("C:\..\Formulaire.doc") 'Tranfert du nom : strNom ==> Signet Nom .ActiveDocument.Bookmarks("Nom").Select .Selection.Text = Me.nom 'Tranfert du nom : .ActiveDocument.Bookmarks("Prenom").Select .Selection.Text = Me.prenom 'Tranfert du date : .ActiveDocument.Bookmarks("Date_n").Select .Selection.Text = Me.date_naissance 'Tranfert du code_ss : .ActiveDocument.Bookmarks("Code_ss").Select .Selection.Text = Me.code_ss 'Tranfert adresse : .ActiveDocument.Bookmarks("Adresse").Select .Selection.Text = Me.adresse 'Tranfert ville : .ActiveDocument.Bookmarks("Ville").Select .Selection.Text = Me.ville 'Tranfert date_v : .ActiveDocument.Bookmarks("Date_v").Select .Selection.Text = Reports.patient.date_v 'Tranfert date_v : .ActiveDocument.Bookmarks("Acte").Select .Selection.Text = Reports.patient.acte 'Sauvegarde du nouveau document .ActiveDocument.SaveAs ("C:\..\MaBase\doc\" & Me.nom & "_" & Me.prenom & ".doc") 'Fermeture de Word .Quit End With 'Libération de l'objet Word Set W_App = Nothing End Sub
Comment pourrais je récupérer toutes les données relatives au sous formulaire VISITE ? Est ce qu'il y a la possibilité de faire une boucle pour le sous formulaire ?
Merci pour votre aide !
Partager