访问-创建一个在多个表单/子表单上填写文本框的按钮

时间:2018-10-15 19:19:11

标签: access-vba

我可以创建一个按钮,以将必填字段填写为表单上所需的最大值。但是我把它们全部放在不同的形式上。有没有一种方法可以在我的主表单上创建一个按钮/复选框,以在所有表​​单/子表单上输入所有信息?而不是在所有7个表单上都具有7个相似的按钮。尝试在创建新客户端时节省时间和人为错误...

当前使用Access 2003,但正在迁移到2016(我知道这是个巨大的飞跃)

2 个答案:

答案 0 :(得分:1)

您可以像在主窗体上一样执行此操作,但是您将需要了解在子窗体上引用控件的语法。 转到命令按钮并编辑Click事件的代码。

     Private Sub CommandButtonName_Click()
          Me.MainField.Value = "default" 'Set fields on the main form to their default values like this
          Me!SubformName.Form!SubformField.Value = "default" 'Set fields on the subforms with this syntax
    End Sub

您将必须对每个子表单中的每个字段执行此操作。编程一个“撤消”按钮可能也是明智的选择……我会留给您!

这不是最优雅的解决方案,但是我认为出于您的目的,为用户节省的时间将是值得在命令按钮事件内设置默认值的时间。

答案 1 :(得分:0)

可以通过代码打开表单并在文本框上执行操作等。 但是正如伊丽莎白·哈姆(Elizabeth Ham)所说,您需要指定每个动作。 这会使您的主表单非常慢。

Sub EnterDataOnForm()
Dim clsFrm As Form
Set clsFrm = Forms("frmNr1")

clsFrm.txtNr1.Value = "Test 1"
clsFrm.txtNr2.Value = "Test 2"

Set clsFrm = Nothing
End Sub