powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Входные данные и результат в одной форме
11 сообщений из 11, страница 1 из 1
Входные данные и результат в одной форме
    #32807799
Есть форма со свободным полем, в которое будем вводить номер продукта.

Нужно:

Разместить на этой форме результирующие поля с возможностью редактирования. Результаты берутся из 2-х таблиц.

Т.е. Чтобы при вводе номера продукта и нажатии кнопки в этой же форме появлялся результат в результирующих полях и его можно было бы откорректировать.

Стандартный запрос на выборку здесь не подойдет, потому что его нельзя редактировать.
Еще конечно можно воспользоваться фильтрацией формы.

Не подскажите, есть какой-нибудь еще способ реализовать такого рода задачу?
...
Рейтинг: 0 / 0
Входные данные и результат в одной форме
    #32807829
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Через рекордсеты
...
Рейтинг: 0 / 0
Входные данные и результат в одной форме
    #32807834
Всеволод, будь добр, расскажи поподробнее.
...
Рейтинг: 0 / 0
Входные данные и результат в одной форме
    #32807840
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пользователь2Всеволод, будь добр, расскажи поподробнее.
1) F1 -> Recordset
2) Поиск по форуму -> Recordset
...
Рейтинг: 0 / 0
Входные данные и результат в одной форме
    #32807925
А может надо RecordSource использовать?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Кнопка1_Click()

    Dim strNewRecord As String
    strNewRecord = "SELECT * FROM [Таблица1] " _
        & " WHERE ID = '" _
        & Me!Поле1.Value & "'"
    Me.RecordSource = strNewRecord

End Sub

И как сделать, чтоб именно в Поле2 появлялся результат Поля2 из Таблицы1?
...
Рейтинг: 0 / 0
Входные данные и результат в одной форме
    #32807947
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Кнопка1_Click()

    Dim strNewRecord As String
    strNewRecord = "SELECT sum(Myfield_1 - MyField_2) as a FROM [Таблица1] " _
        & " WHERE ID = '" _
        & Me!Поле1.Value & "'"
    Me.RecordSource = strNewRecord
    Me!Поле2.ControlSource = "a"
End Sub
Но я не рекоммендую такой вариант. Не нравится он мне :)
...
Рейтинг: 0 / 0
Входные данные и результат в одной форме
    #32807964
Такой вариант решает поставленную задачу.

А какой бы вариант ты посоветовал?
...
Рейтинг: 0 / 0
Входные данные и результат в одной форме
    #32807980
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пользователь2Такой вариант решает поставленную задачу.

А какой бы вариант ты посоветовал?
Создаешь необновляемый запрос. На форме делаешь невидимые поля, с соответствующими ControlSource (т.е. те поля, в которых рассчитываются "результаты"). А по нажатии на кнопку присваиваешь значения этих полей соответствующим "видимым" полям.
...
Рейтинг: 0 / 0
Входные данные и результат в одной форме
    #32808013
А с помощью RecordSet как можно сделать?
...
Рейтинг: 0 / 0
Входные данные и результат в одной форме
    #32808077
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
DIM d as dao.recordset 
set d = currentddb.openrecordset("SELECT sum(Myfield_1 - MyField_2) as a FROM [Таблица1] " _
        & " WHERE ID = '" _
        & Me!Поле1.Value & "'")
if not d.eof then
Me!Поле2.ControlSource = d!a
end if
d.close
...
Рейтинг: 0 / 0
Входные данные и результат в одной форме
    #32808169
В точности воспроизвел пример твоего кода с использование RecordSet.

Работает не корректно.

В поляъ появляется надпись "#Имя?".
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Входные данные и результат в одной форме
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]