INSERT INTO таблица в доступе из поля ввода - PullRequest
0 голосов
/ 27 апреля 2020

Я в тупике - и также очень плохо знаком с VBA в доступе, но вот мое намерение:

Я хочу, чтобы участник выбрал кнопку «Начать» в доступе, оттуда появятся несколько ящиков ввода позволяет пользователю вводить данные. Я хочу, чтобы введенные данные (имя, дата и т. Д. c.) Были сохранены в метке на форме, и в конце следующего человека, открывающего кнопку "начать", появляется куча бесплатных sh полей ввода. и их данные затем сохраняются в каждой метке формы. В конце игры мне по электронной почте присылают симпатичную форму.

Я освоил поля ввода и сообщения msgbox - они всплывают и запускаются до конца. Проблема, с которой я сталкиваюсь, заключается в том, что когда пользователь вводит свою информацию, она мне нужна, чтобы go заполнял форму в соответствующие поля, поэтому в итоге форму можно «напечатать» в формате .pdf и отправить мне. Любая помощь будет принята с благодарностью!

Sub Begin()

Dim AddName As String
Dim AddAddress As String
Dim AddSupv As String
Dim AddPhone As String

AddName = InputBox("What is your rank and full name?", "Enter Rank and Name")
AddAddress = InputBox("What is your home address? Please include street, city, state and zip.", "Enter Address")

Где бы я ни был, я бы добавил функцию для вставки данных после каждого поля ввода в поле в моей форме. Имя формы - это Form1, и у меня также есть таблица с надписью «AUS Table», в которой есть поля с именами «Name_and_Rank» и «Address», если данные поля ввода должны go сначала к таблице.

1 Ответ

0 голосов
/ 27 апреля 2020

Переменные не нужны, просто ссылки на элементы управления.

Для элементов управления меткой:
Me.lblName.Caption = InputBox("What is your rank and full name?", "Enter Rank and Name")
Me.lblAddress.Caption = InputBox("What is your home address? Please include street, city, state and zip.", "Enter Address")

Для элементов управления текстовым полем:
Me.tbxName = InputBox("What is your rank and full name?", "Enter Rank and Name")
Me.tbxAddress = InputBox("What is your home address? Please include street, city, state and zip.", "Enter Address")

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...