[5分]ByRef参数类型不符

 Private Function IsExistDel(NumID As Integer) As Boolean
    '测试
    On Error GoTo Err_IsExistDel:
    IsExistDel = False
    If Nz(DLookup("BJidTemp", "tbl_sb_wzrk", NumID)) > 0 Then
     IsExistDel = True
    End If    
  If Nz(DLookup("BJidTemp", "tbl_sb_wzck", NumID)) > 0 Then
     IsExistDel = True
    End If
  If Nz(DLookup("BJidTemp", "tbl_sb_wzdb", NumID)) > 0 Then
     IsExistDel = True
    End If
     If Nz(DLookup("BJidTemp", "tbl_sb_wzkc", NumID)) > 0 Then
     IsExistDel = True
    End If
  
Exit_IsExistDel:
    Exit Function
Err_IsExistDel:   
    MsgBox err.Description
     Resume Exit_IsExistDel

End Function

在调用的时候这么写就没提示错误 IsExistDel (IDtemp)，但是  if IsExistDel (IDtemp) then end if