===============OPTION 1 "OUVRE UNE FENERE APPERCU"==================================================

Private Sub Commande52_Click()
Dim strReportName As String
Dim strCriteria As String

    If NewRecord Then
        MsgBox "This record contains no data. Please select a record to print or save this record." _
            , vbInformation, "Invalid Action"
        Exit Sub
        
Else
strReportName = "PrintDevisFacture"

    strCriteria = "[IdDevisFacture]= " & Me![IdDevisFacture]

        DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
    End If
    
End Sub

===============================OPTION 2 "IMPRESSION DIRECT=========================================
Private Sub Commande52_Click()
Dim strReportName As String
Dim strCriteria As String

    If NewRecord Then
        MsgBox "This record contains no data. Please select a record to print or save this record." _
            , vbInformation, "Invalid Action"
        Exit Sub
        
Else
strReportName = "FFACTURE"

    strCriteria = "[ID_Date_facture]= " & Me![ID_Date_facture]

        DoCmd.OpenReport strReportName, acViewNormal, , strCriteria
    End If
    
End Sub