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

下午好， 我有一个access查询，其中包含我所有客户的列表，让我们调用该CU 我还有一个查询，它有一个订单列表

我想写一些VBS，循环浏览客户列表并导出一个csv文件，其中包含属于该客户的所有订单

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

任何帮助都会很好

下面的代码片段

---

几乎无法获得WHERE条件，它一直显示一个弹出窗口供我填充，但是相同的字符串正在向msgbox馈送。这里是循环中tht下面的一个片段

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" –

---

不要在VBA变量周围使用[]。当您只想给用户发送消息时，不要对MsgBox使用parens。parens使其成为一个需要用户响应才能设置变量的函数

MsgBox strustcode&“has”&ordercount&“orders”

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

StrSQL=“从[24-ND_-Cus]中选择*，其中[OCUSTCODE]=”&strustcode&“”

---

我不建议经常修改设计的代码，更改查询SQL语句就是更改设计。如果唯一的更改是筛选条件，而动态参数化查询无法工作，我建议使用“temp”表-表是永久的，数据是临时的。删除记录并将其写入表中，然后导出表。

Hi Leon欢迎使用Stack…您可以添加您尝试的内容吗。。这将是伟大的。几乎没有工作的地方条件，它一直显示一个弹出窗口，让我填充，但相同的字符串是饲料的msgbox罚款这里是一个片段下面的tht是在循环strustcode=rs！OCUSTCODE ordercount=rs！orders TIMEFILE=Format$（Time，“HHMM”）MsgBox（[strucstcode]&“has”&[ordercount]&“orders”）StrSQL=“从[24-ND_Cus]中选择*，其中[24-ND_Cus]。[OCUSTCODE]=structcode”Set qd=db.createquerydf（“tmpExport”，StrSQL）DoCmd.TransferText acExportDelim，“tmpExport”，“c:file.csv”db.querydfs.Delete“tmpExport”请“编辑”问题（链接就在问题下方的标签下方）并将您的代码插入问题本身-在注释中阅读代码几乎是不可能的，并且问题需要“自包含”。