MS Access 表单 - 打开和保存记录后的新记录

Question

关于我在这里发布的问题：

MS Access Form where user name is selected from list

我创建了一个用作员工时间表的表单。用户双击此表单，弹出另一个表单，他们从组合框中选择他们的用户名，主时间表表单专门为其用户名加载。他们可以添加新记录，还可以通过滚动“上一个”和“下一个”记录来查看他们以前提交的内容。

但是，当用户打开表单时，会显示他们的最后一条记录。此外，当保存新记录时，除非用户单击“新建（空白）记录”按钮，否则该新记录会继续显示。

有人可以帮我修改表单中的 VBA 代码以允许：
1) 打开表单时自动加载的空白记录 2) 保存/修改新记录时自动加载空白记录。

这是弹出窗口 - 当您选择主数据输入表单时弹出的表单：

这是弹出表单背后的代码（上图）：

Private Sub Form_Current()
If VBA.Strings.Len(txtUN & "") = 0 Then DoCmd.OpenForm "frm_UserName", acNormal, , , , acDialog
If VBA.Strings.Len(txtUsername & "") = 0 Then txtUsername = txtUN
End Sub

 Private Sub Form_BeforeUpdate(Cancel As Integer)


   Dim ctl As Control

   On Error GoTo Err_BeforeUpdate


   If Me.Dirty Then

      If MsgBox("Do you want to save?", vbYesNo + vbQuestion, _
              "Save Record") = vbNo Then
         Me.Undo
      End If
   End If

Exit_BeforeUpdate:
   Exit Sub

Err_BeforeUpdate:
   MsgBox Err.Number & " " & Err.Description
   Resume Exit_BeforeUpdate

End Sub

这是主要的数据输入表单[Specialist - Timesheet Entry]：

这是 [Specialist - Timesheet Entry] 表单背后的代码：

Option Compare Database

Private Sub cboUserName_AfterUpdate()
   Forms![Specialist - Timesheet Entry].txtUN = cbousername
   Forms![Specialist - Timesheet Entry].Filter = "user_full_name = '" & cbousername & "'"
   Forms![Specialist - Timesheet Entry].FilterOn = True
      'Forms![Specialist - Timesheet Entry].Requery
      'DoCmd.Close

End Sub
Private Sub Form_Unload(Cancel As Integer)
  If (VBA.Strings.Len(cbousername & "") = 0) Then
     MsgBox "You must supply a user name before proceeding.", , "ERROR: Missing Info."
     Cancel = True
  End If
End Sub  

一旦选择了 [专家 - 时间表条目]，就会弹出 [form_UserName]。您必须从列表中选择一个用户名，然后点击“X”按钮。选择“X”按钮后，将出现数据输入表单 [专家 - 时间表输入]，供用户输入必要的字段。 我还希望用户不必点击“X”按钮即可启动 [专家 - 时间表条目] 表单。理想情况下，一旦用户从弹出窗口的下拉列表中选择用户名，我希望表单自动关闭并生成 [Specialist - Timesheet Entry] 表单。

Answer 1

我想我有东西要给你。

我与 OverMind 有着相同的看法 - 我对 Me.Dirty 代码持怀疑态度。我认为没有必要。您需要做的就是单击下拉列表，选择一个名称并打开一个使用所选名称过滤的表单。 Form_BeforeUpdate 事件也是如此。您实际上并没有修改任何数据，您只是单击并选择。我建议删除这两个事件。

如果您不介意，我会稍微修改一下，因为我面前没有完整的应用程序。尝试以下（有几个部分）：

1.) frm_UserName

在cboUserName_AfterUpdate 事件中注释您现有的代码并添加以下行：

       DoCmd.OpenForm "Specialist - Timesheet Entry"
        'Open the main timesheet form and set the filter based on the dropdown selection in the previous form.
       Forms![Specialist - Timesheet Entry].Filter = "Username = '" & Forms![frm_UserName].cboUserName.Column(1) & "'"
       'Turn the filter on.
       Forms![Specialist - Timesheet Entry].FilterOn = True
       'Set the username textbox to the selected record.
       Forms![Specialist - Timesheet Entry].txtUN = Me.cboUserName.Column(1)
       'Jump to a new record even though the form is filtered.
       Forms![Specialist - Timesheet Entry].SetFocus
       DoCmd.GoToRecord , , acNewRec
       'Close the previous form - we no longer need it.
       DoCmd.Close acForm, "frm_UserName"

这将从frm_UserName 表单“打开Timesheet 表单时自动加载[空白记录]”打开Timesheet - Specialist Entry，使用选择作为过滤器。

2.) 专家 - 时间表条目

在 Form Open 事件中创建一个新过程并添加以下代码：

Private Sub Form_Open(Cancel As Integer)

    DoCmd.OpenForm "frm_UserName", acNormal, , , , acDialog

End Sub

接下来，在保存按钮Click 事件中创建一个新过程并添加以下代码：

Private Sub cmdSave_Click()

    'Save the record.
    RunCommand acCmdSaveRecord
    'Load a new record after the save.
    DoCmd.GoToRecord , , acNewRec

End Sub

这将在保存/修改新记录时自动加载空白记录。

我希望这会有所帮助。如果您有任何问题，请告诉我。我很乐意提供进一步的帮助。我也有可用的工作副本...