MS Access 2007：“代码打开”后无法更改字段一种形式

Question

我正在努力在 MS Access 2007 中创建多种表单。 我完成了以下任务：我有患者表单，我可以在其中创建/编辑患者记录。当按下保存按钮时，我将打开另一个表单，该表单的任务是输入属于两个表的信息。该表单上的表处于 1-1 关系，并且都使用外键（来自患者表的 PatiendID）。

我设法让一切正常工作 - 当我更新/保存新患者时，我打开了一个新表格，其中包含要输入的一堆实验室结果。一些结果属于一个表，其他结果属于另一表。 PatientID 字段（在第二个表单上也可见）已按其应有的方式设置。但是，当我尝试在该表单上的任何字段中输入任何值时 - 我在状态栏上收到以下警告：“此记录集不可更新”。 我认为这与我实际上在一个表单上打开了两个表有关，但我可能是非常错误的。

这是我用来打开第二种形式的代码：

Private Sub save_Click()
  Dim m_query As String
  m_query = "INSERT INTO labresults (patientID) VALUES (" & Me.ID & ")"
  If Me.Dirty = True Then
     Me.Dirty = False
  End If
  If DCount("patientID", "labresults", "patientID = " & Me.ID) = 0 Then
      CurrentDb.Execute m_query, dbFailOnError
  End If
  m_query = "INSERT INTO par14MO (patientID) VALUES (" & Me.ID & ")"
  If DCount("patientID", "par14MO", "patientID = " & Me.ID) = 0 Then
      CurrentDb.Execute m_query, dbFailOnError
  End If

  If CurrentProject.AllForms("labresults").IsLoaded = True Then
      Forms![labresults]![patientID] = Me.ID
      Forms![par14MO]![patientID] = Me.ID
  Else
      DoCmd.OpenForm "labresults", acNormal, , "idPAcijenta = " & Me.ID, acFormEdit, acWindowNormal, Me.ID
  End If

End Sub

有什么想法吗？？？

非常感谢！ 我仍在谷歌搜索并尝试...如果我设法解决问题，我将发布我的发现！

Answer 1

事实证明这确实是做不到的:)。结束这个，并假设这是一个答案。

编辑：有人向我建议我最后的陈述是不正确的。不过，我“手动”解决了问题，现在一切正常了。我将继续并接受这个答案，以便将我的回答保持在良好的水平。