Question

我的访问数据库中有两个表格：“调整表格”和“最终表格”。在“最终表格”上，有一个按钮，当我单击该按钮时，我希望它关闭当前表格并打开“调整表格”以创建新记录。

仅供参考-调整表格可能已经打开，因此，在这种情况下，只需关闭“最终表格”并移至新记录。

这是我到目前为止所拥有的：

ListField

但是，当我运行它时，出现错误“您无法转到指定记录”。

有什么主意要纠正吗？

Answer 1

在“ AdjustmentForm”上创建命令按钮，并将其命名为“ cmdAddRec”。单击时创建一个新记录。您可以在命令按钮中将内容添加到编码中，例如转到要在其中输入数据的控件。然后将您的代码修改为：

Private Sub Command438_Click()
    DoCmd.OpenForm "Adjustment Form"
    cmdAddRec_Click
    DoCmd.Close
End Sub

Answer 2

此代码应该有效：

  Dim f       As String

  f = "frmAdjustMent"     ' name of form to open

  ' save record
  If Me.Dirty = True Then Me.Dirty = False

  ' check if Adjustent form is open
  ' (if not, then open it)
  If CurrentProject.AllForms(f).IsLoaded = False Then
     DoCmd.OpenForm f
  End If

  DoCmd.GoToRecord acDataForm, f, acNewRec

  ' close current form

  DoCmd.Close acForm, Me.Name

VBA关闭当前表格并在新记录上返回其他表格

2 个答案: