添加复选框
属性表相关
例1:
设置窗体的相关属性使其在窗体视图中不显示记录选择器和浏览按钮。
浏览按钮对应【导航按钮】
不允许输入和修改其中的数据→【是否锁定】
例2:
单击“退出”按钮(名为“bt2”),调用设计好的宏“mEmp”来关闭窗体。
分组和汇总
对“rSell”报表进行适当设置,使每名雇员的姓名显示在该雇员所售书籍信息的左上方(说明:每名雇员的姓名只显示一次);在报表适当位置添加一个计算控件,控件名称为“txtSUM",显示内容为每名雇员所售书籍的总销售额。
利用表达式按“编号”字段前四位分组统计各组记录个数,并将统计结果显示在组页脚节区。
真考题库试卷56:
更改控件类型
数据库设置
为当前数据库设置“启用布局视图”
设置系统相关属性,实现打开的窗体以重叠窗口形式显示
创建报表
创建一个名为"eSalary"的报表,按表格布局显示查询"qT"的所有信息。
设置报表输出条件
编写VBA代码
修改窗体标题
例1
加载“fQuery”窗体时将窗体标题改为“YYYY年MM月DD日 显示查询信息”YYYY为本年年号,MM为本月月份,DD为当天)
Me.Caption = Format(Date, "yyyy年mm月dd日 ") & "显示查询信息"
打开窗体时设置窗体标题为“XXXX年信息输出”显示,其中“XXXX”为系统当前年份(要求用相关函数获取)
Me.Caption = Year(Date) & "年信息输出"
当需要年份以两位xx输出时:Right(Year(Date),2)
设置报表标题为引用标签“bTitle”的值,同时,将其中的英文内容部分大写输出:Me.Caption=Ucase(Me.bTitle.Caption)
例2
预览报表时,报表标题栏显示标签控件“bTitle”的内容。
Me.Caption = bTitle.Caption
设置文字颜色、字体粗细
将窗体中“退出”命令按钮(名称为“cQuit”上显示的文字颜色自动改为红色(红色代码为255),字体粗细改为“加粗”(代码为800)。
cQuit.ForeColor = 255
cQuit.FontWeight = 800
设置"退出"按钮(名为"bt2")标题设为粗体显示:Form.bt2.FontBold = True
fontbold的取值为True/False,表示字体是否为粗体,true为粗体,false为非粗体
将该标签控件"ITalbel"上的文字颜色改为"蓝色":ITalbel.ForeColor = RGB(0,0,255)
设置按钮状态
真考题库试卷41:
在窗体中有“修改"和“保存”两个命令按钮,名称分别为“CmdEdit”和“CmdSave”,其中“保存”命令按钮在初始状态为不可用,当单击“修改”按钮后,“保存”按钮变为可用。当单击“保存”按钮后,输入焦点移到“修改”按钮。
分别设置Enable和SetFocus属性
单击窗体“报表输出”按钮(名为“bt1”),调用事件代码实现以预览方式打开报表“rEmp”。
DoCmd.OpenReport "rEmp", acViewPreview
设置窗体属性
在窗体加载时,“tPass”文本框的内容以密码形式显示:tPass.InputMask = "Password"
命令汇总
- Form.RecordSource
在“Text1“文本框中输入了作者姓名后,单击"cQuery"命令按钮,将在"CCC"子窗体中显示出该作者出版的书籍信息。
CCC.Form.RecordSource = "select * from tBook where 作者名 like'" & Me![Text1] & "*'"
Me![Text1] 表示当前窗体(或表单)中名为 Text1 的控件的值。* 是通配符,用于模糊匹配,表示查询【作者名】列以Me![Text1] 开头的记录。
- rs.EOF
rs.EOF 是 ADODB.Recordset 对象的一个属性,用于检查当前记录集是否已经到达了结果集的末尾(End of File)。它是 End of File 的缩写。
Do While Not rs.EOF
Do While rs.EOF = False
- MoveNext
MoveNext 是 ADODB.Recordset 对象的方法之一,用于将当前记录指针移动到结果集中的下一条记录。它用于在遍历查询结果时,逐条获取记录的过程中移动记录指针。
rs.MoveNext
- DoCmd.RunMacro
DoCmd.RunMacro 是用于运行Microsoft Access数据库中宏的方法之一
运行宏对象m1:DoCmd.RunMacro "m1"
设置预览方式
以预览方式打开“rReader”报表,条件输出高级读者(职称为“教授”和“副教授”的读者)借阅信息。
AcView 枚举 (Access)
真考题库试卷65:
域聚合函数
DMax & DMin
真考题库试卷75:
真考题库试卷37:
真考题库试卷39:
真考题库试卷42:
真考题库试卷86:
If IsNull(Trim(Me.txtName)) Then
真考题库试卷84:
真考题库试卷83:
Me!LTime.Caption = Format(Time(),“hh时mm分ss秒”)
真考题库试卷83:
真考题库试卷81:
真考题库试卷72:
真考题库试卷66:
真考题库试卷62:
真考题库试卷57:
真考题库试卷48: