u kunt het doen door querydef te veranderen om de filter te omvatten
schemerige qd als dao.querydef, db als dao.database
schemerige oSql als koord, nSql als koord
reeks db=currentdb
vastgestelde qd=db.querydefs („SybizOutputQry“)
oSql=qd.sql
nsql=replace (qd.sql, „; “, "")
nsql=nsql & „waar [OrderID] = 48670“
qd.sql=nSql
DoCmd.TransferText acExportDelim, „SybizOutputQry“, „C:\Export\test.csv“, Vals
'om querydef terug te herstellen
qd.sql=oSql