VBA从表格和表单插入

我刚开始使用VBA代码，在运行完整的代码时遇到困难

我试图在“SmallItems”表中插入现有字段，同时插入我希望留空以供以后使用的新字段，并从表单中获取2个值，然后将它们插入“SmallItems”表中的字段

SmallItemsImport表字段=项目编号、案例工作者、VSSID、项目描述、框架、金额

我希望插入并留空的额外字段=QueryDate、QueryUser、VouchedDate、VouchedUser、Status

我想要创建的字段和从表单下拉列表中获取的值=组织，返回日期

我尝试了以下代码，但它不起作用：

strSQL=“插入SmallItems（组织、返回日期、项目编号、案例工作者、ID、项目描述、框架、金额、查询日期、查询用户、凭证日期、凭证日期、状态）选择表单！[SmallItemsImportValidationForm]！[OrganizationDropdown]、[SmallItemsImportValidationForm]！[ReturnDateDropDown]、[SmallItemsImport]、[SmallItemsImport]，[SmallItemsImport].Caseworker[SmallItemsImport].ID[SmallItemsImport].ItemDescription[SmallItemsImport].Framework[SmallItemsImport].Amount“&”来自[SmallItemsImport]“

---

感谢您的帮助。通过将它们包含在insert子句中，您告诉您的DB需要字段

QueryDate、QueryUser、VouchedDate、VouchedUser、Status的值

INSERT INTO SmallItems ( Organisation, ReturnDate, ItemNo, Caseworker, 
ID, ItemDescription, Framework, Amount, 
QueryDate, QueryUser, VouchedDate, VouchedUser, Status ) 

但是，在select中，您没有为最后5个字段提供相应的值，因此存在不匹配（select中插入数字字段中的数字字段），因此

将文本值添加到与字段对应的select语句中（如图所示，我使用Null，但可以是您想要的任何值）

选择…，[SmallItemsImport]。金额，Null，Null，Null，Null，Null FROM…

或

只需将它们从insert子句中删除，并让DB创建一个默认值

---

我解决了这个问题，在添加了空值之后，我在ReturnDate选择之前缺少了单词“Forms”，在添加这个之后，它按照我想要的方式工作

strSQL=“插入SmallItems（组织、返回日期、项目编号、案例工作者、ID、项目描述、框架、金额、查询日期、查询用户、VouchedDate、VouchedUser、状态）选择表单！[SmallItemsImportValidationForm]！[OrganizationDropdown]”&，“表单”[SmallItemsImportValidationForm]！[ReturnDateDropDown]，[SmallItemsImport]，[SmallItemsImport].Caseworker[SmallItemsImport].ID[SmallItemsImport].ItemDescription[SmallItemsImport].Framework[SmallItemsImport].Amount，Null，Null，Null，Null“&”来自[SmallItemsImport]“

---

感谢您的回复。

如果看不到您收到的实际错误消息，很难提供帮助。您可以更新您的问题以包含您收到的错误消息吗？它不会给出错误消息，在我尝试运行它时它什么也不做，添加空值允许它运行，但现在它正在中查找ReturnDate的参数不是拉取下拉列表中选择的值。感谢您的回复，添加null允许代码现在运行，但现在当我运行它时，它要求我输入ReturnDate的参数值，而不是从下拉列表中选择的值中拉取它。

INSERT INTO SmallItems ( Organisation, ReturnDate, ItemNo, 
    Caseworker, ID, ItemDescription, Framework, Amount)