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