Access窗体中的组合框多选代码示例

泡小果

Access窗体的组合框多选代码如下（在组合框更新后事件中使用）：



Public Function zuhekuangduoxuan(组合框名称)
    If Len(Nz(组合框名称.Value)) = 0 Then
        组合框名称.Tag = ""
    Else
            
        '当选择的数据在组合框中已经存在时（数据在开头），把已存在的数据替换成空字符串
            If InStr(1, 组合框名称.Tag, 组合框名称.Value) > 0 Then
                组合框名称.Tag = Replace(组合框名称.Tag, 组合框名称.Value, "")
                                    
            Else
                组合框名称.Tag = 组合框名称.Tag & "、" & 组合框名称.Value
                If Left$(组合框名称.Tag, 1) = "、" Then
                      组合框名称.Tag = Mid$(组合框名称.Tag, 2)
                End If
            End If
            
        '判断组合框里面没有两个、、
            If InStr(1, 组合框名称.Tag, "、、") > 0 Then
                组合框名称.Tag = Replace(组合框名称.Tag, "、、", "、")
                    
            End If
            
        '判断组合框前面是否为、开头
            If Left$(组合框名称.Tag, 1) = "、" Then
                    组合框名称.Tag = Mid$(组合框名称.Tag, 2)
            End If
        
        '判断组合框最后有没有、
            If Right$(组合框名称.Tag, 1) = "、" Then
                组合框名称.Tag = Left(组合框名称.Tag, Len(组合框名称.Tag) - 1)
            End If
            
        组合框名称.Value = 组合框名称.Tag
    End If
End Function

yugewanaccess

喔 这个厉害

yugewanaccess

组合框多选还挺复杂的，除了VBA、查询也复杂

泡小果

yugewanaccess 发表于 2024-3-8 07:23
组合框多选还挺复杂的，除了VBA、查询也复杂

仅仅是想着从一个辅助表中的某一列选取多个数据，比如一个文件需要发放到多个部门，不想手打了

yugewanaccess

泡小果 发表于 2024-3-12 19:26
仅仅是想着从一个辅助表中的某一列选取多个数据，比如一个文件需要发放到多个部门，不想手打了 ...

这个具体情况具体分析吧，不用太纠结理论