如何在VBA中指定替换功能

Question

我在SQL查询中使用Replace函数，它正在访问sql查询设计模式但不能在访问VBA中工作。抛出预期的陈述结束。我尝试了所有方法，但没有工作。 CM 列有一个像这样的字符串;＃WR_1; #WR_2; #WR_3; #WR_4;＃，我试图获取值WR_2，其中字符串出现在哪里 CM 专栏

strSQL = "SELECT * FROM WT_table " & _
"WHERE [CM] IS NOT NULL " & _
"AND (';' & Replace([CM], '#', "") & ';') Like '*;WR_2;*'; ;"

Answer 1

从最后一行的末尾删除第二个分号（;） - 你有两个分号，看起来有多个语句要执行。

"AND (';' & Replace([CM], '#', "") & ';') Like '*;WR_2;*';"

另外，正如simoco所指出的，你的Replace函数中有一对双引号。我不确定你是否要使用两个单引号，但这将是在这种情况下使用的正确代码：

"AND (';' & Replace([CM], '#', '') & ';') Like '*;WR_2;*';"