1 2 3 4 5 6 7 8 9 10 11 12
|
DoCmd.OpenReport "PAR_BIO_CAP_DEUX_PAGE", acViewPreview, , "NoEchantillon = " & ConditionWhereClient
If Me.Division = "A" Then
DoCmd.OutputTo acOutputReport, "PAR_BIO_CAP_DEUX_PAGE", "Snapshot Format(*.snp)", "\\bkserv\commun\N30 - Données\9- CAP Fax Auto\Thetford\" & Client_NomFax & "\" & Attachement
ElseIf Me.Division = "B" Then
DoCmd.OutputTo acOutputReport, "PAR_BIO_CAP_DEUX_PAGE", "Snapshot Format(*.snp)", "\\bkserv\commun\N30 - Données\9- CAP Fax Auto\Éco-Santé\" & Client_NomFax & "\" & Attachement
ElseIf Me.Division = "C" Then
DoCmd.OutputTo acOutputReport, "PAR_BIO_CAP_DEUX_PAGE", "Snapshot Format(*.snp)", "\\bkserv\commun\N30 - Données\9- CAP Fax Auto\Joliette\" & Client_NomFax & "\" & Attachement
Else
DoCmd.OutputTo acOutputReport, "PAR_BIO_CAP_DEUX_PAGE", "Snapshot Format(*.snp)", "\\bkserv\commun\N30 - Données\9- CAP Fax Auto\Cap\" & Client_NomFax & "\" & Attachement
End If
DoCmd.CLOSE acReport, "PAR_BIO_CAP_DEUX_PAGE" |
Partager