Question

Coworker完全是Access不利的。我无法强迫他使用to / from日期和客户名称更新SQL查询。目前的查询是：

选择 [所有客户] 来自 [信息列表]

WHERE [日期] [开始日期YYYYMMDD] 和 [结束日期YYYYMMDD] 之间和 [所有客户] = ['特定客户']

分组依据 [所有客户] （这可以防止重复输入或在工厂之间作为单独订单发送客户订单）

这个同事是如此的访问不利他想要一个wysiwyg和按钮来覆盖[开始日期YYYYMMDD] [结束日期YYYYMMDD] ['特定客户']

我可以使表单很好，但我不知道如何使用表单答案填充sql查询。让他将这三件事复制并粘贴到我非常好的工作查询中是不可能的，就像答案一样简单。我如何编写一个可以用这些答案更新此查询的宏来替换现有的三个项目（两个日期和客户ID）？

Answer 1

连接文本框值以创建sql查询字符串

sql = "SELECT [all customers] FROM [information list]" _
    & "WHERE [date] Between ['" & myForm.Textbox1.Text _
    & "'] and ['" & myForm.Textbox2.Text _
    & "'] and [all customers] = ['" & myForm.Textbox3.Text _
    & "'] Group By [all customers]"

调整表单名称和文本框名称以满足您的需求

宏在表中的Access数据中运行自定义Sql查询？

1 个答案: