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

Форум: MS ACCESS

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

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

 
 

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

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

тема: подставить строку в код процедуры
 
 автор: dmsrv803   (21.06.2010 в 14:44)   личное сообщение
 
 

Необходимо вычислить :
With rs
var1 = "!f1*!f2"
var2 = var1 - ??????????
End With
Проблема заключается в том, что в результате переменная var2 должна содержать не строку, а значение - результат вычисления по формуле !f1*!f2
Подскажите как лучше сделать.

  Ответить  
 
 автор: Анатолий (Киев)   (21.06.2010 в 15:12)   личное сообщение
 
 

Вычислять математические выражения умеет функция EVal, но значения полей Recorset-a нужно подставить в это выражение заранее. Например:
var1 = "!f1*!f2"
var1 = Replace(var1, "!f1", Str(!f1))
var1 = Replace(var1, "!f2", Str(!f2))
var2 = EVal(var1)

  Ответить  
 
 автор: dmsrv803   (21.06.2010 в 16:33)   личное сообщение
 
 

Спасибо - думаю, что смогу написать функцию для вычисления, используя этот способ.

  Ответить  
 
 автор: dmsrv803   (21.06.2010 в 17:38)   личное сообщение
 
 

нужен другой способ.

  Ответить  
 
 автор: kot_k_k   (21.06.2010 в 17:54)   личное сообщение
 
 

чем этот не устраивает?


всю Молдованку устраивает, а его видитили нет

  Ответить  
 
 автор: dmsrv803   (22.06.2010 в 11:30)   личное сообщение
 
 

не устраивает тем, что имена полей !f1, !f2 и т.д. содержатся в строке с формулой для вычисления, и я не могу явно их использовать как в функции EVal(), так и функции Replace().

  Ответить  
 
 автор: Гоблин   (21.06.2010 в 20:46)   личное сообщение
 
 

http://hiprog.com/forum/read.php?id_forum=1&id_theme=6677&page=1

Ответы Лукаса и Часа.

  Ответить  
 
 автор: dmsrv803   (22.06.2010 в 16:27)   личное сообщение
 
 

вставил строку с формулой в запрос на обновление - задача решена.
Всем огромное спасибо за участие.

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