事件不能触发

懒UFO

下面这段代码应该在焦点离开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

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

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

WTM1

从程序上看基本没有问题！

goodidea

txtname <> null ？？

txtname IS NOT null ?!

WTM1

一个样！这是程序员个人编程的思路问题，一个功能可以使用vba编好几个代码！而且时都不一样，显示的效果一样！

懒UFO

各位：问题的原因何在？能否解决？

WDLRCZT

都不能。