MS VBA Access 插入值和函数帮助请求答案

【问题标题】：MS VBA Access Insert Into value and function help requestMS VBA Access 插入值和函数帮助请求
【发布时间】：2014-12-18 11:10:33
【问题描述】：

我是 VBA 新手。我正在尝试将数据从一个表单插入到表中。我遇到了以下代码的问题：

strSQL = "Insert into [KitInfo](KitID, KitType, ExpirationDate) values(Forms!CreateNewKit!KitID, 'HS2000', dmin([ExpirationDate]))"

我正在尝试将当前表单中的最小日期插入“ExpirationDate”列表 KitInfo。有没有办法计算最短日期，然后将其插入“ExpirationDate”列？我在考虑嵌套一个子查询，但我不知道该怎么做。我已经尝试将“值”更改为“选择”，但是这个查询根本没有运行。

【问题讨论】：

【解决方案1】：

DMin 要求您告诉它数据所在的位置。为函数的第二个选项domain 使用表的名称或保存的查询。您可以查看 Access 帮助系统中的 Application.DMin 方法 主题以获取更多详细信息。

在 Access 查询设计器中创建一个查询以计算语法。

INSERT INTO [KitInfo]
(KitID, KitType, ExpirationDate)
VALUES
(Forms!CreateNewKit!KitID, 'HS2000', DMin('[ExpirationDate]', 'YourTable'))

将 YourTable 替换为您的表名。

INSERT 在查询设计器中正常工作后，更新您的 VBA 代码以创建相同的语句。

【讨论】：