Заполнение формы автоматически - PullRequest
0 голосов
/ 21 января 2019

Я не знаю, каким образом я могу заполнить мою форму автоматически. Я имею в виду, что я сделал простую базу данных, которая имеет только таблицу. Я тоже сделал форму. Пользователь может написать некоторую информацию о себе, например, имя. Если он / она заканчивает заполнять места для заполнения, он / она должен нажать кнопку «Отправить», и вся информация (ожидайте ID - это дает администратору) находится в базе данных. Пользователь может редактировать свою информацию, нажимая кнопку - когда он / она нажимает на нее, есть возможность написать идентификатор - когда идентификатор готов, пользователь может нажать кнопку загрузки данных, которые заполняют все места информацией, связанной с этим идентификатором.

Я попытался сделать SQL-запрос, но он не работает. Я прошёл часть моего кода в окне ниже, но я попробовал много комбинаций vba и sql - это всегда выглядит очень легко.

Private Sub button_wczytaj_Click()
OK_imie_wpr.Text = Select OK_imie from Karta_projektu where 
Numer_projekt_wpr = Numer_projekt
Form.Refresh
End Sub

button_wczytaj - кнопка загрузки моих данных.

OK_imie_wpr - это место, где пользователь может написать свое имя - например: Tom OK_imie - это место, где я держу имя на своем столе.

Numer_projekt_wpr - это заблокированное место, пользователь получает ID своего проекта от администратора.

Numer_projekt - это место, где я держу ID на своем столе.

Karta_projektu - это имя таблицы.

Я ожидаю, что когда я заполню место для ID и нажму кнопку загрузки, я получу все данные, связанные с моим ID. Что-то вроде:

SELECT OK_imie from Karta_projektu where ID = [And here i need id which user just write].

1 Ответ

0 голосов
/ 21 января 2019

выберите кнопку загрузки Перейти - свойство - перейти к событию - собственное событие -

'Предположим, ваше текстовое поле, в котором вы пишете свой идентификатор, называется Name как' TxtID '

Dim Query1 as string

Query1 = "SELECT OK_imie from Karta_projektu where ID = " & Me.TxtID & " "

Me.Form.Recordsource = Query1
Me.Form.Requery

Надеюсь, вы создали связанную форму.

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