Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: access 2003
 
 автор: sruslan   (03.12.2009 в 12:08)   личное сообщение
 
 

Здравсвуйте уважаемые.
Подскажите пожалуйста. Как мне вывести в поле формы результат запроса, использующего параметры с этой формы.
К примеру выбирается длина, диаметр, и в поле кубатура должна выводиться кубатура бревна.
если я пишу в свойствах поля (получение фокуса) следующую процедуру
Dim strSQL As String
strSQL = " SELECT kub.dlina, kub.diametr, kub.kubatura1brevna
FROM kub
WHERE (((kub.dlina)=[Forms]![svod]![dlina]) AND ((kub.diametr)=[Forms]![svod]![diametr]));
CurrentDb.Execute strSQL
она посылает меня удачно, типа невозможно выполнить запрос на выборку.

  Ответить  
 
 автор: snipe   (03.12.2009 в 12:22)   личное сообщение
 
 

а вона что....
DlookUp вам в помощь
ну примерно так
=Dlookup("[kubatura1brevna]";"[kub]";"(((kub.dlina)=" & [Forms]![svod]![dlina] & ") AND ((kub.diametr)=" & [Forms]![svod]![diametr] & "))")

может и вот так сработать

=Dlookup("[kubatura1brevna]";"[kub]";"(((kub.dlina)=" & [dlina] & ") AND ((kub.diametr)=" & [diametr] & "))")

все зависит от того где используете в форме как вычисляемое поле или в VBA

  Ответить  
 
 автор: sruslan   (03.12.2009 в 13:55)   личное сообщение
 
 

Блин не работает, выдает ошибку и все

  Ответить  
 
 автор: snipe   (03.12.2009 в 14:12)   личное сообщение
 
 

вы где это используете если в VBA то там надо точку с запятой поменять на запятую

какую ошибку выдает

  Ответить  
 
 автор: sruslan   (03.12.2009 в 14:30)   личное сообщение
15 Кб.
 
 

еслия вставляю в данные стороку, с точкой запятой, по в поле сразу светитсься ошибка, а если я вставляю в код vba следующую строку
[kub1br].Value = DLookup("[kubatura1brevna]", "[kub]", "(((kub.dlina)=" & [Forms]![svod]![dlina] & ") AND ((kub.diametr)=" & [Forms]![svod]![diametr] & "))")
то выдается ошибка, которая на скрине
6,4 - длина, а 14 диаметр, которые она берет с формы
не нравиться ей дробное число.

  Ответить  
 
 автор: Мюллер   (03.12.2009 в 15:01)   личное сообщение
 
 

С помощью Replace поменяйте запятую на точку.

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList