ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автовставка наименования.
21 сообщений из 21, страница 1 из 1
Автовставка наименования.
    #32871737
Deliya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deliya
Участник
Новый день - новые вопросы :)

Подскажите, как в форме сделать так, чтоб на основании введенного ID товара в соседнюю строку автоматически вставлялось его название (Данные берутся из таблицы товары).
...
Рейтинг: 0 / 0
19.01.2005, 11:01:30
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32871766
Alexander Popov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander Popov
Участник
Сделайте подчиненную форму с наименованиями товаров и свяжите ее по ID.
...
Рейтинг: 0 / 0
19.01.2005, 11:12:13
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32871817
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Вот не надо

Если у вас комбик, то к его столбцам (которых) может быть больше двух можно обратиться так

Combo1.Column(1) - второй столбец (счет начинается с 0)

В вашем случает на событие обновления комбика вешаем код
Me.Control5 = Me.Combo1.Column(1)
...
Рейтинг: 0 / 0
19.01.2005, 11:30:00
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32871820
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
PS: А если не комбик, то сделайте комбик и не мучайтесь
...
Рейтинг: 0 / 0
19.01.2005, 11:30:53
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32871897
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
А если не хотите использовать ComboBox то тогда делаете следующее.

На форме создаете два поля.

Поле0 - куда вводим значение ID.
Поле2 - будет полем, которое будет отображать результат.

Затем на событие изменения Поля0 вешаете следующий код:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Поле0_Change()
    Dim strQuery As String
    
    strQuery = "SELECT tblProducts.Product AS A " & _
        "FROM tblProducts " & _
        "WHERE (((tblProducts.ProductID)=[Forms]![frmForm1]![Поле0]));"
    Me.RecordSource = strQuery
    Me.Поле2.ControlSource = "A"
End Sub

Сразу после ввода в Поле0 номера, в Поле2 будут отображаться результаты.
...
Рейтинг: 0 / 0
19.01.2005, 11:57:01
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32871928
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Пользователь2А если не хотите использовать ComboBox то тогда делаете следующее.

На форме создаете два поля.

Поле0 - куда вводим значение ID.
Поле2 - будет полем, которое будет отображать результат.

Затем на событие изменения Поля0 вешаете следующий код:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Поле0_Change()
    Dim strQuery As String
    
    strQuery = "SELECT tblProducts.Product AS A " & _
        "FROM tblProducts " & _
        "WHERE (((tblProducts.ProductID)=[Forms]![frmForm1]![Поле0]));"
    Me.RecordSource = strQuery
    Me.Поле2.ControlSource = "A"
End Sub

Сразу после ввода в Поле0 номера, в Поле2 будут отображаться результаты.
МОжно проще :) (ИМХО)
На событие Поле0_AfterUpdate повесть строку типа: Поле2 = DLookUp(...)
...
Рейтинг: 0 / 0
19.01.2005, 12:05:03
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32872028
Deliya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deliya
Участник
В поле0 уже стоит:

Private Sub Task_name_AfterUpdate()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

End Sub

Куда вставлять "Поле2 = DLookUp(...)" то....?
...
Рейтинг: 0 / 0
19.01.2005, 12:24:09
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32872041
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Можно воспользоваться функцией DLookup , как предложил paparome .

На событие после обновления Поле0 пишешь код:

Код: plaintext
1.
2.
3.
Private Sub Поле0_AfterUpdate()
    Me.Поле2 = DLookup("[Product]", "tblProducts", "[ProductID] = " & _
        " Forms![frmForm1]![Поле0] ")
End Sub
...
Рейтинг: 0 / 0
19.01.2005, 12:27:22
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32872049
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Deliya , у тебя уже есть 2 рабочих варианта. Выбирай любой.
...
Рейтинг: 0 / 0
19.01.2005, 12:29:10
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32872064
Deliya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deliya
Участник
А если в событие изменението:

Private Sub Код_типа_работ_Change()
Dim strQuery As String

strQuery = "SELECT tblProjects.ProjectName AS A " & _
"FROM tblProjects " & _
"WHERE (((tblProgects.ProgectID)=[Forms]![frmPurchase_Orders1]! [Код_типа_работ]));"
Me.RecordSource = strQuery Me.Task_categ_Name.ControlSource = "A"

То что желтым - ему не нравится....
...
Рейтинг: 0 / 0
19.01.2005, 12:31:19
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32872084
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Значит что-то не так с запросом.
...
Рейтинг: 0 / 0
19.01.2005, 12:35:27
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32872100
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
strQuery = "SELECT tblProjects.ProjectName AS A " & _
"FROM tblProjects " & _
"WHERE (((tblProgects.ProgectID)=[Forms]![frmPurchase_Orders1]! [Код_типа_работ]));"

может это?
--------------
crazy about...
...
Рейтинг: 0 / 0
19.01.2005, 12:39:01
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32872112
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Пользователь2Значит что-то не так с запросом.
1. Не надо Change, надо AfterUpdate
2. И соурс форме менять это не хорошо, мож там уже что-то используется
3. Мы так и не знаем на какой платформе это все юзается, если в adp, то запрос со ссылками на поля формы не попрет однозначно!
...
Рейтинг: 0 / 0
19.01.2005, 12:41:27
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32872124
Deliya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deliya
Участник
KelmestrQuery = "SELECT tblProjects.ProjectName AS A " & _
"FROM tblProjects " & _
"WHERE (((tblProgects.ProgectID)=[Forms]![frmPurchase_Orders1]! [Код_типа_работ]));"

может это?
--------------
crazy about...

Спасибо, точно! Изменила. Но ему именно строчка " Me.RecordSource = strQuery" не нравится.....
...
Рейтинг: 0 / 0
19.01.2005, 12:43:57
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32872135
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
"WHERE (((tblProjects.Pro g ectID)=[Forms]![frmPurchase_Orders1]! [Код_типа_работ]));"

а тут изменила?
--------------
crazy about..
...
Рейтинг: 0 / 0
19.01.2005, 12:45:56
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32872148
Deliya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deliya
Участник
mdb
Access 2000

А в событии после обнавления у меня там запись:

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Она мне нужна....
...
Рейтинг: 0 / 0
19.01.2005, 12:48:38
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32872153
Deliya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deliya
Участник
Kelme"WHERE (((tblProjects.Pro g ectID)=[Forms]![frmPurchase_Orders1]! [Код_типа_работ]));"

а тут изменила?
--------------
crazy about..

Да там тоже.
...
Рейтинг: 0 / 0
19.01.2005, 12:50:37
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32872164
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
а если так:
Код: plaintext
1.
2.
3.
4.
 
strQuery = "SELECT tblProjects.ProjectName AS A " & _
"FROM tblProjects " & _
"WHERE tblProgects.ProgectID=" & [Forms]![frmPurchase_Orders1]![Код_типа_работ]

таксс... у тебя пробел после "[frmPurchase_Orders1]!" был
--------------
crazy about...
...
Рейтинг: 0 / 0
19.01.2005, 12:54:11
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32872191
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Ну и оставь ее.

Код: plaintext
1.
2.
3.
4.
5.
Private Sub Код_типа_работ_AfterUpdate()
    DoCmd.DoMenuItem acFormBar, acRecordsMenu,  5 , , acMenuVer70

    Me.Task_categ_Name = DLookup("[ProjectName]", "tblProjects", "[ProjectID] = " & _
        "[Forms]![frmPurchase_Orders1]![Код_типа_работ] ")
End Sub
...
Рейтинг: 0 / 0
19.01.2005, 13:02:05
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32872255
Deliya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deliya
Участник
Так.... :) Все у меня подставляется куда надо, сама не знаю как сделала :
) (вставила список в то поле куда нада автоподстановку делать) и теперь он мне все правильно выбирает.
Но при переходе по записям тоесть от одного заказа к другому, Поле с ID изменяется, а поле с наименованием содержит данные предыдущего заказа....
Ну пока по нему не щелкнишь мышкой конечно.
А как так сделать, что бы он сразу правильные значения показывал (Форма в один столбец)?
...
Рейтинг: 0 / 0
19.01.2005, 13:23:48
| Ответить | Цитировать | Написать  
Автовставка наименования.
    #32872410
Deliya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deliya
Участник
Ха! Получичось!

Всем спасибо!!!!!!!!
...
Рейтинг: 0 / 0
19.01.2005, 14:17:51
| Ответить | Цитировать | Написать  
21 сообщений из 21, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автовставка наименования.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32871820&tid=1669204]:
 0ms
get settings:
 11ms
get forum list:
 21ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 88ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 71ms
get tp. blocked users:
 2ms
others: 251ms
total:  470ms
созд. / загр.: 470ms
x
x
Закрыть


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