利用函数给组合框赋值
时 间:2020-12-22 15:08:41
作 者:欧志华 ID:51519 城市:广州
摘 要:利用 instr ,instrRev ,Mid 函数给组合框赋值。
正 文:
前段时间给一个朋友做了一个Excel数据的导入,当时要求是做两个不同表的数据导入,为了方便 所以都做在一个窗体了,每次在导入的时候都需要在组合框设置导入的类型,如下图:
感觉有点麻烦,后来想到用instr,instrRev,Mid 函数截取关键字,然后赋值到组合框,这样就可以减少操作,也防止了人手操作的误操作。
想想有时候懒也是前进的动力
Private Sub btnBroswer_Click()
Dim strFileName As String
Dim strFileType As String
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = CurrentProject.Path
.Filters.Clear
.Filters.Add "Microsoft Excel", "*.xls*"
If .Show = -1 Then
Me.txtFileName = .SelectedItems(1)
Else
Exit Sub
End If
End With
'加了一下几行代码意义就不一样了
strFileType = Mid(Me.txtFileName, InStrRev(Me.txtFileName, "\") + 1)
' Debug.Print strFileType
If InStr(strFileType, "商城") Then Me.cboSourceType = "商城"
If InStr(strFileType, "充值") Then Me.cboSourceType = "充值"
'为什么要用mid 套着 instrRev 而不是直接使用instr直接取值 是为了防止数据的路径也有同样的关键字导致导致取值错误
End Sub
Private Sub btnImport_Click()
Dim strMsg As String
Select Case Me.cboSourceType.Column(0)
Case "商城"
strMsg = "您选择了商城选项"
Case "充值"
strMsg = "您选择了充值选项"
Case Else
strMsg = "您没有选择选项"
End Select
MsgBox strMsg
End Sub
附 件:
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精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)