MyTetra Share
Делитесь знаниями!
MsgBox - Различные сообщения пользователю
19.07.2018
19:12
Раздел: VBA - Access - msa.polarcom.ru - 09 Интерфейс


MsgBox - Различные сообщения пользователю

Сообщение критическое (1 кнопка)

Dim Msg As String, Style As Integer, Title As String, Response As Integer

Msg = "Перегрев процессора у пользователя !!!" & vbCrLf & _

"Немедленно выключайте компьютер и отдохните 30 минут!"

Style = vbOKOnly + vbCritical + vbDefaultButton1

Title = "Внимание!"

Response = MsgBox(Msg, Style, Title)

If Response = vbOK Then

Application.Quit

End If




Или проще:

If Dir(Me!txtSRSFile) = "" Then

MsgBox "Файл исходных данных не обнаружен!", vbCritical, "Нет файла!"

Me!txtSRSFile.SetFocus

Exit Sub

End If






Вопрос (Yes - No)

'Запрос поддтверждения удаления записи при ответе НЕТ - остановка

If MsgBox("Действительно удалить ???", _

vbYesNo + vbCritical + vbDefaultButton1, _

"Удаление данных") = vbNo Then Exit Sub

'Удаление ....





Сообщение предупреждающие (OK-Cancel)

Dim intResponse As Integer 'Принимает ответ пользователя


'Вывод предупреждения - OK и ОТМЕНА


intResponse = MsgBox("Вы действительно собираетесь?", _

vbOKCancel + vbExclamation + vbDefaultButton2, "Предупреждение")


'Обработка ответа пользователя


Select Case intResponse

Case vbOK

MsgBox "Была нажата кнопка OK", vbInformation, "Ответ Пользователя"

'… Инструкции


Case vbCancel

MsgBox "Была нажата кнопка ОТМЕНА", vbInformation, "Ответ Пользователя"

'… Инструкции


End Select




Запрос данных от Пользователя:
Выводит окно для ввода данных пользователем, со значением по умолчанию "N/D" (нет данных)

Dim val As Variant

Dim Message As String, Title As String, Default As String

Message = "Ввведите Любое Значение"

Title = "Запрос данных"

Default = "N/D" 'Значение по умолчанию

val = InputBox(Message, Title, Default)

MsgBox "Пользователь ввел: " & val




Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования