ACCESS常考编程代码

1.单击命令按钮运行宏m1: DoCmd.RunMacro \"m1\"

2.标签 Tda 标题设置为系统当前日期: Tda.Caption=Date

3.使“保存”按钮CmdSave变为可用： CmdSave.Enabled=True

4.将文本框tText的内容作为窗体中标签 bTitle的标题显示：bTitle.Caption= tText.value

5.窗体加载时窗体标题属性为系统当前日期： Form.Caption=Date

6：将 tStudent 表中的全部记录显示出来：

Select * From tStudent

7：消息框(返回的值是数字型，共有7个数字)： MsgBox \"请重新输入口令！\"

8：输入框（输入的值赋值给k，且k是字符串类型）： k=InputBox (\"请输入大于0的整数值\")

9.预览输出报表对象\"rEmp\"：

DoCmd.OpenReport \"rEmp\

10：单击\"刷新\"按钮，窗体记录源改为查询对象\"qEm\"： Form.RecordSource=\"qEmp\"

11.单击\"退出\"按钮，关闭窗体： DoCmd.Close

12：窗体\"fEmp\"的\"加载\"事件中设置标签\"bTitle\"以红色文本显示：bTitle.ForeColor=vbRed

13：将考生文件夹下的图片文件\"test.bmp\"设置为窗体\"fEmp\"的背景：Form.Picture=CurrentProject.path & \"\est.bmp\"

14：CDID文本框内内容显示颜色改为红色： CDID.ForeColor=vbRed

15： 关闭窗体： DoCmd.Close

16：将文本框中输入的内容与文本串\"等级考试测试\"连接，并消除连接串的前导和尾随空白字符，用标签\"bTitle\"显示连接结果： bTitle.Caption=Trim(tText) & \"等级考试测试\"

17： 光标置于用户名文本框(文本框名为tUser)中(表示文本框获得焦点)： Me!tUser.SetFocus

点退出按钮关闭窗体： DoCmd.Close

单击“保存”按钮，“修改”按钮CmdEdit不可用 CmdEdit.Enable=False