Ms Access VBA错误3070

时间:2018-06-17 11:53:31

标签: vba ms-access

我在表单中有以下代码。

Dim rs As Object
    DoCmd.OpenForm "frmCustomer"
        Set rs = Forms!frmCustomer.Recordset.Clone
            rs.FindFirst "[CustomerID]=" & Me.CustomerID  <== Error Line
            Forms!frmCustomer.Bookmark = rs.Bookmark
    DoCmd.Close acForm, "frmDebt", acSaveNo

如果用户点击名称,代码会打开frmCustomer并根据CustomerID移至frmDebt。现在我得到错误3070

唯一的变化是frmCustomer。我添加了txtTotal

ControlSource = DLookUp("[sumApp]-[sumFin]";"qtrDebt";
    "[CustomerID] = " & [CustomerID])

请任何想法。

0 个答案:

没有答案