我在表单中有以下代码。
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])
请任何想法。