Imprimir página | Cerrar ventana

Uso incorrecto de Null

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=83625
Fecha de impresión: 20/Julio/2019 a las 21:58


Tema: Uso incorrecto de Null
Publicado por: tati16
Asunto: Uso incorrecto de Null
Fecha de publicación: 13/Abril/2018 a las 15:08
Buen dia a todos, 

Estoy haciendo un modulo en acces pero obtengo un error de Null. Alguien podria guiarme por favor?

Public Function MoNulos(a As Double, b As Double) As Boolean

    If IsNull(a) And IsNull(b) Then   
       MoNulos = True
    
    End If
   
    If a = b Then
       MoNulos = True
    Else
      MoNulos = False
    End If
     
End Function



Y luego esta es la manera en la que llamo a la funcion:

 If horas <> nombreheures And rs2("REF_EMPL") = rs1("REF_EMPL") And MoNulos(CDbl(rs1("CNTRE_PRJT")), CDbl(rs2("CNTRE_PRJT"))) And MoNulos(CDbl(rs1("NO_PRJT")), CDbl(rs2("NO_PRJT"))) Then................................


Agradezco su ayuda, y feliz viernes


-------------
Tati16



Respuestas:
Publicado por: tati16
Fecha de publicación: 13/Abril/2018 a las 16:03
Hola a todos,

Ya encontré mi respuesta.

Estaba tratando de convertir un nulo a doble

CDbl(rs1("CNTRE_PRJT")

Asi que lo quité de la llamada a la funcion y en la funcion lo cambie por variant

Public Function MoNulos(a As Double, b As Double)

Funciona ok Wink


-------------
Tati16


Publicado por: tati16
Fecha de publicación: 13/Abril/2018 a las 16:05
Public Function MoNulos(a As Variant, b As Variant) As Boolean

-------------
Tati16



Imprimir página | Cerrar ventana