** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Uso incorrecto de Null
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoUso incorrecto de Null

 Responder Responder
Autor
Mensaje
tati16 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 18/Enero/2018
Localización: Canada
Estado: Sin conexión
Puntos: 20
Enlace directo a este mensaje Tema: Uso incorrecto de Null
    Enviado: 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
Arriba
tati16 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 18/Enero/2018
Localización: Canada
Estado: Sin conexión
Puntos: 20
Enlace directo a este mensaje Enviado: 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
Arriba
tati16 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 18/Enero/2018
Localización: Canada
Estado: Sin conexión
Puntos: 20
Enlace directo a este mensaje Enviado: 13/Abril/2018 a las 16:05
Public Function MoNulos(a As Variant, b As Variant) As Boolean
Tati16
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable