Окна сообщений — это часто используемая функция Visual Basic для приложений (VBA) для отображения информации и подсказки пользователю о взаимодействии. В этой статье блога мы рассмотрим различные методы использования окон сообщений с параметром VBYesNoCancel в Microsoft Access. Мы предоставим примеры кода для демонстрации каждого подхода, что позволит вам включить их в ваши собственные проекты Access VBA.

Метод 1: использование функции MsgBox
Самый простой способ отобразить окно сообщения с опцией VBYesNoCancel — использовать функцию MsgBox. Он позволяет указать сообщение, кнопки и значок для отображения. Вот пример:

Dim response As Integer
response = MsgBox("Do you want to continue?", vbYesNoCancel)
If response = vbYes Then
    ' Code for "Yes" button
    MsgBox "You clicked Yes!"
ElseIf response = vbNo Then
    ' Code for "No" button
    MsgBox "You clicked No!"
ElseIf response = vbCancel Then
    ' Code for "Cancel" button
    MsgBox "You clicked Cancel!"
End If

Метод 2: создание настраиваемой функции окна сообщения
Если вы предпочитаете больше контроля над внешним видом и поведением окна сообщения, вы можете создать настраиваемую функцию. Такой подход позволяет настроить окно сообщения и более гибко обрабатывать ответы пользователя. Вот пример:

Function CustomMessageBox(prompt As String) As Integer
    Dim response As Integer
    response = MsgBox(prompt, vbYesNoCancel)
    CustomMessageBox = response
End Function
' Usage:
Dim userResponse As Integer
userResponse = CustomMessageBox("Do you want to continue?")
Select Case userResponse
    Case vbYes
        ' Code for "Yes" button
        MsgBox "You clicked Yes!"
    Case vbNo
        ' Code for "No" button
        MsgBox "You clicked No!"
    Case vbCancel
        ' Code for "Cancel" button
        MsgBox "You clicked Cancel!"
End Select

Метод 3: использование метода DoCmd.RunCommand
В Access вы также можете использовать метод DoCmd.RunCommand для отображения окна сообщения с параметром VBYesNoCancel. Этот метод позволяет запускать встроенные команды Access, включая отображение окон сообщений. Вот пример:

DoCmd.RunCommand acCmdSaveRecord
Dim response As Integer
response = MsgBox("Do you want to continue?", vbYesNoCancel)
If response = vbYes Then
    ' Code for "Yes" button
    MsgBox "You clicked Yes!"
ElseIf response = vbNo Then
    ' Code for "No" button
    MsgBox "You clicked No!"
ElseIf response = vbCancel Then
    ' Code for "Cancel" button
    MsgBox "You clicked Cancel!"
End If

В этой статье блога мы рассмотрели три различных метода использования окон сообщений с параметром VBYesNoCancel в Access VBA. Вы можете использовать простую функцию MsgBox, создать собственную функцию окна сообщений или использовать метод DoCmd.RunCommand для достижения желаемого взаимодействия с пользователем. Включив эти примеры кода в свои проекты Access VBA, вы сможете улучшить взаимодействие с пользователем и обеспечить более динамичное взаимодействие.