【access小品】组合框新增数据--对猫版实例的改造
时 间:2010-08-11 15:52:40
作 者:todaynew ID:10802 城市:武汉
摘 要:组合框新增数据--对猫版实例的改造
正 文:
今日见猫版发一组合框自动添加数据的实例,觉得有点意思。说起来,文本框、组合框、列表框三个控件功能有很大的不同,文本框可以输入新数据,列表框是完全不能输入数据,组合框可以输入数据但是很折腾人。从综合性能来说,组合框相对较优。组合框的新数据的增加不像文本框那么简单,需要利用其独有的【不在列表中】事件。由于数据源的复杂性,也不是所有组合框都能实现新增数据的,或者说有些新增可能复杂到不如采取其他更为简单的方式处理,比如说组合框的数据源是一个分组查询或者联合查询什么的。
猫版所发的实例,为一个特定的实例,缺乏通用性。想了想可以在此基础上,做一个相对通用的自定义函数,来一般性的解决组合框新增数据问题。于是写此例,供版友们参考。
点击下载此附件
Public Function newVal(ctl As Control, NewData As String, Response As Integer)
'功能:组合框添加数据
'适用:1、值列表
' 2、表或查询---仅适用一种情况:表中的ID字段为自动编号数据类型。
'示例:在出仓类别的【不在列表中】事件中写入代码:
' Private Sub 出仓类别_NotInList(NewData As String, Response As Integer)
' newVal Me.出仓类别, NewData, Response
' End Sub
Select Case ctl.RowSourceType
Case "Table/Query"
Dim rs As New ADODB.Recordset
Dim ssql As String
Dim A, i As Long
If MsgBox("所输数据不在选择列表中,确认存储数据吗?", vbOKCancel, "确认存储数据") = vbOK Then
Response = acDataErrAdded
ssql = ctl.RowSource
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
A = Split(ctl.ColumnWidths, ";")
For i = 0 To UBound(A, 1)
If Val(A(i)) > 0 Then
Exit For
End If
Next
rs.Fields(i).Value = NewData
rs.Update
rs.Close
ctl.RowSource = ssql
Else
Response = acDataErrContinue
ctl.Undo
End If
Case "Value List"
If MsgBox("所输数据不在选择列表中,确认存储数据吗?", vbOKCancel, "确认存储数据") = vbOK Then
Response = acDataErrAdded
ctl.RowSource = ctl.RowSource & ";" & NewData
Else
Response = acDataErrContinue
ctl.Undo
End If
End Select
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学习笔记--用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)
- 【Access窗体导出PDF】Ac...(04.08)