MS Access - SQL 连接有效 - VBA 无效
MS Access - SQL Concatenate works - VBA does not
我创建了一个查询,将 table 中的两个字段连接到同一个 table 中的第三个字段。
- Table:
[mif_999_sf_item_creation_subcategory_groups]
- 字段 1:
[Product_Group_Code__c]
- 字段 2:
[Subcategory_Group_Code__c]
- 字段 1 和 2:
[CCat_PrdGrpCd_n_SubCatCd]
查询有效,这里是 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
我创建了一个查询,将 table 中的两个字段连接到同一个 table 中的第三个字段。
- Table:
[mif_999_sf_item_creation_subcategory_groups]
- 字段 1:
[Product_Group_Code__c]
- 字段 2:
[Subcategory_Group_Code__c]
- 字段 1 和 2:
[CCat_PrdGrpCd_n_SubCatCd]
查询有效,这里是 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