Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: MsgBox("Не указан рег.номер автомобиля!", vbOKOnly + vbExclamation, "Сообщение")
 
 автор: stix   (06.10.2006 в 10:07)   личное сообщение
 
 

Давно интересовался:
MsgBox - функция, возвращает целое ч. Без второго параметра(vb....) она не требует переменной. Но когда добавляешь типо "vbOKOnly+vbExclamation" , то он требует переменную. Но в данном случае результат ф-ии заранее известен (OK), идет просто оповещение User-а.
Пример:
Dim b1 As Integer
If IsNull(.p113.Value) Then
b1 = MsgBox("Не указан рег. номер втомобиля!",vbOKOnly+vbExclamation, "Сообщение")
Exit Sub
End If

Хотелось бы примерно так:
If IsNull(.p113.Value) Then
MsgBox("Не указан рег. номер автомобиля!", vbOKOnly + vbExclamation, "Сообщение")
Exit Sub
End If
Вопрос: если не надо возвращаемый результат(vbOKOnly), можно обойтись без лишних переменных? От vbExclamation отказаться не могу.

  Ответить  
 
 автор: ДрЮня   (06.10.2006 в 11:07)   личное сообщение
 
 

Если я правильно понял:
1.
MsgBox "Не указан рег. номер втомобиля!",vbExclamation, "Сообщение"

2.
Call MsgBox("Не указан рег. номер автомобиля!", vbOKOnly + vbExclamation, "Сообщение")

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList