2016年电大 二级ACCESS上机总结重点,小抄.docVIP

2016年电大 二级ACCESS上机总结重点,小抄If rs.RecordCount=0 Then ; tAge=sage 120305：将 tStudent 表中的全部记录显示出来： Select * From tStudent 130305：窗体加载时窗体标题属性为系统当前日期： Form.Caption=Date 140305：消息框： MsgBox 请重新输入口令！,vbOkquit 150304：输入框： k=InputBox (请输入大于0的整数值) 预览输出报表对象rEmp： DoCmd.OpenReport rEmp,acViewPreview 160304： Case Is=3 预览输出报表对象rEmp： DoCmd.OpenReport rEmp,acViewPreview 170304： Dim f(19) As Integer f(i)=f(i-1)+f(i-2) tData=f(19) 180304：单击刷新按钮，窗体记录源改为查询对象qEm： Form.RecordSource=qEmp 单击退出按钮，关闭窗体： DoCmd.Close 190303：窗体fEmp的加载事件中设置标签bTitle以红色文本显示：bTitle.Caption=vbRed 实现报表预览输出: mdPnt acViewPreview 200304：消息框： MsgBox 报表预览,vbQuestion+vbYesNo,确认 210304：动态设置窗体记录源为查询对象qEmp： Form.RecordSource=qEmp 280304：将考生文件夹下的图片文件test.bmp设置为窗体fEmp的背景： Form.Picture=CurrentProject \test.bmp 320305：CDID文本框内内容显示颜色改为红色： CDID.ForeColor=vbRed 330304：动态设置窗体记录源为查询对象qEmp： Form.RecordSource=qEmp 关闭窗体： DoCmd.Close 380304： 关闭窗体： DoCmd.Close 400305： 关闭窗体： DoCmd.Close 410305：使“保存”按钮CmdSave变为可用： CmdSave.Enabled=True 420203：将文本框中输入的内容与文本串等级考试测试连接，并消除连接串的前导和尾随空白字符，用标签bTitle显示连接结果： bTitle.Caption=Trim(tText) 等级考试测试 420303：关闭窗体： DoCmd.Close 440304：动态设置窗体记录源为查询对象qEmp： Form.RecordSource=qEmp 450304,：预览输出报表对象rEmp： DoCmd.OpenReport rEmp,acViewPreview 460305：关闭窗体： DoCmd.Close 470305：用户名和密码正确： If name = eucb And pass = 1234 Then 光标置于用户名文本框中： Me!tUser.SetFocus 点退出按钮关闭窗体： DoCmd.Close 480305：单击“退出”按钮，关闭当前窗体 DoCmd.Close 单击“保存”按钮，“修改”按钮不可用 CmdEdit.Enable=False Me!用户名_1.Enabled = False MsgBox 请重新输入口令！, vbOKquit 可以编辑word版 第 13 页 共 14 页