如何获取Access多列列表框中用户点击的列？

方法1：基于文本框列宽计算（适配任意分辨率） #

给你的多列文本框命名（例如txtMultiColumn），在其MouseDown事件中编写以下VBA代码，通过列宽的累计值判断点击列（Access的列宽单位为缇，不受分辨率影响）：

Private Sub txtMultiColumn_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim colWidthArray() As Single
    Dim totalWidth As Single
    Dim targetCol As Integer
    
    ' 拆分文本框的列宽配置为数组（列宽以分号分隔）
    colWidthArray = Split(Me.txtMultiColumn.ColumnWidths, ";")
    
    targetCol = -1
    totalWidth = 0
    ' 遍历列宽，匹配点击的X坐标对应的列
    For i = LBound(colWidthArray) To UBound(colWidthArray)
        totalWidth = totalWidth + Val(colWidthArray(i))
        If X <= totalWidth Then
            targetCol = i
            Exit For
        End If
    Next i
    
    ' 根据目标列执行对应操作
    If targetCol = 6 Then
        ' 弹出完整备注，假设完整备注存储在数据源的"FullRemark"字段
        MsgBox Nz(Me.Recordset.Fields("FullRemark"), "无备注内容")
    ElseIf targetCol = 7 Then
        ' 打开附件文件
        Dim attachPath As String
        attachPath = Nz(Me.txtMultiColumn.Column(7), "")
        If attachPath <> "" Then
            ' 需在标准模块中声明ShellExecute函数（64位Access需加PtrSafe）
            ' Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
            ShellExecute Me.hWnd, "open", attachPath, vbNullString, vbNullString, 1
        End If
    End If
End Sub

方法2：改用列表框控件（更简便的方案） #

如果你的控件是用来展示多条记录的列表，建议替换为列表框（ListBox），它自带HitTest方法可直接返回点击列索引：

Private Sub lstMultiColumn_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim targetCol As Integer
    targetCol = Me.lstMultiColumn.HitTest(X, Y)
    
    If targetCol = 6 Then
        MsgBox Nz(Me.lstMultiColumn.Column(6), "无备注")
        ' 若完整备注不在当前列，可直接取数据源字段：Me.Recordset.Fields("FullRemark")
    ElseIf targetCol = 7 Then
        Dim attachPath As String
        attachPath = Nz(Me.lstMultiColumn.Column(7), "")
        If attachPath <> "" Then
            ShellExecute Me.hWnd, "open", attachPath, vbNullString, vbNullString, 1
        End If
    End If
End Sub

注意事项 #

• 使用ShellExecute需在标准模块中添加函数声明，64位Access要加上PtrSafe关键字
• 确保附件路径为本地绝对路径，否则无法正常启动关联程序
• 用Nz函数处理空值，避免因字段为空引发报错

内容的提问来源于stack exchange，提问作者Martin