[AC-2003] Signet formulaire continu - uniquement 1er enregistrement ! [Résolu]

[lucas-18]

Bonjour,

J'y suis enfin arrivé avec le publipostage mais j'ai un problème avec mes sous-formulaires en mode continu.

Uniquement le 1er enregistrement de ces sous-formulaires en mode continu s'affiche dans mon document word.

J'ai donc un formulaire "frm_paymentplan1" qui contient 2 sous-formulaires "frm_paymentplan2" et "frm_paymentplan3" : cf fomulaire en mode création en pièce jointe nommée Formulaire
Les 3 tables contenant les données de ces formulaires sont reliées : cf en pièce jointe nommée Relation.

Voici de quelle manière j'ai procédé :

- création d'un bouton de commande sur mon formulaire princiapal :

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
Private Sub cmExportWordnl_Click()
    Dim W_App As New Word.Application
 
    With W_App
 
        .Visible = True
 
        .Documents.Open ("Y:\Contentieux\Bad Debt & Arrears\CTX\Publipostagenl.doc")
 
        .ActiveDocument.Bookmarks("Society").Select
        .Selection.Text = Me.Society
 
        .ActiveDocument.Bookmarks("Address").Select
        .Selection.Text = Me.Address
 
        .ActiveDocument.Bookmarks("Contract").Select
        .Selection.Text = .Selection.Text = Forms.frm_paymentplan1.frm_paymentplan3.Form.Contract
 
        MsgBox "The document [Plan] will be saved in your Documents.", vbInformation, "CTX"
        .ActiveDocument.SaveAs ("H:\My Documents\Plan.doc")
 
        .QUIT
 
    End With
    Set W_App = Nothing
End Sub

- création de mes signets dans mon document Plan.

[lucas-18]

Bonjour, dois-je m'y prendre de cette manière ou passer par une requête croyez-vous ?

[LedZeppII]

Bonsoir,

De cette manière tu ne peux qu'avoir l'enregistrement actif (le 1er par défaut) du sous-formulaire frm_paymentplan3.

Une requête et un recordset seraient utiles.
Exemple :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
        Dim db As DAO.Database, rs As DAO.Recordset, strSQL As String
        Dim strContracts As String
 
        ' Requête sur tbl_paymentplan3 des enregistrements en relation avec
        ' Tbl_paymentplan1 pour la clé ID_Paym1 (Me.ID_Paym1)
        strSQL = "SELECT tbl_paymentplan3.Contract FROM tbl_paymentplan3 " & _
                 "WHERE  tbl_paymentplan3.ID_Paymt1 = " & Me.ID_Paym1  & ";"
        ' Ouverture recordset
        Set db = CurrentDb
        Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
        ' Boucle sur les enregistrements du recordset
        Do While Not rs.EOF
           If Len(strContracts) > 0 Then strContracts = strContracts & VbCrLf
           strContracts = strContracts & rs("Contract")
           rs.MoveNext
        Loop
        rs.Close
        ' Affectation du texte du signet Contract
        .ActiveDocument.Bookmarks("Contract").Select
        .Selection.Text = strContracts

A+

[lucas-18]

Merci mais j'aurai qques questions :

1) Où cette partie du code doit-elle être placée ?
2) Une requête pour mes 2 autres tables est-elle aussi nécessaire ?
3) Mon document Word est crée avec des signets. En ce qui concerne ce problème de 1er enregistrement dois-je reprendre les informations d'une requête ?

[LedZeppII]

Bonjour,

1) Où cette partie du code doit-elle être placée ?

L'exemple de code que j'ai posté se met en lieu et place de ces deux lignes de ton code :

Code :

1
2
        .ActiveDocument.Bookmarks("Contract").Select
        .Selection.Text = .Selection.Text = Forms.frm_paymentplan1.frm_paymentplan3.Form.Contract

2) Une requête pour mes 2 autres tables est-elle aussi nécessaire ?

Ton code étant dans un formulaire basé sur la table Tbl_Paymentplan1, pas besoin de requête pour cette table.
Pour la table Tbl_Paymentplan2, je n'ai vu aucune référence à un de ses champs dans ton code.

3) Mon document Word est crée avec des signets. En ce qui concerne ce problème de 1er enregistrement dois-je reprendre les informations d'une requête ?

Mon exemple de code était la réponse à cette question.
Le code SQL de la requête est créé dynamiquement en VBA :

Code :

1
2
        strSQL = "SELECT tbl_paymentplan3.Contract FROM tbl_paymentplan3 " & _
                 "WHERE  tbl_paymentplan3.ID_Paymt1 = " & Me.ID_Paym1  & ";"

Il sélectionne la colonne "Contract" de la table tbl_paymentplan3, et uniquement les enregistrements pour lesquels ID_Paymt1 est égal au ID_Paymt1 du formulaire principal (Me.ID_Paym1).

Juste pour vérifier, au cas où je n'aurai pas compris.
Le but est bien d'afficher dans le document Word, tous les contrats en relation avec l'enregistrement en cours du formulaire principal ?

A+

[lucas-18]

Oui tu as bien compris ce que je voulais en fait c'est d'avoir tous les enregistrements et donc tous les champs des sous formulaires.

J'essayerai ce que tu m'as dit lundi (ma base est au boulot) mais à mon avis ca va le faire

merci en tout cas je te tiens au courant lundi

[lucas-18]

Salut LedZeppII. J'ai d'abord essayé avec les données d'un des 2 sous-formulaires. Si je ne fais référence qu'à 1 seul champ, cela marche très bien.
Par contre lorsque je fais référence à 2 champs ou plus, cela ne marche plus. Par exemple, je prends 2 champs :
- dans mon document Word, je crée 2 signets de cette manière : [Contrat] / [Invoice]
- pour le code je ne suis pas sûr mais j'ai fais comme çà :

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub cmExportWord_Click()
Dim W_App As New Word.Application
 
If Me.Employee = "TM14LD" And Me.Language = "NL" Then
 
    With W_App
 
        .Visible = True
 
        .Documents.Open ("Y:\Contentieux\Bad Debt & Arrears\CTX\Publipostagenltm14ld.doc")
 
        .ActiveDocument.Bookmarks("Customer").Select
        .Selection.Text = Me.Customer
 
        Dim db As DAO.Database, rs As DAO.Recordset, strSQL As String
        Dim strContract As String
        Dim strInvoice As String
 
        strSQL = "SELECT tbl_paymentplan3.Contract FROM tbl_paymentplan3 " & _
                 "WHERE  tbl_paymentplan3.ID_Paymt1 = " & Me.ID_Paym1 & ";"
 
        Set db = CurrentDb
        Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
 
        Do While Not rs.EOF
           If Len(strContract) > 0 Then strContract= strContract & vbCrLf
           strContract = strContract & rs("Contract")
           rs.MoveNext
        Loop
        rs.CLOSE
 
        .ActiveDocument.Bookmarks("Contract").Select
        .Selection.Text = strContract
 
        strSQL = "SELECT tbl_paymentplan3.Invoice FROM tbl_paymentplan3 " & _
                 "WHERE  tbl_paymentplan3.ID_Paymt1 = " & Me.ID_Paym1 & ";"
 
        Set db = CurrentDb
        Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
 
        Do While Not rs.EOF
           If Len(strInvoice) > 0 Then strInvoice = strInvoice & vbCrLf
           strInvoice = strInvoice & rs("Invoice")
           rs.MoveNext
        Loop
        rs.CLOSE
 
        .ActiveDocument.Bookmarks("Invoice").Select
        .Selection.Text = strInvoice
 
        MsgBox "The document [Plan de paiement] is saved in your Documents.", vbInformation, "CTX"
        .ActiveDocument.SaveAs ("H:\My Documents\Afbetalingsplan.doc")
 
        .QUIT
 
    End With
 
    Set W_App = Nothing
 
End If

Voici le résultat dans mon document Word :

112687-OL-3
112687-OL-3
112687-OL-3
112687-OL-3 / FC09338508
FC09407238
FC10026512
FC10027137

alors qu'il devrait être comme çà :

112687-OL-3 / FC09338508
112687-OL-3 / FC09407238
112687-OL-3 / FC10026512
112687-OL-3 / FC10027137

[LedZeppII]

Bonsoir,

Etant donné que tu concatènes [Contract], " / " et [Invoice], tu n'as besoin que d'un seul signet.

Début du code (j'ai regroupé les déclarations de variables) jusqu'à l'ouverture du document Word :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub cmExportWord_Click()
Dim W_App As New Word.Application
Dim db As DAO.Database, rs As DAO.Recordset, strSQL As String
Dim strContractEtInvoice As String 
 
If Me.Employee = "TM14LD" And Me.Language = "NL" Then
 
    With W_App
 
        .Visible = True
 
        .Documents.Open ("Y:\Contentieux\Bad Debt & Arrears\CTX\Publipostagenltm14ld.doc")

Code pour le signet "Customer" :

Code :

1
2
        .ActiveDocument.Bookmarks("Customer").Select
        .Selection.Text = Me.Customer

Pour [Contract] + " / " + [Invoice] on ne va utiliser que le signet "Contract".
Comme les deux champs viennent de la même table, on va les sélectionner tous les deux dans l'instruction SQL SELECT.

Code sql :

SELECT tbl_paymentplan3.Contract, tbl_paymentplan3.Invoice FROM tbl_paymentplan3

On concatène ensuite les champs dans une variable texte (strContractEtInvoice) et on insère un retour chariot quand on change d'enregistrement.
Code pour le signet "Contract" :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
        strSQL = "SELECT tbl_paymentplan3.Contract, tbl_paymentplan3.Invoice FROM tbl_paymentplan3 " & _
                 "WHERE  tbl_paymentplan3.ID_Paymt1 = " & Me.ID_Paym1 & ";"
 
        Set db = CurrentDb
        Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
 
        Do While Not rs.EOF
           If Len(strContractEtInvoice) > 0 Then strContractEtInvoice = strContractEtInvoice & vbCrLf
           strContractEtInvoice = strContractEtInvoice & rs("Contract") & " / " & rs("Invoice")
           rs.MoveNext
        Loop
        rs.CLOSE
 
        .ActiveDocument.Bookmarks("Contract").Select
        .Selection.Text = strContractEtInvoice

Suite et fin du code :

Code :

1
2
3
4
5
6
7
8
9
10
11
        MsgBox "The document [Plan de paiement] is saved in your Documents.", vbInformation, "CTX"
        .ActiveDocument.SaveAs ("H:\My Documents\Afbetalingsplan.doc")
 
        .QUIT
 
    End With
 
    Set W_App = Nothing
 
End If
End Sub

A+

[lucas-18]

Merci mais je viens de procéder autrement. Dans mon document Word, j'ai crée un tableau avec pour chaque colonne 1 signet. C'est plus esthétique. Je n'ai donc pas besoin de concaténation des 2 champs.
Mais lorsque je fais référence à 1 ou 2 signets, cela marche nickel.
Par contre, lorsque j'en mets 3 ou plus, j'ai un message d'erreur : Erreur d'exécution '3061': Trop peu de paramètres.1 attendu (si je fais référence à 3 signets). Voici mon 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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Private Sub cmExportWord_Click()
Dim W_App As New Word.Application
 
If Me.Employee = "TM14LD" And Me.Language = "NL" Then
 
    With W_App
 
        .Visible = True
 
        .Documents.Open ("Y:\Contentieux\Bad Debt & Arrears\CTX\Publipostagenltm14ld.doc")
 
        .ActiveDocument.Bookmarks("Customer").Select
        .Selection.Text = Me.Customer
 
        Dim db As DAO.Database, rs As DAO.Recordset, strSQL As String
        Dim strContract As String
        Dim strInvoice As String
        Dim strTermdate As String
 
        strSQL = "SELECT tbl_paymentplan3.Contract, tbl_paymentplan3.Invoice, tbl_paymentplan3.Termdate FROM tbl_paymentplan3 " & _
                 "WHERE  tbl_paymentplan3.ID_Paymt1 = " & Me.ID_Paym1 & ";"
 
        Set db = CurrentDb
        Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
 
        Do While Not rs.EOF
           If Len(strContract) > 0 Then strContract = strContract
           strContract = strContract & rs("Contract") & vbCrLf
           If Len(strInvoice) > 0 Then strInvoice = strInvoice
           strInvoice = strInvoice & rs("Invoice") & vbCrLf
           If Len(strTermdate) > 0 Then strTermdate = strTermdate
           strTermdate = strTermdate & rs("Termdate") & vbCrLf
           rs.MoveNext
        Loop
        rs.CLOSE
 
        .ActiveDocument.Bookmarks("Contract").Select
        .Selection.Text = strContract
 
        .ActiveDocument.Bookmarks("Invoice").Select
        .Selection.Text = strInvoice
 
        .ActiveDocument.Bookmarks("Termdate").Select
        .Selection.Text = strTermdate
 
        MsgBox "The document [Plan] is saved in your Documents.", vbInformation, "CTX"
        .ActiveDocument.SaveAs ("H:\My Documents\Plan.doc")
 
        .QUIT
 
    End With
 
    Set W_App = Nothing
 
End If

Pourquoi ca marche avec 2 et pas avec 3 ou + ???

[LedZeppII]

Envoyé par lucas-18

j'ai un message d'erreur : Erreur d'exécution '3061': Trop peu de paramètres.1 attendu (si je fais référence à 3 signets)

C'est symptomatique d'un nom de champ mal orthographié.

Code :

1
2
        strSQL = "SELECT tbl_paymentplan3.Contract, tbl_paymentplan3.Invoice, tbl_paymentplan3.[Term date] FROM tbl_paymentplan3 " & _
                 "WHERE  tbl_paymentplan3.ID_Paymt1 = " & Me.ID_Paym1 & ";"

A+

[lucas-18]

Ca marche, j'ai du changer le nom de champs de ma table

Merci à toi pour ton aide

Cependant j'ai une dernière question. Si je fois faire référence à des champs se trouvant dans une autre table, comme le code doit-il être construit ? J'ai bien essayé la manière suivante mais cela ne marche pas :

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Private Sub cmExportWord_Click()
Dim W_App As New Word.Application
 
If Me.Employee = "TM14LD" And Me.Language = "NL" Then
 
    With W_App
 
        .Visible = True
 
        .Documents.Open ("Y:\Contentieux\Bad Debt & Arrears\CTX\Publipostagenltm14ld.doc")
 
        .ActiveDocument.Bookmarks("Customer").Select
        .Selection.Text = Me.Customer
 
        Dim db As DAO.Database, rs As DAO.Recordset, strSQL, strSQL2 As String
        Dim strContract As String
        Dim strInvoice As String
        Dim strTermdate As String
        Dim strDatePaymt2 As String
        Dim strAmount As String       
 
        strSQL = "SELECT tbl_paymentplan3.Contract, tbl_paymentplan3.Invoice, tbl_paymentplan3.Termdate FROM tbl_paymentplan3 " & _
                 "WHERE  tbl_paymentplan3.ID_Paymt1 = " & Me.ID_Paym1 & ";"
 
        strSQL2 = "SELECT tbl_paymentplan2.DatePaymt2, tbl_paymentplan2.Amount FROM tbl_paymentplan2 " & _
                 "WHERE  tbl_paymentplan2.ID_Paymt1 = " & Me.ID_Paym1 & ";"
 
        Set db = CurrentDb
        Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
 
        Do While Not rs.EOF
           If Len(strContract) > 0 Then strContract = strContract
           strContract = strContract & rs("Contract") & vbCrLf
           If Len(strInvoice) > 0 Then strInvoice = strInvoice
           strInvoice = strInvoice & rs("Invoice") & vbCrLf
           If Len(strTermdate) > 0 Then strTermdate = strTermdate
           strTermdate = strTermdate & rs("Termdate") & vbCrLf
           rs.MoveNext
        Loop
        rs.CLOSE
 
        .ActiveDocument.Bookmarks("Contract").Select
        .Selection.Text = strContract
 
        .ActiveDocument.Bookmarks("Invoice").Select
        .Selection.Text = strInvoice
 
        .ActiveDocument.Bookmarks("Termdate").Select
        .Selection.Text = strTermdate
 
        Set db = CurrentDb
        Set rs = db.OpenRecordset(strSQL2, dbOpenSnapshot)
 
        Do While Not rs.EOF
           If Len(strDatePaymt2) > 0 Then strDatePaymt2 = strDatePaymt2
           strDatePaymt2 = strDatePaymt2 & rs("DatePaymt2") & vbCrLf
           If Len(strAmount) > 0 Then strAmount = strAmount
           strAmount = strAmount & rs("Amount") & vbCrLf
        Loop
        rs.CLOSE
 
        .ActiveDocument.Bookmarks("DatePaymt2").Select
        .Selection.Text = strDatePaymt2
 
        .ActiveDocument.Bookmarks("Amount").Select
        .Selection.Text = strAmount
 
 
        MsgBox "The document [Plan] is saved in your Documents.", vbInformation, "CTX"
        .ActiveDocument.SaveAs ("H:\My Documents\Plan.doc")
 
        .QUIT
 
    End With
 
    Set W_App = Nothing
 
End If

[LedZeppII]

Bonsoir,

Envoyé par lucas-18

Si je fois faire référence à des champs se trouvant dans une autre table, comme le code doit-il être construit ? J'ai bien essayé la manière suivante mais cela ne marche pas

Je suppose que tu fais référence à la partie du code impliquant la table tbl_paymentplan2.
Ton code a l'air correct.
Qu'est-ce qui ne marche pas ?

A+

[lucas-18]

en fait j'ai changé de place certains bouts de code et à la Xème tentative j'y suis parvenu. Je te remercie beaucoup en tt cas. Ca fait depuis longtemps que j'essaye de faire ca sans avoir eu le temps de m'y pencher vraiment ou de trouver la méthode.