组合框多选示例-再加一个提示
时 间:2019-08-30 11:32:10
作 者:林 ID:149 城市:温州
摘 要:组合框多选示例
正 文:
在 宏鹏 同志的基础上加了一个提示已存在:
Option Compare Database
'MultComb和MultComb1的区别:MultComb重复先择会整个组合框选择的内容会清空,只留下重选的那个,MultComb1则会把前面选的重复的去掉,MultComb2则则提示已存在
Public Function MultComb()
Dim i As Integer, strList As String
With Screen.ActiveControl
For i = 1 To .ListCount
strList = IIf(Nz(strList) = "", "", strList & ";") & .ItemData(i) '如果字符串为空,那么就是下拉列表的第几项的值,否则就是字符串长度加上分号再加上下拉列表的第几项的值
Next
If InStr(1, .Tag, .Text) = 0 And InStr(1, strList, .Text) > 0 Then 'InStr([起始,] 接受搜索的字符串,被搜索的字符串[,匹配模式]),从 Start 位置开始,在 String1 中寻找 String2 ,如果没有找到,则返回0。如果 String1 或 String2 为Null,则返回Null,其他情况返回 String2 在 String1 中的起始位置。
.value = IIf(Nz(.Tag) = "", "", .Tag & ";") & .Text
End If
.Tag = .Text
End With
End Function
Public Function MultComb1()
Dim i As Integer, strList As String
With Screen.ActiveControl
If Len(Nz(.value)) = 0 Then
.Tag = ""
Else
'当选择的数据在组合框中已经存在时(数据在中间或末尾),把已存在的数据替换成空字符串
If InStr(1, .Tag, "、" & .value) > 0 Then
' MsgBox "输入的数据已经存在"
' Exit Function
.Tag = Replace(.Tag, "、" & .value, "")
End If
'当选择的数据在组合框中已经存在时(数据在开头),把已存在的数据替换成空字符串
If InStr(1, .Tag, .value) > 0 Then
.Tag = Replace(.Tag, .value, "")
End If
'写入选择的数据
.Tag = .Tag & "、" & .value
If Left$(.Tag, 1) = "、" Then
.Tag = Mid$(.Tag, 2)
End If
.value = .Tag
End If
End With
End Function
Public Function MultComb2()
Dim i As Integer, strList As String
With Screen.ActiveControl
If Len(Nz(.value)) = 0 Then
.Tag = ""
Else
'当选择的数据在组合框中已经存在时提示已存在
If InStr(1, .Tag, .value) > 0 Then
.value = .Tag
MsgBox "输入的数据已经存在"
Exit Function
.Tag = Replace(.Tag, ";" & .value, "")
End If
'写入选择的数据
.Tag = .Tag & ";" & .value
If Left$(.Tag, 1) = ";" Then
.Tag = Mid$(.Tag, 2)
End If
.value = .Tag
End If
End With
End Function
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)
- 【Access查询示例】怎么将两个...(04.09)