Discussion :

[elric]

Bonjour,

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
Private Sub Commande0_Click()
On Error GoTo Err
 
    Dim stDocName As String
    'Dim stLinkCriteria As String
    Dim reponse As String
 
    stDocName = "F_FICHEMACHINE"
 
    DoCmd.OpenForm stDocName
    reponse = Forms![F_FICHEMACHINE]![Texte45]
    MsgBox reponse
 
 
Exit_Commande0_Click:
    Exit Sub
 
Err:
    MsgBox Err.Description
    Resume Exit_Commande0_Click
End Sub

Voici un code tout ce qu'il y a de plus simple. J'aimerais imprimer le contenu de la variable "reponse", après son affichage avec MsgBox, quel code je dois rajouter pour accomplir cela ?

Merci

[argyronet]

Bonjour,

Pour imprimer, l'idéal est de concevoir un état.
Ensuite user de l'objet DoCmd avec la méthode OpenReport et les paramètres idoines pour ouvrir l'état, l'imprimer ou les deux avec ou sans conditions...

Argy