MS Access - SQL 连接有效 - VBA 无效

MS Access - SQL Concatenate works - VBA does not

我创建了一个查询,将 table 中的两个字段连接到同一个 table 中的第三个字段。

查询有效,这里是 SQL 代码:

UPDATE mif_999_sf_item_creation_subcategory_groups SET mif_999_sf_item_creation_subcategory_groups.CCat_PrdGrpCd_n_SubCatCd = [Product_Group_Code__c] & "_" & [Subcategory_Group_Code__c];

我用过AllenBrowne's code 将 SQL 代码转换为 VBA.

但是当我将 VBA 代码粘贴到 VBA 模块并 运行 时,没有任何反应。我没有收到任何错误消息,但也没有将两列连接起来。

Sub Test()

strSql = "UPDATE mif_999_sf_item_creation_subcategory_groups SET mif_999_sf_item_creation_subcategory_groups.CCat_PrdGrpCd_n_SubCatCd = [Product_Group_Code__c] & ""_"" & [Subcategory_Group_Code__c];"

End Sub

我尝试在网络和本网站上寻找其他示例,但没有任何效果。

关于我做错了什么有什么想法吗?

您没有收到任何错误,因为它不存在。按照您的指示进行操作,效果很好。我猜您想 运行 查询分配给变量 strSql ?

在这种情况下,您需要按以下方式进行操作:

Sub Test()

    strSql = "UPDATE mif_999_sf_item_creation_subcategory_groups SET mif_999_sf_item_creation_subcategory_groups.CCat_PrdGrpCd_n_SubCatCd = [Product_Group_Code__c] & ""_"" & [Subcategory_Group_Code__c];"

    DoCmd.RunSQL strSql

End Sub