| |
|
|
| | Не могу понять, что в вызываемой процедуре нельзя использовать MsgBox???Делаю в пошаговом, всё отлично, дохожу до Msgbox-а получаю ошибку.. "Неправильный вызов процедуры или аргумент."  | |
| |
| |
| |
|
|
| | Можно. Главное правильно вызывать MsgBox. | |
| |
| |
| |
|
|
| | может Вы в него всунули какой-нибудь инвалид? | |
| |
| |
|
|
| |
|
|
| | вызываю
.....BegDate (Me.НачДата.Value)...
|
вот собственно сам Msgbox:
Public Sub BegDate(dt As Date)
Dim nResult As Integer
indx = Me!Days
nResult = MsgBox(" ТЕКСТ", vbOKCancel, vbInformation, "INcorrect")
If nResult = vbOK Then...
|
отладчиком дохожу до msgbox и получаю сообщение об ошибке, вызывающей процедуры | |
| |
| |
| |
|
|
| |
If MsgBox("ТЕКСТ", vbOKCancel, "INcorrect") = vbOK Then
|
Самого глючит. 
Или так
If MsgBox(" ТЕКСТ", vbOKCancel + vbInformation, "INcorrect") = vbOK Then
|
| |
| |
| |
| |
|
|
| | ТОЧ. Запятые. Работает.
СПАСИБ ВСЕМ!!  | |
| |
| |
| |
|
|
| | попробуйте
call msgbox ("Опаньки")
Call MsgBox("текст", vbExclamation, "не верно")
Select Case MsgBox("текст", vbOKCancel Or vbExclamation Or vbDefaultButton1, "не верен")
Case vbOK
Case vbCancel
End Select | |
| |
| |
