Доступ - Создать кнопку, которая заполняет текстовые поля в нескольких формах / подчиненных формах.

Question

Я могу сделать кнопку, которая заполняет обязательные поля до максимальных значений для того, что мне нужно в моих формах.Но у меня есть все они в отдельных формах.Есть ли способ создать кнопку / флажок только на моей основной форме, которая вводит всю эту информацию на всех формах / подформах?Вместо того, чтобы иметь 7 одинаковых кнопок на всех 7 формах.Попытка сэкономить время и человеческие ошибки при создании новых клиентов ...

В настоящее время используется Access 2003, но в процессе перехода на 2016 год (огромный скачок, я знаю ...)

Answer 1

Можно открывать формы с помощью кода и выполнять действия с текстовыми полями и т. Д. Но, как сказала Элизабет Хэм, вам нужно будет указать каждое действие.Это может сделать вашу основную форму чрезвычайно медленной.

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

Answer 2

Вы можете сделать это так же, как в основной форме, но вам нужно будет знать синтаксис ссылок на элементы управления в подчиненных формах.Перейдите к командной кнопке и отредактируйте код для события 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

Это необходимо сделать для каждого поля в каждой подчиненной форме.Также может быть целесообразно запрограммировать кнопку отмены ... Я оставлю это на ваше усмотрение!

Это не самое элегантное решение, но я думаю, что для ваших целей сэкономленное время пользователей будет стоить времени, установленного по умолчанию в событии командной кнопки.