窗体_报表_VBA

窗体/报表/VBA

1． 窗体、报表、控件属性

窗体：名称，标题（caption），图片（picture）， 默认视图，记录选择器，导航按钮，分隔线，最大化、最小化按钮，关闭按钮，允许添加记录

记录源（recordsource），

控件：名称（Name）,标题（caption），左边距（left），上边距，大小，可见性（visible），前景色/文本颜色(forecolor),FontName,FontSize,控件来源（ControlSource）,可用（enable），输入掩码，有效性规则，有效性文本，默认值，是否锁定

各个节区的区别

● 设置窗体、报表的记录源；

● 设置TAB键次序；

● 设置子窗体的属性（8.3.5，去除子窗体的导航按钮）；

● 控件边距与大小的设置；

● 隐藏控件（可见性，visible）；

● 控件显示为灰色（可用，enable）；

● 文本框设置日期格式，数字格式；

● 文本框以密码形式显示，输入掩码：密码；

● 文本框更改为组合框，为组合框设置值（）

2. 控件3种类型：绑定，未绑定，计算控件

绑定：控件来源为查询、表、SQL语句的字段。

● 文本框显示为”性别”字段值，前提：所在窗体/报表需设置记录源。（43.3.2） ● 设置复选框控件来源属性以输出“党员否“字段值（713.3.2）

计算控件：

● =count([团队ID])，=count(*)，=avg([年龄])，

● （216.3.3） =year(date())-year([出生日期])，（715.3.2） =year(date())-[年龄] ● （216.3.4） =iif(mid([学号],5,2))=”10”,”信息”,”经济”)

● （318.3.3） =iif([党员否]，”党员”,”非党员”)

● （010.3.5） =iif(sum([单价]*[数量])>30000,”达标”,”非达标”)

● （216.3.5） =[fscore 子窗体].form![txtAvg]

=[子窗体名称].form![控件名] ，可使用生成器生成 ● （29010052）=DLookup(“名称”,”tGroup”,”部门编号=’”&[所属部门]&”’”)

3. 报表

排序

● （45.3.3）姓名升序，年龄降序

分组（显示组页眉/组页脚）

● （43.3.4）分组：=left([编号],4)，显示组页脚区，组页脚区的计算控件：=count(*) ● （44.3.3）分组：=left([姓名],1)，显示组页眉区，组页眉区的计算控件：=left([姓名],1) ● （010.3. ）分组：书籍名称，显示组页脚区，组页脚区添加txtAvg：=avg([单价])

页面页码：当前页码[page]，总页码[pages] ,可以使用生成器

● “第”&[page]&”页，共”&[pages]&”页”

● [page] &”/”&[pages]

4.窗体、控件事件

窗体加载：

按钮单击：（309.3.2）Btnp命令按钮的单击事件为已设计好的事件过程 更新后（数据更新后）：（410.3.5）组合框数据更新后

5.VBA

VBA设计基础

● （323.3.4）斐波那契数列

1: Dim f(1 TO 19) As Integer

2: f(i)=f(i-1)+f(i-2)

3 :tDate=f(19)

设置窗体、控件属性、调用控件方法

● Tda.forecolor=255

● （40.3.5）Ldetail.Caption=CItem.Text&”内容”

● （48..3.5）cmdsave.enable=false

● （47.3.5) 2: tuser.SetFocus 设置文本框焦点

● （42.3.4）窗体加载事件：Caption=Date()&”年职工信息输出”

● （29010043）Picture=CurrentProject.Path+”aa.bmp”

● （713.3.4) me.recordsource=”qEmp”

打开（报表、窗体、查询等），运行宏，关闭（窗体，报表）书本：P247 ● DoCmd.OpenReport "报表名", acViewPreview

● DoCmd.OpenForm "窗体名", acNormal

● DoCmd.RunMacro "宏名"

● DoCmd.Close

● DoCmd.Close acForm, "窗体名"

输入框，消息框，计时事件

● Strname=inputbox(“提示信息”,”标题”)

● Msgbox(“消息内容”,vbokonly+vbquestion,”标题”)

● Msgbox “消息内容”,0+64,”标题”

● 在窗体属性，设置时间间隔（TimeInterval），计时器触发事件Form_Timer()

部分VBA题答案：

44.3.4 退出按钮单击事件：Docmd.OpenReport “remp”

45.3.4 报表输出按钮单击事件：

If msgbox(“报表预览”,vbyesno+vbquestion,”确认”)=vbyes

47.3.5 1:if name=”cube” and pass=”1234” then

2:tuser.setfocus

3:docmd.close

48.3.5 1: cmdsave.enable=false

2: tuser_1.enable=false

3: msgbox “请输入···”,vbokonly

410.3.5

1: Ldetail.caption=CItem.Text&”内容”

2: fDetail.Form.RecordSource=”tstud”

3: msgbox “查询内容···”,vbokonly,”注意” then