Discussion :

[Almenor]

Bonjour,

J'aimerai, en cliquant sur un bouton, envoyer les données de l'enregistrement en cours de consultations.

J'ai trouvé ce petit tuto : http://heureuxoli.developpez.com/publipostage/

Et voici ce que j'ai fait :

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
Sub MergeBM()
    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 * from T_BonDeCommande"
    chemin = "C:\data\Comm&Mark\MIA"
 
    Set db = CurrentDb
    Set rs = db.OpenRecordset(sql)
    Set wApp = New word.Application
        chemin = CurrentProject.Path
    wApp.Visible = True
 
    While Not rs.EOF
    With wApp
        .Documents.Open (chemin & "\DIC.doc")
        .ActiveDocument.Bookmarks("nom").Range.Text = rs.Fields("marche")
        .ActiveDocument.Bookmarks("prenom").Range.Text = rs.Fields("description")
        .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

J'ai donc ajouté un boutons dans mon formulaire qui exécute ce code, le soucis est que pour l'instant il me sort tout les enregistrements ! Logique avec sql = "SELECT * from T_BonDeCommande"

Mais donc ma question est comment faire en sorte que ça ne concerne que l'enregistrement actuellement affiché sur le formulaire ?

Je pensait peut être à un truc du genre :

Code :

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

1
2
 
sql = "SELECT * from T_BonDeCommande WHERE noBDC = Me.noBDC"

[paidge]

Bonjour,
La bonne syntaxe est :

Code :

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

sql = "SELECT * from T_BonDeCommande WHERE noBDC =" & Me.noBDC

Si noBDC est une chaîne de caractères, il faut l'entourer de guillemets :

Code :

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

sql = "SELECT * from T_BonDeCommande WHERE noBDC ='" & Me.noBDC & "'"

ou

Code :

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

sql = "SELECT * from T_BonDeCommande WHERE noBDC =""" & Me.noBDC & """"

[Almenor]

Bonjour,

Il s'agit d'un int (clé primaire auto-incrémentée)

J'ai un message d'erreur :s

[paidge]

Ah bah oui lol, tu es dans un module Me faisant référence au module dans lequel on se trouve, ça ne peut pas marcher ^^
Dans ce cas, la syntaxe est :

Code :

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

sql = "SELECT * from T_BonDeCommande WHERE noBDC =" & Forms("nomDeTonFormulaire").noBDC

[Almenor]

Magnifique ! Merci !