求教查询按钮问题！请哥哥、姐姐们帮忙！

zhiyan · 发表于 2009-8-16 23:35:24

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:14

本帖最后由 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:14

谢谢楼上的哥哥

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

tz-chf · 发表于 2009-8-17 08:37:42

Private Sub 查找_Click()
Me.姓名.SetFocus

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

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

End Sub

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[查询] 求教查询按钮问题！请哥哥、姐姐们帮忙！

群介绍
主题无相 (随机显示版	同地区群块其他地区)