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",acViewPreview
10：单击"刷新"按钮，窗体记录源改为查询对象"qEm"：Form.RecordSource="qEmp"
11.单击"退出"按钮，关闭窗体：DoCmd.Close
12：窗体"fEmp"的"加载"事件中设置标签"bTitle"以红色文本显示：bTitle.ForeColor=vbRed
13：将考生文件夹下的图片文件"test.bmp"设置为窗体"fEmp"的背景：Form.Picture=CurrentProject.path & "\test.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。