代码题66-57套解析(全彩版)(5)

在\组合框中选择某一项目后，\标签控件将显示出所选项目名加上\内容：\。在

\文本框中输入具体项目值后，单击\命令按钮，如果\和\两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中没有值，显示提示框，提示框标题为\注意\，提示文字为\查询项目或查询内容不能为空！！！\，提示框中只有一个\确定\按钮；单击\命令按钮，在子窗体中显示\表中的全部记录；单击\命令按钮，将清空控件\和\中的值。

注意：不允许修改窗体对象\和子窗体对象\中未涉及的控件、属性和任何VBA代码；不允许修改报表对象\中已有的控件和属性；不允许修改表对象\和查询对象\。只允许在\与\之间的空行内补充一条代码语句、完成设计，不允许增删和修改其它位置已存在的语句。

Option Compare Database

Private Sub cItem_AfterUpdate()

'将标签显示内容设置为所选项目名加上\内容:\

'************************* Add1 ************************* Ldetail.Caption = CItem & \内容:\

'************************* Add1 ************************* Me.Refresh End Sub Private Sub CmdClear_Click() [TxtDetail] = \ [CItem] = \End Sub

Private Sub CmdList_Click() '显示全部记录

'************************* Add2 ************************* fDetail.Form.RecordSource = \

'************************* Add2 ************************* End Sub

Private Sub CmdRefer_Click()

If Trim(Me![TxtDetail]) <> \

fDetail.Form.RecordSource = \& Me![TxtDetail] & \ Else

'设置提示框

'************************* Add3 *************************

MsgBox \查询项目或查询内容不能为空！！！\注意\'************************* Add3 ************************* End If End Sub

Private Sub Form_Load() '设置窗体标题

'************************* Add4 ************************ Caption = tTitle.Caption

'************************* Add4 ************************ End Sub

Private Sub 主体_Click() End Sub