我有一个绑定到表的表单,并允许用户滚动表中的现有记录并进行更改。我现在正在尝试构建一个允许用户插入新记录的按钮。到目前为止,我有一个基本的vba按钮:
Private Sub btnNew_Click()
DoCmd.GoToRecord , , acNewRec
End Sub
这将以相同的形式打开一条新记录,无法向用户保证记录已保存。我真正想要的是通过
上的保存按钮打开一个新的“弹出式”表单我该怎么做?
答案 0 :(得分:0)
转到表单的设计视图,添加一个名称 saveBtn 。在其属性下,将可见性设置为否。现在,在表格当前方法中,检查表单是否包含新记录,如果是,则使按钮可见。
Private Sub Form_Current()
Me.saveBtn.Visible = Me.NewRecord
End Sub
使用此方法,当前表单可用于导航和编辑,当它位于新记录上时,可以使用“保存”按钮,您可以在其中添加代码以运行“保存”命令或关闭“表单”,默认将保存记录。