access常用代码

2022-07-12 05:18:16 第一文档网 [ 字体：小中大 ] [

阅读： ] [

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。下载word有问题请添加QQ：admin处理，感谢您的支持与谅解。

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《access常用代码》，欢迎阅读！
常用,代码,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"中党员职工的平均年龄，然后将结果显示在窗体的文本框"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.OpenReport "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.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"显示连接结果：bTitle.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&"内容:" 显示tStud表的全部记录：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="1234"Then 文本框tUser获得焦点：Me.tUser.SetFocus

设置相关属性，实现“tPass”文本框内容以密码形式显示：Me.tPass.InputMask="Password" 27、数据连接：Set rs=New ADODB.Recordset

如果达到表结尾：If rs.EOF Then

清空TxtDetail文本框：Me.TxtDetail="" 28、消息框提示关闭窗体：

IfMsgBox("确认退出？",vbCritical+vbYesNo,"提示")Then 29、设置代码执行宏M1：DoCmd.RunMacro"M1"

将Tda标签标题设置为“YYYY年雇员信息”，其中“YYYY”为系统当前年份,用函数获取：Me.Tda.Caption=Str(Year(Date))&"年雇员信息"

30、动态设置窗体记录源属性为查询qEmp：Me.RecordSource="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=n–1

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

本文来源：https://www.dywdw.cn/22588d5bbcd126fff6050b55.html