VBA, MS Access MS Access в примерах

MsgBox - Различные сообщения

'Запрос подтверждения удаления записи при ответе НЕТ - остановка
    If MsgBox("Действительно удалить?", _
        vbYesNo +  vbQuestion + vbDefaultButton2, "Удаление данных") = vbNo Then
            'GoTo ...._End
            Exit Sub
    End If
    
'Удаление ...

Сообщение критическое (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("Действительно удалить записи с кодами:" & vbCrLf & sVal & vbCrLf & _
        "При ответе [Да] - записи будут удалены.", _
        vbYesNo + vbQuestion + vbDefaultButton2, "Удаление записей") = vbNo Then Exit Sub


Ещё:

    'Запрос поддтверждения при ответе НЕТ - остановка
    If MsgBox("Действительно выйти приложения?" & vbCrLf & "При ответе [Да] - приложение будет закрыто.", _
        vbYesNo + vbQuestion + vbDefaultButton1, _
        "Выход из приложения") = vbNo Then Exit Sub
'Выход:
    DoCmd.Close acForm, Me.Name
    Application.Quit


Сообщение предупреждающие (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 vVal As Variant
    vVal = InputBox("Ввведите Код Конкурсной Группы", "Запрос данных:", 1)
    If DCount("*", "Конкурсн_группы", "Код_к_гр = " & vVal) = 0 Then
        MsgBox "Код Конкурсной Группы не верен!", vbExclamation
        Exit Sub
    End If
    lКодКонкурснойГруппы = CLng(vVal) 

Назад ToTop
L.E. 12.02.2024
Рейтинг@Mail.ru