我正在为here描述的问题苦苦挣扎。我想使用从主窗体调用的弹出窗口，将记录添加到表中，更新显示该表中数据的连续子窗体，然后将子窗体移至添加的记录中。

但是，该解决方案无效，并且引发了与here描述的错误相同的错误。下面是此设置的代码。

Private Sub Form_Load()
   Set prevForm = Screen.activeForm
   
   Me.cbo_EventCat = prevForm!cbo_EventCatSel2
   Me.cbo_EventType = prevForm!cbo_EventTypeSel2
   Me.cbo_SeasonStart = 1
   Me.cbo_SeasonEnd = 1
   Me.cbo_CostType = 1
   Me.txt_MinCost = ""
   Me.txt_MaxCost = ""
   Me.box_NewComments.Visible = False
   Me.txt_NewComments.Visible = False
   Me.box_OriginalComments.Visible = False
   Me.txt_OriginalComments.Visible = False
   Me.cbo_ExistingComments_Sel.Visible = False
   Me.box_NewBuiltComments.Visible = False
   Me.txt_NewBuiltComments.Visible = False
End Sub

Private Sub btn_SubmitAndReturn_Click()
   Dim strSQL,strSQLflds,strSQLvals,formName,strSubform As String
   Dim db As DAO.Database
   Dim rs As DAO.Recordset
   Dim recID As Integer
   Dim anyReqFldBlank As Boolean
   
   Set db = CurrentDb
   
   anyReqFldBlank = False
   
   strSQLflds = "INSERT INTO t_EventDetails (fkEventType,fkSeasonStart"
   strSQLvals = "VALUES (" & Me.cbo_EventType & "," & Me.cbo_SeasonStart
   
   If Me.cbo_SeasonStart = 1 Then
      Me.cbo_SeasonStart.BorderColor = RGB(255,0)
      anyReqFldBlank = True
   Else
      Me.cbo_SeasonStart.BorderColor = RGB(0,0)
      anyReqFldBlank = False
   End If
   If Me.cbo_SeasonStart > 2 Then
      If Me.cbo_SeasonEnd = 1 Then
         Me.cbo_SeasonEnd.BorderColor = RGB(255,0)
         anyReqFldBlank = True
      Else
         Me.cbo_SeasonEnd.BorderColor = RGB(0,0)
         anyReqFldBlank = False
         strSQLflds = strSQLflds & ",fkSeasonEnd"
         strSQLvals = strSQLvals & "," & Me.cbo_SeasonEnd
      End If
   End If
   If Me.cbo_CostType = 1 Then
      Me.cbo_CostType.BorderColor = RGB(255,0)
      anyReqFldBlank = True
   Else
      Me.cbo_CostType.BorderColor = RGB(0,0)
      anyReqFldBlank = False
      strSQLflds = strSQLflds & ",fkCostType"
      strSQLvals = strSQLvals & "," & Me.cbo_CostType
      If Me.cbo_CostType = 3 Then
         strSQLflds = strSQLflds & ",MinCost"
         strSQLvals = strSQLvals & "," & Me.txt_MinCost
      ElseIf Me.cbo_CostType = 5 Then
         strSQLflds = strSQLflds & ",MinCost,MaxCost"
         strSQLvals = strSQLvals & "," & Me.txt_MinCost & "," & Me.txt_MaxCost
      Else
      End If
   End If
   If Me.cbo_CommentsSel > 1 Then
      strSQLflds = strSQLflds & ",fkComments"
      strSQLvals = strSQLvals & "," & Me.cbo_CommentsSel
   End If
   If anyReqFldBlank = True Then
      MsgBox ("Fill in required information.")
      Exit Sub
   Else
      strSQL = strSQL & strSQLflds & ") " & strSQLvals & ");"
      MsgBox ("strSQL = " & strSQL)
      db.Execute strSQL,dbFailOnError
      prevForm!chd_EventDetails2.setfocus
      prevForm!chd_EventDetails2.Requery
      DoCmd.GoToRecord,acLast
      DoCmd.Close acForm,"f_AddEventInfo",acSaveNo
   End If
End Sub

我也尝试过这些技术，但存在各种问题。

Set rs = db.OpenRecordset("SELECT * FROM t_EventDetails")
rs.MoveLast
DoCmd.GoToRecord,acGoto,rs!fkID

使access抛出错误，说我无法转到该记录。

DoCmd.GoToRecord,acLast

不执行任何操作，也不引发任何错误。

我不知道如何解决这个问题。