数据库中有 ”Emp” 表,包括 ”Eno” 、 ”Ename” 、 ”Eage” 、 ”Esex” 、 ”Edate” 、 ”Eparty” 等字段。下面的功能是:在窗体文本框 ”tValue” 内输入年龄条件,单击 ” 删除 ” 按钮完成对该年龄职工记录信息的删除。 Private Sub ButtonDelete_Click() ‘ 单击删除按钮 Dim StrSQL As String ‘ 定义字符串变量 StrSQL StrSQL=”Delete from Emp” ‘ 给字符串变量 StrSQL 进行赋值 ‘ 判断窗体年龄条件值无效 ( 空值或非数值 ) 处理 IfIsNull(Me!tValue)=True Or IsNumeric(Me!tValue)=False Then MsgBox ” 年龄值为空或非有效数值 !”,vbCritical,”Error” ‘ 窗体输入焦点移回年龄输入的文本框 ”tValue” 控件内 Me!tValue.SetFocus Else ‘ 构造条件删除查询表达式 StrSQL=StrSQL & “Where Eage=” & Me!tValue ‘ 消息框提示 ” 确认删除 ?(Yes/No)”, 选择 ”Yes” 实施删除操作 If Then ‘ 执行删除查询 Docmd.RunSQL StrSQL MsgBox “completed!”,vbInformation,”Msg” End If End If End Sub 按照功能要求,横线空白处应填写的是 ( )