我的表单包含一个组合框,我在其中选择一个记录,并填充子表单中的txt
个字段。在save
按钮上,我有以下VBA代码。
Private Sub Save_Record_Click()
If Forms![frmAccount]![subAcctAppointment].Form![ApptID] = Forms![frmAccount]![subAccount].Form![txtAcctApptID] Then
Forms![frmAccount]![subAcctAppointment].Form![Added].Value = -1
End If
End Sub
如果subaccount
表单中只有一条记录,则无效,但似乎无法在下列记录中加上复选标记(-1
)。有什么建议?