Question

问题：我的记录就像信息快照一样，当我保存新记录时，我需要能够在当前现有记录上将是/否字段从False更改为True。

为了论证，记录X和Y是相同的主题，只是在不同的时间点（相同的文档，不同的修订版）。我需要保存一条新记录，记录Z，这与今天的更新是同一主题。当我保存记录Z时，我希望记录Y有一个从False修改为True的复选框以显示它已过时。

保存新记录时，我确实有一个未绑定的文本框，显示现有记录编号（名为txtID）。有没有办法可以搭载对该框的引用，以便更改该记录上的复选框控件（名为chkObs）？

我目前保存记录的编码如下：

Private Sub cmdSave_Click()
  DoCmd.OpenTable "tblTasks", acViewNormal
  DoCmd.Requery
  Dim db As Database
  Dim rs As DAO.Recordset

  Set db = CurrentDb
  Set rs = db.OpenRecordset("Tasks")

  rs.AddNew
  rs("Namefield").Value = Me.NameD.Value
  rs("Reqt").Value = Me.ReqT.Value
  rs("Plant").Value = Me.Plant.Value
  rs("Requestor").Value = Me.Requestor2.Value + " " + Me.Requestor.Value
  rs("TaskDue").Value = Me.TDD.Value
  rs("AssignedERDM").Value = Me.AE.Value
  rs("Package").Value = Me.SUBN.Value
  rs("Comments").Value = Me.COM.Value
  rs("RequestRec").Value = Me.DRR.Value
  rs("Hold").Value = Me.H.Value
  rs("QuantityT").Value = Me.QT.Value
  rs("QuantityC").Value = Me.QC.Value
  rs("QuantityO").Value = Me.QR.Value
  rs("ERDMLogged").Value = Me.ELT.Value
  rs("Closed").Value = Me.Cl.Value
  rs("Hyperlink").Value = Me.hy.Value
  rs("DateMod").Value = Me.lm.Value
  rs("StatusAW").Value = Me.SSO.Value
  rs("CompleteDate").Value = Me.CD.Value

  rs.Update
  DoCmd.Close acTable, "tblTasks", acSaveYes
  DoCmd.Requery

End Sub

保存新记录时更改现有记录

0 个答案: