Question

我正在尝试在Access模块中执行类似的操作：

sql = "UPDATE Carrera "
sql = sql & "SET Carrera.[carnombre]= '" & strFunction(Carrera.[CarreraNombre]) & "' "
sql = sql & "WHERE Carrera.[CarreraNombre]='ANIMACION';"
MsgBox (sql)
Application.CurrentDb.Execute (sql)

但我收到错误“尚未定义变量”，并在Carrera中突出显示strFunction(Carrera.[CarreraNombre])。如果我使用任何其他字符串，则更新有效。如何使用字段Carrera.[CarreraNombre]作为返回字符串的strFunction()的参数？

Answer 1

Carrera.[CarreraNombre]仅在执行SQL查询时具有值。您正在要求VBA在构建字符串时调用strFunction()，而VBA不知道Carrera.[CarreraNombre]的含义。我相信你想这样做：

sql = sql & "SET Carrera.[carnombre] = strFunction(Carrera.[CarreraNombre]) "

如何使用表字段作为函数的参数？

1 个答案: