将字符串结果传递给查询然后导出为 csv

Question

下午好，我有一个访问查询，其中包含我所有客户的列表，我们可以调用该 CUS 我有另一个包含 ORDERS

列表的查询

我想编写一些循环遍历客户列表并导出包含属于该客户的所有订单的 csv 文件的 VBS。

然后 vba 将转到列表中的下一位客户并执行相同的操作。

任何帮助都会很棒。

下面的代码片段

几乎无法使 WHERE 条件正常工作，它一直显示一个弹出窗口供我填充，但是相同的字符串正在为 msgbox 提供良好的这里是下面的一个片段，它在循环中

strcustcode = rs!OCUSTCODE 
ordercount = rs!orders 
TIMEFILE = Format$(Time, "HHMM") 
MsgBox ([strcustcode] & " has " & [ordercount] & " orders") 
StrSQL = "Select * From [24-ND_Cus] where [24-ND_Cus].[OCUSTCODE] = strcustcode " 
Set qd = db.CreateQueryDef("tmpExport", StrSQL) 
DoCmd.TransferText acExportDelim, , "tmpExport", "c:file.csv" db.QueryDefs.Delete "tmpExport" –

Answer 1

不要在 VBA 变量周围使用 [ ]。当您只想给用户一条消息时，不要为 MsgBox 使用括号。括号使它成为一个需要用户响应以设置变量的函数。

MsgBox strcustcode & " has " & ordercount & " orders"

将变量连接到 SQL 语句中。如果 OCUSTCODE 是文本类型字段，请为参数使用撇号分隔符。

StrSQL = "Select * From [24-ND_Cus] Where [OCUSTCODE] = '" & strcustcode & "'"

我不建议定期修改设计和更改查询 SQL 语句的代码正在更改设计。如果唯一的变化是过滤条件并且动态参数化查询将不起作用，我建议 'temp' table - table 是永久的，数据是临时的。删除记录并写入 table 并导出 table.

将字符串结果传递给查询然后导出为 csv

Passing string result to query then export as csv

string

ms-access

vba

export

criteria