请教出错：运行时错误‘94’，无效使用NULL

lhy581227

请大虾帮助看一下代码：


Private Sub User_ID_AfterUpdate()
On Err GoTo Err_User_ID_AfterUpdate
'定义字符型变量
Dim STemp As String
     If IsNull(Me![User_ID]) Then
        UserID = Null
     Else
        '使用DLoop函数从“系统用户”数据表中搜索登录用户是否存在
        STemp = DLookup("User_ID", "System User", "[User_ID]='" & Me![User_ID] & "'")
        
        If IsNull(STemp) Then
           UserID = Null
           Me![User_ID] = ""
        Else
           UserID = STemp
           Me![User_Name] = DLookup("User_Name", "System User", "[User_ID]='" & Me![User_ID] & "'")
        End If
      End If
Exit_User_ID_AfterUpdate:
     Exit Sub
Err_User_ID_AfterUpdate:
      MsgBox "Your input User_ID is error or you haven't registered, Please Check it!", vbCritical, "This User_ID is not existed"
      Resume Exit_User_ID_AfterUpdate
      
End Sub

lhy581227

STemp = DLookup("User_ID", "System User", "[User_ID]='" & Me![User_ID] & "'")

运行到这一步就会出现上面的“运行时错误‘94’，无效使用NULL”提示

Renco

STemp = nz(DLookup("User_ID", "System User", "[User_ID]='" & nz(Me![User_ID],"") & "'"),"")

Hotmail.nana

以前我也曾经遇到过这样的问题，不知道是否与你说的是否一样，因为我也在学习中..

选择--工具--引用--出现“可使用的引用”对话框

然后选择 "Microsoft ActiveX Data Objects 2.6 Library"

确定后就可以了。