vous pouvez le faire en changeant le querydef pour inclure le filtre
faible QD comme dao.querydef, DB comme dao.database
faible oSql comme corde, nSql comme corde
placer le db=currentdb
placer qd=db.querydefs (« SybizOutputQry »)
oSql=qd.sql
nsql=replace (qd.sql, « ; », "")
nsql=nsql et « où [OrderID] = 48670 »
qd.sql=nSql
acExportDelim de DoCmd.TransferText, « SybizOutputQry », « C:\Export\test.csv », faux
'pour reconstituer en arrière le querydef
qd.sql=oSql