Office中国论坛/Access中国论坛

标题: 事件不能触发 [打印本页]

作者: 懒UFO 时间: 2003-4-17 05:51
标题: 事件不能触发
下面这段代码应该在焦点离开txtpas时触发，但是ACCESS2000为什么有时能触发而有时不能触发？请大虾们释惑！

Private Sub txtPas_LostFocus()

If txtName <> "" Or txtName <> Null Then
If txtPas <> "" Or txtPas <> Null Then
      'strPA = txtPas
      'strtxtPas = txtPas
      varPA = DLookup("[PASS]", "NAPAZ6", "[NameID]=" & "'" & strNaID & "'")
      If varPA = txtPas Then
         bletxtPas = False
         strTxtPass = varPA
         lgDengji = DLookup("[用户级别]", "napa", "[NameID]=" & "'" & strNaID & "'")
      Else
         MsgBox "密码错误！请重新输入密码。", 0, "提示信息："
         Me.txtPas.SetFocus
         txtPas.Text = ""
         strTxtPass = ""
         lgDengji = -1
         bletxtPas = True
      End If
Else
      MsgBox "密码错误！请重新输入密码。", 0, "提示信息："
      strTxtPass = ""
      txtPas = ""
      lgDengji = -1
      bletxtPas = True

End If
Else
MsgBox "您还没有输入“使用者姓名”，请输入：", 0, " 提示："
Me.txtName.SetFocus

End If

End Sub
[em06][em06][em06]

作者: 懒UFO 时间: 2003-4-17 22:01
在ACCESS中我发现有很多的SUB过程都不能100%触发（有时能、有时不能），是我的系统的原因还是OFFIC出现了错误、还是ACCESS本身的BUG！当出现不能触发时（在调试阶段），我把代码剪切后粘贴就又能触发了。

[此贴子已经被作者于2003-4-17 14:03:47编辑过]

作者: WTM1 时间: 2003-4-17 22:08
从程序上看基本没有问题！

作者: goodidea 时间: 2003-4-17 22:33
txtname <> null ？？

txtname IS NOT null ?!

作者: WTM1 时间: 2003-4-17 22:43
一个样！这是程序员个人编程的思路问题，一个功能可以使用vba编好几个代码！而且时都不一样，显示的效果一样！

作者: 懒UFO 时间: 2003-4-18 23:00
各位：问题的原因何在？能否解决？

作者: WDLRCZT 时间: 2003-4-19 02:07
都不能。

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