|
|
|
Можно в WSH использовать код?Что-то не работает.
|
|||
|---|---|---|---|
|
#18+
Response = msgbox ("Продолжать?",1,"Выбор.") If (Response = vbYes) Then msgbox "OK" else msgbox "No" End If End Sub MsgBox появляется , а при нажатие кнопки не чего не происходит. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.04.2008, 16:01 |
|
||
|
Можно в WSH использовать код?Что-то не работает.
|
|||
|---|---|---|---|
|
#18+
End Sub - это от чего огрызок? Этот код в чистом виде вообще не должен работать. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.04.2008, 17:13 |
|
||
|
Можно в WSH использовать код?Что-то не работает.
|
|||
|---|---|---|---|
|
#18+
vbYes не определено ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.04.2008, 17:21 |
|
||
|
Можно в WSH использовать код?Что-то не работает.
|
|||
|---|---|---|---|
|
#18+
WSH понимает vb-константы, а если бы даже не понимал, то Response <> неопределенному значению, появилось бы No. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.04.2008, 17:54 |
|
||
|
Можно в WSH использовать код?Что-то не работает.
|
|||
|---|---|---|---|
|
#18+
В VBA так работает: Dim Msg, Style, Response Msg = "Форма < " & TelAdr & " > уже запущена." & vbCr & _ "Хотите её использовать?" Style = vbYesNo Response = MsgBox(Msg, Style) If Response = vbYes Then DoCmd.OpenForm p Else Msgbox "NO" End If а как на WSH ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.04.2008, 19:00 |
|
||
|
|

start [/forum/topic.php?fid=22&fpage=339&tid=1456657]: |
0ms |
get settings: |
7ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
51ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
39ms |
get tp. blocked users: |
2ms |
| others: | 233ms |
| total: | 366ms |

| 0 / 0 |
