完整word版-ACCESS组合框技巧.doc
7 浏览量
2022-11-24
02:06:39
上传
评论
收藏 31KB DOC 举报
Access 是一个既可以只用来存放数据的数据库，也可以作为一个客户端开发工具来进行数
据库应用系统开发；即可以开发方便易用的小型软件，也可以用来开发大型的应用系统。
（1）存储方式简单，易于维护管理 ，界面友好、易操作
（2）面向对象 Access 是一个面向对象的开发工具
（3）集成环境、处理多种数据信息
（4）Access 支持 ODBC（开发数据库互连）
（5）支持广泛，易于扩展，弹性较大
正 文:
组合框使用技巧
一、只能选择而不能修改数据 Private Sub 组合框名称_KeyDown(KeyCode As Integer,
Shift As Integer) DoCmd.CancelEvent End Sub 注：在“键按下”事件中写入代码即可
二、消除不在列表中告警 Private Sub 组合框名称_NotInList(NewData As String,
Response As Integer) Response = 0 End Sub 注：在“不在列表中”事件中写入代码即
可
三、不在列表中,清空其数据并不移动光标 Private Sub 组合框名称_NotInList(NewData
As String, Response As Integer) Response = acDataErrContinue Me. 组合框名称
= Null Me. 组合框名称.Requery End Sub
四、调整，“箭头”满框正常的组合框，在其右边有一个小箭头，点击这个小箭头，会出现组
合框的内容列表。但如果设计不好，可能会出现“箭头”不能填满只占组合框的一部分的现象，
很难看的。解决办法很简单－－在窗体设计视图下，选中组合框，先设置你需要的字号，默
认是 9 号字，改成你需要的大小字号（在 14 号字内）。然后，按住“shift”键，再用小键盘
区的上下箭头键进行微量调整，“箭头”就会根据字号大小而自动调整，立马会出现你需要的
效果。
五、默认值为该组合框行来源的最后一行 1）、在窗体的加载事件中写： Dim n As Long
n = Me. 组合框名称.ListCount Me. 组合框名称.value = Me. 组合框名称.Column(0,
n - 1) 2）Me. 组合框名称= Me. 组合框名称.ItemData(Me. 组合框名
称.ListCount-1) 六、默认值为该组合框行来源的第一条记录 1）在窗体加载事件中写上以
下代码 Me.组合框名称 = Me.组合框名称.ItemData(0) 注：ItemData(n) 其中 n 是要
作为默认值的所在行号。ItemData 属性是从零开始的，所以如果要使用列表中第一行为
默认值，请键入：ItemData(0)。 2）在窗体加载事件中写上以下代码 Me.组合框名称 =
Me.组合框名称.Column(0, 0) 3）在组合框的默认值属性中直接放下列表达式： =[组合
框名称].[Column](0,0) 或=[组合框名称].[ ItemData](0)
七、获得焦点时组合框自动打开 Private Sub 组合框名称_GotFocus() Me![ 组合框名
称].Dropdown End Sub
八、去掉组合框中的空白行只要在这个组合框行来源的查询设计视图中，那个字段条件中放
置 Not Is Null 就行了。
九、组合框内数据依次显示 Private Sub 组合框名称_DblClick(Cancel As Integer) If 组
合框名称.ListCount < 1 Then Exit Sub Dim I As Long I =组合框名称.ListCount If 组
合框名称.ListIndex < I - 1 Then 组合框名称.ListIndex =组合框名称.ListIndex + 1
Else 组合框名称.ListIndex = 0 End If End Sub 注：双击组合框，组合框内数据会依次
显示
资源评论
