深入理解Microsoft Access表单事件处理-CSDN博客

本文链接：https://blog.csdn.net/weixin_28939623/article/details/146927642

背景简介

Microsoft Access作为一款数据库管理系统，提供了丰富的表单事件供开发者使用。这些事件允许我们根据用户交互（如点击、按键）执行特定的动作，从而使得应用程序更加动态和响应用户操作。本文将深入探讨在Access中处理表单事件的细节，并通过实际案例展示如何编写事件过程。

鼠标事件

在Access中， MouseUp 和 MouseWheel 是两个与鼠标操作相关的事件。 MouseUp 事件在用户释放鼠标按钮时触发，发生在 Click 事件之前，并且具有与 MouseDown 和 MouseMove 事件相同的参数。而 MouseWheel 事件则在用户旋转鼠标滚轮时发生，它提供了页面变化和滚动行数的反馈，但因为没有取消参数，所以无法阻止用户滚动记录。

鼠标事件的使用示例

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MsgBox "MouseUp event triggered"
End Sub

键盘事件

键盘事件包括 KeyDown 、 KeyUp 和 KeyPress 。它们按照 KeyDown -> KeyPress -> KeyUp 的顺序发生。 KeyDown 和 KeyUp 事件可以响应各种按键，包括功能键和修饰键（如Shift、Ctrl、Alt）。 KeyPress 事件仅响应ANSI字符、Ctrl键与字母或特殊字符的组合，以及Enter或Backspace键。通过设置 KeyPreview 属性为Yes，可以使得表单先于控件处理键盘事件。

键盘事件的使用示例

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyF1
            MsgBox "F1 key pressed"
        Case vbKeyHome
            MsgBox "Home key pressed"
    End Select
End Sub

错误事件

Error 事件在处理表单数据时遇到问题时触发。可以利用此事件来自定义错误消息，并选择是否显示默认的错误信息。这为开发者提供了一种方式，可以在不干扰用户的情况下，以更友好的方式提示错误信息。

错误事件的使用示例

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    If DataErr = conDuplicateKey Then
        Response = acDataErrContinue
        MsgBox "Customer already exists.", vbCritical, "Duplicate Value"
    End If
End Sub

过滤事件

Filter 事件在设计过滤器以限制记录时触发。通过编写事件过程，可以取消过滤命令，移除旧的过滤器，设置过滤器的初始值，或者调用自定义的过滤对话框。这对于实现复杂的用户交互场景非常有用。

过滤事件的使用示例

Private Sub Form_Filter(Cancel As Integer, FilterType As Integer)
    Select Case FilterType
        Case acFilterByForm
            MsgBox "Filter by form selected", vbOKOnly + vbInformation, "Filter By Form"
        Case acFilterAdvanced
            MsgBox "Advanced Filter/Sort is not authorized", vbOKOnly + vbInformation, "Advanced Filter By Form"
            Cancel = True
    End Select
End Sub