Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Входные данные и результат в одной форме / 11 сообщений из 11, страница 1 из 1
01.12.2004, 15:11:26
    #32807799
Входные данные и результат в одной форме
Есть форма со свободным полем, в которое будем вводить номер продукта.

Нужно:

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

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

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

Не подскажите, есть какой-нибудь еще способ реализовать такого рода задачу?
...
Рейтинг: 0 / 0
01.12.2004, 15:21:27
    #32807829
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Входные данные и результат в одной форме
Через рекордсеты
...
Рейтинг: 0 / 0
01.12.2004, 15:24:37
    #32807834
Входные данные и результат в одной форме
Всеволод, будь добр, расскажи поподробнее.
...
Рейтинг: 0 / 0
01.12.2004, 15:26:32
    #32807840
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Входные данные и результат в одной форме
Пользователь2Всеволод, будь добр, расскажи поподробнее.
1) F1 -> Recordset
2) Поиск по форуму -> Recordset
...
Рейтинг: 0 / 0
01.12.2004, 16:01:55
    #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
01.12.2004, 16:19:41
    #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
01.12.2004, 16:26:05
    #32807964
Входные данные и результат в одной форме
Такой вариант решает поставленную задачу.

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

А какой бы вариант ты посоветовал?
Создаешь необновляемый запрос. На форме делаешь невидимые поля, с соответствующими ControlSource (т.е. те поля, в которых рассчитываются "результаты"). А по нажатии на кнопку присваиваешь значения этих полей соответствующим "видимым" полям.
...
Рейтинг: 0 / 0
01.12.2004, 16:40:07
    #32808013
Входные данные и результат в одной форме
А с помощью RecordSet как можно сделать?
...
Рейтинг: 0 / 0
01.12.2004, 17:01:08
    #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
01.12.2004, 17:30:29
    #32808169
Входные данные и результат в одной форме
В точности воспроизвел пример твоего кода с использование RecordSet.

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

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


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