Bonjour,
Depuis ma base accdb, je fais un export xls qui fonctionne correctement
Mais je compile ensuite ma base accdb en accde et l'export (ou l'impression) se plante
Voici le code du formulaire :
Voici le code de la requête QryOffresEnCoursResp :
Quelqu'un aurait une idée ?
Depuis ma base accdb, je fais un export xls qui fonctionne correctement
Mais je compile ensuite ma base accdb en accde et l'export (ou l'impression) se plante
Voici le code du formulaire :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
If Not IsNull(Me.CtlDateDebut) And Not IsNull(Me.CtlDateFin) And Not IsNull(Me.CmbResp) Then
Dim StrPath As String
Dim StrFile As String
Dim StrPF As String
Dim xls As Excel.Application
Dim wk As Excel.Workbook
Dim ws As Excel.Worksheet
StrPath = "\data1\sav\quotations SAV\export\"
StrPF = Me.CmbResp & "-OffresEnCours-" & Format(Me.CtlDateDebut, "ddmmyyyy") & "-" & Format(Me.CtlDateFin, "ddmmyyyy")
StrFile = StrPath & StrPF
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "QryOffresEnCoursResp", StrFile
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.Workbooks.Open (StrFile & ".xlsb")
Else
MsgBox "Veuillez préciser tous les critères de recherche"
End If
Code:
1
2
3
4
SELECT TblOffreEnt.oenumero, TblOffreEnt.oerev, TblOffreEnt.oetitre, TblOffreEnt.oetitrerep, TblOffreEnt.oenomaff, TblOffreEnt.oeresp, TblOffreEnt.oerefcli, TblOffreEnt.oedatedemande, TblOffreEnt.oenumprj, TblOffreEnt.oenumprj1, TblOffreEnt.oenumprj2, TblOffreEnt.oenumprj3, TblOffreEnt.oenumprj4, TblOffreEnt.oelangue, TblOffreEnt.oenumcli, TblOffreEnt.oecodpays, TblOffreEnt.oenomcontact, TblOffreEnt.oedateenvoi, TblOffreEnt.oeduree, TblOffreEnt.oedelai, TblOffreEnt.oecondpaie, TblOffreEnt.oepcremise, TblOffreEnt.oeremise, TblOffreEnt.oedouane, TblOffreEnt.oevalidity, TblOffreEnt.oedelailivr, TblOffreEnt.oetermpaie, TblOffreEnt.oeexworks, TblOffreEnt.oeequip, TblOffreEnt.oepxgen, TblOffreEnt.oedev, TblOffreEnt.oepatot, TblOffreEnt.oepmpgen, TblOffreEnt.oemachat, TblOffreEnt.oepcmachat, TblOffreEnt.oemtotal, TblOffreEnt.oepcmtotal, TblOffreEnt.oepdsnet, TblOffreEnt.oepdsbrut, TblOffreEnt.oepdsembal, TblOffreEnt.oedatenvoicde, TblOffreEnt.oenref, TblOffreEnt.oeproforma, TblOffreEnt.oedatliv, TblOffreEnt.oerefcde, TblOffreEnt.oedatconfcde, TblOffreEnt.oenaff, TblOffreEnt.oeavenant, TblOffreEnt.oestatut, TblOffreEnt.oeperdu, TblOffreEnt.oecomperdu, TblOffreEnt.oecde
FROM TblOffreEnt
WHERE (((TblOffreEnt.oeresp)=[Forms]![FrmOffreEnCoursResp]![CmbResp]) AND ((TblOffreEnt.oedatedemande)>=Format([Forms]![FrmOffreEnCoursResp]![CtlDateDebut],"mm/dd/yyyy") And (TblOffreEnt.oedatedemande)<=Format([Forms]![FrmOffreEnCoursResp]![CtlDateFin],"mm/dd/yyyy")) AND ((TblOffreEnt.oeperdu)=False) AND ((TblOffreEnt.oecde)=[Forms]![FrmOffreEnCoursResp]![CochCde]))
ORDER BY TblOffreEnt.oenumero;
Aucun commentaire:
Enregistrer un commentaire