注意：不允许修改数据库中的表对象\和宏对象\；不允许修改窗体对象\和报表对象\中未涉及的控件和属性。程序代码只允许在\与\之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。 本题相关知识点：CurrentProject . Path 本题给出的路径 Private Sub Form_Load() '设置窗体背景图片 '*****Add*****
Picture = CurrentProject . Path + “\\test.bmp” 要获取的图片函数（Picture）=背景图像文 '*****Add***** 件当前路径CurrentProject . Path + 要获取 End Sub 的图片名称前边必须加\\（“\\test.bmp”）
42.3.（4）窗体加载时设置窗体标题属性为\年职工信息输出\，其中****为系统当前年。窗体\加载\事件代码已提供，请补充完整。
注意：不允许修改数据库中的表对象\和宏对象\；不允许修改窗体对象\和报表对象\中未涉及的控件和属性。程序代码只允许在\与\之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。 本题相关知识点：& 强连接符 ；窗体显示标题直接用Caption表示 Private Sub Form_Load()
'设置窗体标题形式，如当前年为2008，则显示为“2008年职工信息输出” '*****Add*****
Caption = Year(Date) & “年职工信息输出” 窗体的显示标题（Caption）为 = 当前年
'*****Add***** （Year(Date)）强连接符 连接（&）题中给的固定 End Sub 字符串（ “年职工信息输出”）
44.3.（4）单击窗体\报表输出\按钮（名为\），调用事件代码实现以预览方式打开报表\；单击\退出\按钮（名为\），调用设计好的宏\来关闭窗体。
注意：不允许修改数据库中的表对象\和宏对象\；不允许修改窗体对象\和报表对象\中未涉及的控件和属性。程序代码只允许在\与\之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。 本题相关知识点： acViewPreview 预览输出 Private Sub bt1_Click() '预览方式输出报表rEmp '*****Add*****
DoCmd . OpenReport “rEmp” ,acViewPreview DoCmd . 打开报表（OpenReport） 报表 '*****Add***** 的名称必须加双引号（“rEmp”）,并以预览形 End Sub 式输出（ acViewPreview）
45.3.（4）单击\报表输出\按钮（名为\），事件代码会弹出以下图例显示的消息框提示，选择是否进行预览报表\；单击\退出\按钮（名为\），调用设计好的宏\来关闭窗体。
注意：不允许修改数据库中的表对象\和宏对象\；不允许修改窗体对象\和报表对象\中未涉及的控件和属性。程序代码只允许在\与\之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。
本题相关知识点：MsgBox 消息框 ； vbYesNo 是否按钮； vbQuestion 问号 ； vbYes 按钮是
Private Sub bt1_Click()
'消息框提示报表输出(外观样式见题干图例) '*****Add***** If MsgBox(\报表预览\vbYesNo + vbQuestion, \确认\= vbYes Then 如果（If）消息框（MsgBox） '*****Add***** （显示提示内容“报表预览” ，是否按钮（vbYesNo）+问号（vbQuestion）， '预览方式输出报表rEmp 标题内容（\确认\））=是（vbYes） 那么（Then） DoCmd.OpenReport \ End If End Sub
46.3.（5）在窗体中有一个\退出\命令按钮，名称为\，其功能为关闭\窗体。请按照VBA代码中的指示将实现此功能的代码填入指定的位置中。
注意：不允许修改窗体对象\中未涉及的控件、属性和任何VBA代码；不允许修改表对象\；程序代码只允许在\与\之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。
答案：选择\文本框，设置\控件来源\属性为\学号],5,2)=\信息\管理\。 选择\窗体，点击\加载\属性右边的\?\打开代码生成器，在'*****Add*****与'*****Add*****之间输入：DoCmd.Close，保存窗体。
本题相关知识点： DoCmd.Close 关闭窗体 Private Sub cmdQuit_Click() '*****Add*****
DoCmd.Close 关闭窗体 DoCmd.Close '*****Add***** End Sub
Private Sub Command34_Click()
On Error GoTo Err_Command34_Click DoCmd.GoToRecord , , acFirst Exit_Command34_Click: Exit Sub
Err_Command34_Click:
MsgBox Err.Description
Resume Exit_Command34_Click End Sub
Private Sub Command35_Click()
On Error GoTo Err_Command35_Click DoCmd.GoToRecord , , acPrevious Exit_Command35_Click: Exit Sub
Err_Command35_Click:
MsgBox Err.Description
Resume Exit_Command35_Click End Sub
Private Sub Command36_Click()
On Error GoTo Err_Command36_Click DoCmd.GoToRecord , , acNext Exit_Command36_Click: Exit Sub
Err_Command36_Click:
MsgBox Err.Description
Resume Exit_Command36_Click
End Sub
Private Sub Command37_Click()
On Error GoTo Err_Command37_Click DoCmd.GoToRecord , , acLast Exit_Command37_Click: Exit Sub
Err_Command37_Click:
MsgBox Err.Description
Resume Exit_Command37_Click End Sub
Private Sub Command38_Click()
On Error GoTo Err_Command38_Click DoCmd.Close
Exit_Command38_Click: Exit Sub
Err_Command38_Click:
MsgBox Err.Description
Resume Exit_Command38_Click End Sub
47.3.5按照以下窗体功能，补充事件代码设计。
在窗体中有\用户名称\和\用户密码\两个文本框，名称分别为\和\，还有\确定\和\退出\两个命令按钮，名称分别为\和\。在\和\两个文本框中输入用户名称和用户密码后，单击\确定\按钮，程序将判断输入的值是否正确，如果输入的用户名称为\，用户密码为\，则显示提示框，提示框标题为\欢迎\，显示内容为\密码输入正确，欢迎进入系统！\，提示框中只有一个\确定\按钮，当单击\确定\按钮后，关闭该窗体；如果输入不正确，则提示框显示内容为\密码错误！\，同时清除\和\两个文本框中的内容，并将光标置于\文本框中。当单击窗体上的\退出\按钮后，关闭当前窗体。
注意：不允许修改窗体对象\中未涉及的控件、属性和任何VBA代码。只允许在\与\之间的空行内补充一条语句，不允许增删和修改其它位置已存在的语句。 setfocus是把焦点指向一个控件。
本题相关知识点：setfocus 是把焦点指向一个控件（焦点就是指你的鼠标或者键盘活动在某个区域） Private Sub cmdEnter_Click()
Dim name As String, pass As String name = Nz(Me!tUser) pass = Nz(Me!tPass) '**** Add1 ***
If pass = \如果（If） 用户密码（pass） =输入的是 '*** Add1 *** （\ ）And 并且用
MsgBox \密码输入正确，欢迎 户名称(name) = 输入的是\， 那么（Then） 进入系统！\欢迎\显示消息框 DoCmd.Close Else
MsgBox \密码错误！\显示消息框 Me!tUser = \使文本框清空 Me!tPass = \
' *********************** Add2 *************************************
tUser.SetFocus 用户名称文本框（tUser）作为（.）焦点指向的控件（SetFocus）也就是
将光标置于\文本框中
' *********************** Add2 *************************************
End If End Sub
Private Sub cmdQuit_Click()
' *********************** Add3 ************************************* DoCmd.Close 关闭窗体、报表、表都用固定语句：DoCmd.Close
' *********************** Add3 ************************************* End Sub
48．3．5按照以下窗体功能，补充事件代码设计。
窗体运行后，在窗体右侧显示可以修改的用户名、密码等内容的列表，同时在窗体左侧显示列表中所指用户的信息。另外，在窗体中还有\修改\、\保存\和\退出\三个命令按钮，名称分别为\、\和\。当单击\修改\按钮后，在窗体左侧显示出该窗体右侧光标所指用户的口令信息，同时\保存\按钮变为可用；在\口令\和\确认口令\文本框中输入口令信息后，单击\保存\按钮，若在两个文本框中输入的信息相同，则保存修改后的信息，（第二个空的问）并先将\保存\命令按钮变为不可用，再将除用户名外的其他文本框控件和标签控件全部隐藏，（第三个空的问）最后将用户名以只读方式显示；（第四个空的问）若在两个文本框中输入的信息不同，则显示提示框，显示内容为\请重新输入口令！\，提示框中只有一个\确定\按钮。（第一个空的问）单击窗体上的\退出\按钮，关闭当前窗体。
注意：不允许修改窗体对象\和\中未涉及的控件、属性和任何VBA代码；不允许修改表对象\。只允许在\与\之间的空行内补充一条 本题相关知识点：用户名以只读方式显示就是用户名的可用性为假值 Private Sub CmdEdit_Click() tUser_1.Enabled = True Me!Lremark.Visible = True Me!tPass.Visible = True
Me!tRemark_1.Visible = True Me!tEnter.Visible = True
CmdSave.Enabled = True Me!tEnter = \End Sub
Private Sub cmdquit_Click() ' ***** Add4 ****
DoCmd.Close 关闭当前窗体 DoCmd.Close ' ***** Add4 **** End Sub
Private Sub CmdSave_Click() If Me!tPass = Me!tEnter Then
DoCmd.RunSQL (\用户名='\用户名='\Me!tUser_1 & \ DoCmd.RunSQL (\tUser \& \口令='\& Me!tPass & \& \用户名='\& Me!tUser_1 & \
DoCmd.RunSQL (\备注='\用户名='\Me!tUser_1 & \
Forms!fEdit.Refresh
DoCmd.GoToControl \
' *** Add1 ***
CmdSave.Enabled = False 保存命令按钮（CmdSave）的（.）可用性（Enabled ）= ' **** Add1 *** 假值也就是不可用(False) Me!tUser_1 = Me!用户名 Me!tPass = Me!口令
Me!tRemark_1 = Me!备注 Me!tEnter = \
Me!tPass.Visible = False
Me!tRemark_1.Visible = False Me!tEnter.Visible = False Me!Lremark.Visible = False ' **** Add2 ***
tUser_1.Enabled = False 将用户名tUser_1以.只读方式显示也就是可用性
' *** Add2 *** Enabled = False假值（用户名tUser_1为不可用,只可读） Else
' *** Add3 ***'
MsgBox \请重新输入口令！\vbOKOnly 消息框MsgBox显示提示内容“请重新输入口令！” ，
'*** Add3 *** 仅保留按钮是（vbOKOnly）
End If End Sub
Private Sub Form_Load() Me!tUser_1 = Me!用户名 Me!tPass = Me!口令
Me!tRemark_1 = Me!备注 Me!tEnter = \End Sub
51.3.5按照以下窗体功能，补充事件代码设计。在窗体中有一个组合框控件和一个文本框控件，名称分别为\和\TxtDetail\；有两个标签控件，名称分别为\和\；还有三个命令按钮，名称分别为\、\和\。在\组合框中选择某一项目后，\标签控件将显示出所选项目名加上\内容：\。在\文本框中输入具体项目值后，单击\命令按钮，如果\和\两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中不全有值，显示消息框，消息框标题为\注意\，提示文字为\查询项目和查询内容不能为空！！！\，消息框中只有一个\确定\按钮；单击\命令按钮，在子窗体中显示tStud\表中的全部记录；单击\命令按钮，将\和\两个控件中的值清空。 Private Sub cItem_AfterUpdate()
'************************* Add1 *************************
Ldetail.Caption = cItem & \内容:\（Ldetai）标签的（.）显示标题（Caption）来自（=） '************************* Add1 *************************（Citem）组合框中输入的内容连接(内Me.Refresh 容) End Sub
Private Sub CmdClear_Click() [TxtDetail] = \ [cItem] = \End Sub
Private Sub CmdList_Click()
'************************* Add2 *************************
fDetail.Form.RecordSource = \名为（fDetail）的（.）窗体（Form）的（.）记录'************************* Add2 *************************源（RecordSource）来自（=）（tStud） End Sub 这个表 Private Sub CmdRefer_Click()
If Trim(Me![TxtDetail]) <> \
fDetail.Form.RecordSource = \& Me![TxtDetail] & \ Else
'************************* Add3 *************************
MsgBox \查询项目和查询内容不能为空！！！\vbOKOnly, \注意\（MsgBox）消息框中要显示 '************************* Add3 *************************（\查询项目和查询内容不能为空！！！