Office中国论坛/Access中国论坛

标题: 求教查询按钮问题！请哥哥、姐姐们帮忙！ [打印本页]

作者: zhiyan 时间: 2009-8-16 23:35
标题: 求教查询按钮问题！请哥哥、姐姐们帮忙！
Private Sub 查找_Click()
If IsNull(姓名) = False Then
MsgBox "姓名不能为空！", vbInformation, "系统消息"
End If

DoCmd.OpenForm "职员详细信息", , , "[姓名]=" & "'" & Me![姓名] & "'"
Me.姓名.SetFocus
End Sub

要求达到
在文本框姓名为空时只弹出提示
在文本框姓名有内容时弹出窗体

请哥哥、姐姐们帮忙！！谢谢！！

作者: tz-chf 时间: 2009-8-16 23:59
本帖最后由 tz-chf 于 2009-8-17 00:01 编辑

这是逻辑问题，if判断写反了。
Private Sub 查找_Click()
Me.姓名.SetFocus

If IsNull(姓名) Then
MsgBox "姓名不能为空！", vbInformation, "系统消息"
exit sub
End If

DoCmd.OpenForm "职员详细信息", , , "[姓名]=" & "'" & Me![姓名] & "'"

End Sub

作者: zhiyan 时间: 2009-8-17 07:48
谢谢楼上的哥哥

但使用了您写的还是不行啊能否给个例子我谢谢您

作者: tz-chf 时间: 2009-8-17 08:37
Private Sub 查找_Click()
Me.姓名.SetFocus

If IsNull(me.姓名) Then
MsgBox "姓名不能为空！", vbInformation, "系统消息"
exit sub
End If

DoCmd.OpenForm "职员详细信息", , , "[姓名]='" & Me![姓名] & "'"

End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)