Question

我正在编写代码以将查询中的记录添加到表中。除了where语句之外，每个部分都有效。我正在使用表单输入添加记录的条件。但where语句不会识别表单。我检查了拼写并确认它们都匹配我正在使用的字段。

Dim dbs As Database
Dim MSG As String
Set dbs = OpenDatabase("test.accdb")
    dbs.Execute " INSERT INTO tbl_Order(fld_ClientId, Fld_orderDate, fld_Route, fld_MealType, fld_order)" _
    & "SELECT fld_clientID, Fld_LastDate, fld_Route, fld_MealType, fld_tueOrder " & "FROM [qry_mealSched]" _
    & "where Fld_Route = Screen.ActiveForm!CMD_Route;"
        dbs.Close

我的Where语句有什么问题，当我删除where语句时代码工作正常它只是插入我不想要的记录。

我还尝试用这个简单拼写：＆＃34;其中Fld_Route =表格（frm_mealSched）！[CMD_Route];＆＃34;

那也不起作用。

任何帮助都将不胜感激。

由于

Answer 1

您需要以这种方式编写where子句：

& "WHERE Fld_Route = '" & Screen.ActiveForm!CMD_Route & "';"

VBA哪里的法规不起作用

1 个答案: