ComboBox 对象 (Access)(二)
时 间:2022-07-16 08:45:05
作 者:杨雪 ID:42182 城市:南京
摘 要:以下示例演示在加载窗体时如何设置组合框的“RowSource”属性。
正 文:
以下示例演示在加载窗体时如何设置组合框的“RowSource”属性。 当显示该窗体时,存储在“tblDepartment”组合框的“Department”字段中的项目将显示在“cboDept”组合框中。
Private Sub Form_Load() Me.Caption = "Today is " & Format$(Date, "dddd mmm-d-yyyy") Me.RecordSource = "tblDepartments" DoCmd.Maximize txtDept.ControlSource = "Department" cmdClose.Caption = "&Close" cboDept.RowSourceType = "Table/Query" cboDept.RowSource = "Select Department FROM tblDepartments" End Sub
下面的示例演示如何创建在显示另一列时绑定到一列的组合框。 将“ColumnCount”属性设置为 2 可指定“cboDept”组合框将显示由“RowSource”属性指定的数据源的前两列。 将“BoundColumn”属性设置为 1 可指定在检查组合框的值时将会返回存储在第一列中的值。
ColumnWidths 属性指定两列的宽度。 通过将第一列的宽度设置为 0in.,可以在组合框中不显示第一列。
Private Sub cboDept_Enter() With cboDept .RowSource = "Select * FROM tblDepartments orDER BY Department" .ColumnCount = 2 .BoundColumn = 1 .ColumnWidths = "0in.;1in." End With End Sub
以下示例演示如何将项目添加到绑定的组合框。
Private Sub cboMainCategory_NotInList(NewData As String, Response As Integer) On Error GoTo Error_Handler Dim intAnswer As Integer intAnswer = MsgBox("""" & NewData & """ is not an approved category. " & vbcrlf _ & "Do you want to add it now?", vbYesNo + vbQuestion, "Invalid Category") Select Case intAnswer Case vbYes DoCmd.SetWarnings False DoCmd.RunSQL "Insert INTO tlkpCategoryNotInList (Category) " & _ "Select """ & NewData & """;" DoCmd.SetWarnings True Response = acDataErrAdded Case vbNo MsgBox "Please select an item from the list.", _ vbExclamation + vbOKOnly, "Invalid Entry" Response = acDataErrContinue End Select Exit_Procedure: DoCmd.SetWarnings True Exit Sub Error_Handler: MsgBox Err.Number & ", " & Err.Description Resume Exit_Procedure Resume End Sub
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access自定义函数命名为中文名...(09.20)
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)