《access常用代码.docx》由会员分享，可在线阅读，更多相关《access常用代码.docx（4页珍藏版）》请在三一办公上搜索。
1、access常用代码1、单击命令按钮运行宏m1：DoCmd.RunMacro m1 2、标签Tda标题设置为系统当前日期：Tda.Caption=Date 3、使“保存”按钮CmdSave变为可用：CmdSave.Enabled=True 将输入焦点移到CmdEdit命令按钮：Me.CmdEdit.SetFocus 4、将文本框tText的内容作为窗体中标签bTitle的标题显示：bTitle.Caption=Me!tText 5、窗体加载时窗体标题属性为系统当前日期：Form.Caption=Date 6、打开窗体、单击计算按钮(名为bt)，事件过程使用ADO数据库技术计算出表对象tEmp中
2、党员职工的平均年龄，然后将结果显示在窗体的文本框tAge内并写入外部文件中。Ifrs.RecordCount=0Then;tAge=sage 7、将tStudent表中的全部记录显示出来：Select * From tStudent 8、窗体加载时窗体标题属性为系统当前日期：Form.Caption=Date 9、消息框：MsgBox请重新输入口令！,vbOkquit 10、输入框：k=InputBox(请输入大于0的整数值) 预览输出报表对象rEmp：DoCmd.OpenReport rEmp,acViewPreview 11、CaseIs=3预览输出报表对象rEmp：DoCmd.OpenR
3、eport rEmp,acViewPreview 12、Dim f(19)AsInteger f(i)=f(i-1)+f(i-2) tData=f(19) 13、单击刷新按钮，窗体记录源改为查询对象qEm：Form.RecordSource=qEmp 单击退出按钮，关闭窗体：DoCmd.Close 14、窗体fEmp的加载事件中设置标签bTitle以红色文本显示：bTitle.Caption=vbRed 实现报表预览输出:mdPnt acViewPreview 15、消息框：MsgBox报表预览,vbQuestion+vbYesNo,确认 16、动态设置窗体记录源为查询对象qEmp：Form.
4、RecordSource=qEmp 17、将考生文件夹下的图片文件test.bmp设置为窗体fEmp的背景： Form.Picture=CurrentProject&test.bmp 18、CDID文本框内内容显示颜色改为红色：CDID.ForeColor=vbRed 19、动态设置窗体记录源为查询对象qEmp：Form.RecordSource=qEmp 关闭窗体：DoCmd.Close 20、使“保存”按钮CmdSave变为可用：CmdSave.Enabled=True 21、将文本框中输入的内容与文本串等级考试测试连接，并消除连接串的前导和尾随空白字符，用标签bTitle显示连接结果：b
5、Title.Caption=Trim(tText)&等级考试测试 22、动态设置窗体记录源为查询对象qEmp：Form.RecordSource=qEmp 23、预览输出报表对象rEmp：DoCmd.OpenReport rEmp,acViewPreview 24、单击“退出”按钮，关闭当前窗体：DoCmd.Close 单击“保存”按钮，“修改”按钮不可用：CmdEdit.Enable=False 用户名_1控件不可用：Me!用户名_1.Enabled=False 25、将标签显示内容设置为所选项目名加上内容:Me.Ldetail.Caption=Me.CItem.Value&内容: 显示tS
6、tud表的全部记录：fDetail.Form.RecordSource=tStud 设置提示框：MsgBox 查询项目和查询内容不能为空！,vbOKOnly,注意 设置窗体标题为XXXX年XX月+tTitle标签的标题：Me.Caption=Str(Year(Date)&年&Str(Month(Date)&月&Me.tTitle.Caption 26、设置用户名为cueb，密码为1234：If name=cueb And pass=1234Then 文本框tUser获得焦点：Me.tUser.SetFocus 设置相关属性，实现“tPass”文本框内容以密码形式显示：Me.tPass.Inpu
7、tMask=Password 27、数据连接：Set rs=New ADODB.Recordset 如果达到表结尾：If rs.EOF Then 清空TxtDetail文本框：Me.TxtDetail= 28、消息框提示关闭窗体： IfMsgBox(确认退出？,vbCritical+vbYesNo,提示)Then 29、设置代码执行宏M1：DoCmd.RunMacroM1 将Tda标签标题设置为“YYYY年雇员信息”，其中“YYYY”为系统当前年份,用函数获取：Me.Tda.Caption=Str(Year(Date)&年雇员信息 30、动态设置窗体记录源属性为查询qEmp：Me.Record
8、Source=qEmp 31、计算1+2+3+n=30000的最大值，并保存到变量n中： Dim s As Integer:n=1:s=0 Do While s=30000:s=s+n:n=n+1:Loop:n=n1 32、设置标签bTitle的标题为XX月+原标题： Me.bTitle.Caption=Str(Month(Date)&月&Me.bTitle.Caption 33、设置bTitle标签为红色文本显示：Me.bTitle.ForeColor=RGB(255,0,0) 调用mdPnt，预览输出：CallmdPnt(2) 调用mdPnt，打印输出：CallmdPnt(0) 34、输入字符串后，产生反序： s1=Me.bTxt1 设置循环 *Add1* Fori=Len(Me.bTxt1)To1Step-1 *Add1* t=Mid(s1,i,1) s2=s2&t Nexti 将结果显示在bTxt2中 *Add2* Me.bTxt2.Value=s2 *Add2* EndSub 35、设置bTitle的标题为窗体的标题：Me.Caption = Me.bTitle.Caption 36、报表标题显示标签控件bTitle的内容：Me.Caption = Me
