Implementar la función Nz de Access - VB-MUNDO

xsara1_9 · #1 (**permalink**) 29-09-2004, 08:54:54

Hola amigos.
Todas mis sentencias Sql que utilizo en Visual Basic las hago primero en Access y en el momento que funcionan las paso a la aplicación, normalmente hay que hacer pequeños cambios pero funcionan.

Ahora tengo una consulta un poco más compleja en la que para que me funcione en Access tengo que añadir el Nz para que me sume los datos y el problema es que el Nz no lo reconoce el Visual Basic. ¿Hay algo parecido ya implementado o tengo que realizar yo a mano el procedimiento que indique lo que hace Nz?

La función Nz en Access es la siguiente:
Sintaxis

Nz(variante[, valorsinull])

Puede utilizar la función Nz para devolver cero, una cadena de longitud cero (" ") o cualquier otro valor especificado cuando una Variante sea Null. Por ejemplo, se puede utilizar esta función para convertir un valor Null a otro valor y evitar que se propague a través de una expresión.

Por ejemplo, la expresión 2 + varX devolverá siempre un valor Null cuando la Variante varX sea Null. Sin embargo, 2 + Nz(varX) devolverá 2.

J.M.Movilla · #2 (**permalink**) 29-09-2004, 09:47:29

Pues en VB, que yo sepa, no tienes tal función implementada; tendrías que hacer algo sí:

If Isnull(varx) Then varx = 0

acalanto · #3 (**permalink**) 29-09-2004, 09:54:52

Pues mucho me temo que tendrás que realizar en un primer paso la consulta y acto seguido las operaciones. Access dispone de las llamadas Funciones de Dominio que se pueden embeber en el SQL pero que fuera de su entorno no se reconocen.

La funcion de transformación es sencilla

Código:

Public function EvitaNulo_Doble(dato as variant) as Double
    if isnull(dato)
        EvitaNulo_Doble = 0
    else
        EvitaNulo_Doble = cdbl(dato)
    end if 
end sub

Esta función te devuelve un tipo DOBLE, pero si quieres simplificar puedes arriesgar con una función genérica que devuelva cadena.

Código:

Public function EvitaNulo(dato as variant) as variant
    if isnull(dato)
        EvitaNulo = ""
    else
        EvitaNulo = dato
    end if 
end sub

No obstante espera a ver si otro usuario conoce una respuesta más afinada