Написать функцию на VBA в access

[Verano naranjo]

Народ, уже писала, но никто не ответил, помогите написать несложную функцию на 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

[Neymexa]

только начал изучать basic.но постараюсь помочь.
какое выдает сообщение?
желательно прикрепить аттач базы или хотя бы кода

[Verano naranjo]

Большое спасибо, оч буду ждать.

[Neymexa]

пытаюсь помочь ...

пишу следующее

Option Compare Database

Private Sub Form_Load()
If Quantity.Text = "1" Then Time.Text = Quantity.Text
End If
End Sub

ругается End if without block If

1.условие оформил правильно.почему ругается?
2.что значит Option Compare Database

[Abrakadabra]

Уберите End If
либо
Time.Text = Quantity.Text
пишите с новой строки

[Abrakadabra]

Сообщение от Neymexa

что значит Option Compare Database

Перевод:
"Вы не с этого начали.."

[Neymexa]

Сообщение от Abrakadabra

Перевод:
"Вы не с этого начали.."

я знаю неплохо delphi и C#.
Неужели неосилю сразу basic?

p.s. без обид но basic не очень для меня.
посоветую книгу которую мне нужно почитать

[Abrakadabra]

Осилить все можно, ИМХО начинать нужно с изучения английского. В противном случае - Null

[Neymexa]

Сообщение от Abrakadabra

Осилить все можно, ИМХО начинать нужно с изучения английского. В противном случае - Null

да я знаю что значит ошибка, хотя вроде структура условия правильная и кстати английский я учу понемногу уже давно