基本操作与简单应用
1.将“入校时间”时间字段默认值设置为下一年度的一月一日。DateSerial(Year(Date())+1,1,1) 2.查找收藏品CD盘最高价格和最低价格信息输出，标题显示为v_Max和. v_Min
答：两次双击“价格”字段→视图→总计→第一个价格“总计”下拉选最大值，第二个选最小值→在第一个价格字段前添加v_Max，第二个前添加v_Min→保存。 3.查找还没有选课的学生姓名。
答：查询→设计视图→添加显示表→追加查询到tTemp→双击所需字段→切换SQL视图→第二行语句改为：SELECTTOP 5 tStud.学号, tStud. 姓名，tStud.年龄.
4.＂班级编号＂数据由统计地图得到，是学号的前6位，运行时提示：＂请输入班级编号：＂ 答：选中三个显示表，在第一列输入＂班级编号：Left（[tStudent]！[学号]，6）＂，在条件行输入：[请输入班级编号：]，保存。
5.创建一个交叉查询，统计各班每门的平均成绩，如图。
答：修改字段\学号\为\班级编号:left([tScore]![学号],8)\；将\成绩\字段改为\round(avg([成绩]))\，并在\总计\中选择\表达式\。分别在\学号\、\课程名\和\成绩\字段的\交叉表\行中选择\行标题\、 \列标题\和\值\。
6.在报表页面页脚添加一个计算控件，格式为：××××年××月
答：在工具箱中选择\文本框\控件，在报表页面页脚节区单击，选中\标签，按Del键将其删除，右击\未绑定\文本框，选择\属性\，在\全部\选项卡下的\名称\行输入\，在\控件来源\行输入\年\月\ 7.查询，最大教师与最小教师年龄的差值，标题为m_age
答：在字段行输入：m_age：Max([tTeacher]！[年龄]－min([tTeacher]！[年龄])，单击√ 8.设置报表主体节文本框tDept的控件来源为计算控件。根据“所属部门”字段值填写。 答：右击tDept的属性\控件来源\输入\＝DLookUp(\名称\，\，\所属部门＝部门编号\。 9.创建一个参数查询，查找“学号”“姓名”“性别”“年龄”，设置年龄为参数，参数值要求引用窗体fTemp上控件tAge的值。
答：在\年龄\字段的\条件\行输入\![fTemp]![tAge]\。
10.创建追加查询，姓名字段的第一个字符为姓，和学号组合在一起。
答：在\字段\行的第一列输入\标识: [学号]+Left([姓名],1)\，然后双击\姓名\、\性别\和\年龄\字段。
11.“工作时间”本年度4月1. “年龄”字段有效性规则。 答：\。\。
12.党员，非党员。\在\控件来属性\行输入\＝IIf([党员否]＝True，\党员\，\非党员\13.假设‘学生ID’字段的前四位代表年级统计各个年级不同课程的平均成绩，降序。
答：在\字段\行第一列输入\年级： Left([tStud]！[学生ID]，4)\，在\排序\行下拉列表中选中\降序\。分别双击\课程ID\、\成绩\字段添加到\字段\行，。
14.创建一个更新查询，用于计算水费，公式如下水费=3.7*（本月水—上月水） 答：双击字段列表中的\水费\字段【更新查询】，在\更新到\行输入\本月水]-[上月水])\ 15.“已住天数”“应缴金额”：“姓名”字段条件输入：[请输入姓名：]→下一行输入：已住天数：Day(Date()-[入住日期])下一列输入：应交金额：已住天数：Day(Date()-[入住日期])*[价格] 16.查找“身份证”字段，条件输入“Mid([身份证]，4，3)=102，取消显示。 17.楼号：Left([房间]，2).
1.输入1时，输入3时，输入＞=3时，
答：右键＂输出＂按钮，事件生成器，代码：Case Is＞=3 DoCmd.OpenReport＂rEmp＂
2.F1=1 n=1 F2=1 n=2
Fn=Fn-1+Fn-2 n＞=3
答：f（i）=f（i-1）+f（i-2） tData=f（19）
3.设置系统当前日期：Form.Caption＝ Date
4.单击命令按钮bList，要求运行宏对象m1.补充完整。 答：事件生成器，代码：DoCmd.RunMacro\ 5.在窗体中有“修改”“保存”两个按钮，点击修改，保存可用。 答：CmdSave.Enabled＝ True
6.补充窗体fText上bt1的单击事件代码，实现如下功能。。。 答：右键单击\按钮，【事件生成器】，在空格行输入：bTitle.Caption＝tText 7.窗体功能：打开窗体，单击计算按钮，事件过程使用ADO数据库技术。。。 答：1）If rs.RecordCount=0 Then
2）tAge=sage
8.窗体有个组合框和文本框，名称分别为CItem和TxtDetail. 答：1） Dim aa aa = cItem.Value
Ldetail.Caption = aa + \内容：\
2）fDetail.Form.RecordSource = \
3）MsgBox \查询项目和查询内容不能为空\注意\9.请重新输入口令。
答：MsgBox \请重新输入口令！\，vbOKquit
10.
答：if MsgBox (\报表预览\确认\11.单击刷新按钮，按性别条件动态显示退休职工的信息。 答：Form.RecordSource＝ \
12.在eSalary报表的主体节上添加两个计算控件：工资。
答：右键单击\文本框选择【属性】，在\标题\行输入\应发工资\，关闭属性界面。
右键单击\未绑定\文本框选择【属性】，在\名称\行输入\， 在\控件来源\行输入\基本工资]＋[津贴]＋[补贴]\，关闭属性界面。 按步骤1～3添加另一个计算控件\，
\控件来源\行输入\基本工资]＋[津贴]＋[补贴]－[住房基金]－[失业保险]\。
13.在窗体对象“fEmp”上有“刷新”和“退出”两个命令按钮，名为“bt1”“bt2”
答：单击刷新事件生成器，
1）Form.RecordSource = \
右键单击命令按钮\退出\选择【事件生成器】，空行内输入\代码\ 2）DoCmd.Close
3）'DoCmd.Close
14.计算10000以内素数，个数及最大数两个值。
答：步骤1：选择窗体设计视图中的\输出\按钮，右击选择\属性\。 步骤2：单击\事件\右边的\按钮。
计算10000以内的素数个数及最大素数两个值的语句为： For i = 2 To 10000
If sushu(i) Then n = n + 1 If i>mn Then mn = i
End If End If Next i
步骤3：代码调用宏对象\的语句为：DoCmd.RunMacro \。 步骤4：最后保存并运行该窗体。
15.修改查询对象，qEmp为参数查询，参数为引用窗体对象“fEmp”上文本框“tSS”输入值。 答：双击\改性别\字段，在\性别\条件输入\！[fEmp]！[tSS]\取消\性别\字段的显示。 16.窗体加载时，将考生文件夹下的图片“text.bmp”设置为窗体背景，路径CurrentProject.Path
答：Form.Picture=CurrentProject.Path& \
17，等级考试测试。bTitle.Caption = Trim(tText) & \等级考试测试\18.单击窗体“报表输出”按钮，调用事件代码以预览的方式打开。；单击退出。
答：DoCmd.OpenReport \，acViewPreview
19.“学号字段”5，6位代表专业信息：当为“10”时表示信息专业，其他为管理专业。
答：\选择属性。在\控件来源\行输入\＝IIf(Mid([tNum]，5,2)＝\，\信息\，\管理\20.图书的平均单价
答：\控件来源\行输入\Round(Avg( [单价])) 21.报表添控件，判断图书金额合计， 答：右键单击【该文本框】|【属性】，单击\全部\选项卡,在\名称\行输入\txtIf\；在\控件来源\行输入\=IIf（txtMoney>30000,\达标\不达标\\，关闭属性界面。 22.窗体中“报表输出”和“退出”，退出变红色， 答：1）bt2.ForeColor = 255
2）'DoCmd.OpenReport \
23.年度报表输出：Form.bTitle.Caption = Year(Date) & \年度报表输出\ 24.窗体“显示全部记录”：
答：右键单击命令按钮\显示全部记录\选择【事件生成器】。→在空行内输入代码： Private Sub Command4 Click()
BBB.Form.RecordSource＝ \姓名 like '\！[Text2] & \End Sub
Private Sub bListClick()
'*** 请在下面双引号内添入适当的SELECT语句 ***' BBB.Form.RecordSource＝ \*******************' [Text2] ＝ \End Sub
Private Sub 命令7 Click() DoCmd.Close End Sub\
相关推荐：
loading