Архив форумов ЦИТФорума

[Макс]

Почему на скрипт


dim MemRad
Dim Sum

Sum = 0

Private Sub Buh1_onchange()

If document.forma.Buh1.value = "o1" then Sum1 = 1
if document.forma.Buh1.value = "o2" then Sum1 = 2
if document.forma.Buh1.value = "o3" then Sum1 = 3
if document.forma.Buh1.value = "o4" then Sum1 = 4
if document.forma.Buh1.value = "o5" then Sum1 = 5
if document.forma.Buh1.value = "o6" then Sum1 = 6

Call Itog

End Sub


Private Function Rad1_OnClick() As Boolean

Rad1.Checked = True
Rad2.Checked = False
Rad3.Checked = False
Rad4.Checked = False
Rad5.Checked = False
Rad6.Checked = False
Rad7.Checked = False
Rad8.Checked = False

Sum = 5

Call Itog
End Function

Private Function Itog()

document.forma.TextXX.value=Sum
End Function




Выдаётся сообщение, что должна следовать какая-то инструкция?

[Макс]

Всё. Уже пашет!
Будут вопросы на такую же тему - обращайтесь! Помогу.