LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
 Forums Обновлено :: 07 февраля 2005
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: автомати...
 RE: автоматическое заполнение полей в форме
 
 15.06.2007 21:03:20
makc
48 сообщения


RE: автоматическое заполнение полей в форме
Почему не читаешь что люди пишут, этот кусок кода я вырезал из базы "решения" и подстроил под себя,
При выборе работы из "СпискоРабот" в заколовке формы в области данных заполняются поля "Работы_Descr" и "Цена" особенно обрати внимание на strFilter = пришлось повозиться с ковычками.
Private Sub СписокРабот_AfterUpdate()
Dim strFilter As String

' Определяет фильтр перед его передачей в функцию DLookup.
strFilter = "ID like '" & Me!СписокРабот & "'"

'Выбирает цену в соответствии с выбранной работой

Me!Цена = DLookup("SP142", "SC139", strFilter)
Me!Работы_Descr = DLookup("Descr", "SC139", strFilter)
DoCmd.RunCommand acCmdSaveRecord
'DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl "Цена"
Exit_СписокРабот_AfterUpdate:
Exit Sub

Err_СписокРабот_AfterUpdate:
MsgBox Err.Description
Resume Exit_СписокРабот_AfterUpdate
End Sub




P.S. Раздел для новичков
Автор: makc от 26.01.2004 11:18:07 Источник ...
 Страница 2 из 2
СледующийПредыдущийНет оценки
Предыдущий12 
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: автомати...
ПоискПоиск  Список форумовСписок форумов  
right
Начало | Forums
Copyright 2002-2016 Leadersoft.ru   ::  Leadersoft  ::  Соглашение о безопасности  ::  Условия использования
Не забудьте сохранить ссылку на страницу с кодом для дальнейшего анализа
Сайт разработан на базе технологий ASP.NET, DotNetnuke