掌握Access表单控件事件编程-CSDN博客

背景简介

在数据库应用程序开发中，事件编程是构建交互式用户界面的关键。本章主要探讨了Microsoft Access中表单控件的事件处理，通过NotInList事件、Click事件和DblClick事件的使用，展示了如何增强表单的响应性和用户交互体验。

NotInList事件

当用户在组合框中输入不在列表中的值时，NotInList事件将被触发。通过NotInList事件过程，我们可以自定义错误消息或者允许用户添加新项到列表中。例如，在资产管理系统表单中，如果用户尝试在房间类型组合框中输入不存在的值，则会触发一个事件过程，显示自定义消息并允许用户重新输入。

Private Sub cboRoomType_NotInList(NewData As String, Response As Integer)
    MsgBox "请从列表中选择一个值。", vbInformation + vbOKOnly, "无效输入"
    Response = acDataErrContinue
End Sub

Click事件

Click事件发生在用户点击命令按钮时。在本例中，点击“添加新公司”按钮会触发事件过程，打开新公司数据录入界面，用户可以在此界面中输入新公司信息。随后，数据通过验证并添加到数据库中，相应的组合框也会更新以包含新添加的公司ID。

Private Sub cmdNewCompany_Click()
    On Error GoTo Err_cmdNewCompany_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "frmAddCompany"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Exit_cmdNewCompany_Click:
    Exit Sub
Err_cmdNewCompany_Click:
    MsgBox Err.Description
    Resume Exit_cmdNewCompany_Click
End Sub

DblClick事件

DblClick事件发生在用户双击表单或控件时。在资产管理应用中，双击资产名称可以触发删除该资产的事件过程。通过DLookup函数检查资产是否被其他表使用或存在，然后执行删除操作。

Private Sub lboxCategories_DblClick(Cancel As Integer)
    Dim conn As ADODB.Connection
    Dim myAsset As String
    Dim myAssetDesc As String
    ' ...代码省略...
    If Response = 6 Then
        Set conn = CurrentProject.Connection
        strSQL = "DELETE * FROM tblEquipCategories Where EquipCategoryID = " & myAsset
        conn.Execute strSQL
        conn.Close
        Set conn = Nothing
        Me.lboxCategories.Requery
    End If
End Sub