|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.05.2010, 10:12 | #1 |
Пользователь
Регистрация: 24.02.2010
Сообщений: 25
|
Написать функцию на VBA в access
Народ, уже писала, но никто не ответил, помогите написать несложную функцию на VBA для Access.
В приложении есть БД. В форме frm_OST_Operation в поле Time нужно расчитать след. вещь: 1) если значение Quantity, в той же форме =1, то Time = Constant из формы frm_OST_Elements; 2) если нет, то Time = Constant из формы frm_OST_Elements + Validation из формы frm_OST_Elements * Quantity из формы frm_OST_Operation. БД в приложении, помогите. плиз Я думала, так, но не получается. Private Sub Time_AfterUpdate() If Me.Quantity = 1 Then frm_OST_Operation!Time = frm_OST_elements!Constant Else: frm_OST_Operation!Time = frm_OST_elements!Constant + frm_OST_elements!Validation * frm_OST_Operation!Quantity End If End Sub |
05.05.2010, 10:21 | #2 |
Proffesional
Форумчанин
Регистрация: 18.11.2008
Сообщений: 417
|
только начал изучать basic.но постараюсь помочь.
какое выдает сообщение? желательно прикрепить аттач базы или хотя бы кода
О, степь родимая, как я скучаю по тебе...
|
05.05.2010, 10:30 | #3 |
Пользователь
Регистрация: 24.02.2010
Сообщений: 25
|
Большое спасибо, оч буду ждать.
|
05.05.2010, 13:31 | #4 |
Proffesional
Форумчанин
Регистрация: 18.11.2008
Сообщений: 417
|
пытаюсь помочь ...
пишу следующее Код:
1.условие оформил правильно.почему ругается? 2.что значит Option Compare Database
О, степь родимая, как я скучаю по тебе...
|
05.05.2010, 14:04 | #5 |
Форумчанин
Регистрация: 26.04.2008
Сообщений: 487
|
Уберите End If
либо Time.Text = Quantity.Text пишите с новой строки |
05.05.2010, 14:08 | #6 |
Форумчанин
Регистрация: 26.04.2008
Сообщений: 487
|
|
05.05.2010, 14:25 | #7 |
Proffesional
Форумчанин
Регистрация: 18.11.2008
Сообщений: 417
|
я знаю неплохо delphi и C#.
Неужели неосилю сразу basic? p.s. без обид но basic не очень для меня. посоветую книгу которую мне нужно почитать
О, степь родимая, как я скучаю по тебе...
|
05.05.2010, 15:00 | #8 |
Форумчанин
Регистрация: 26.04.2008
Сообщений: 487
|
Осилить все можно, ИМХО начинать нужно с изучения английского. В противном случае - Null
|
05.05.2010, 15:33 | #9 |
Proffesional
Форумчанин
Регистрация: 18.11.2008
Сообщений: 417
|
да я знаю что значит ошибка, хотя вроде структура условия правильная и кстати английский я учу понемногу уже давно
О, степь родимая, как я скучаю по тебе...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
написать кэш-функцию | andrey4623 | Общие вопросы Delphi | 6 | 01.04.2011 11:59 |
Написать функцию в функции^^ | kyroshyp | Microsoft Office Excel | 0 | 15.12.2009 19:58 |
помогите написать функцию | SkCr | Помощь студентам | 2 | 14.03.2009 21:24 |
Помогите написать функцию | Черничный | Общие вопросы Delphi | 4 | 13.08.2008 07:02 |