Error 94 en tiempo de ejecución uso no válido de Null con dsum()

_vic_

unread,

Feb 18, 2008, 9:30:25 AM2/18/08

to

Hola estoy usando la función VBA dsum() para calcular el total del importe
de deudas o cobros en función de si la verificación pagado este a true o
false (-1 o 0).
El problema es que cuando todo esta pagado o todo sin pagar me da el error
94 en tiempo de ejecución uso no válido de Null

Private Sub Comando0_Click()
Dim TotalDeuda As Currency
Dim TotalPagado As Currency
TotalDeuda = DSum("[Impote]", "TablaExpedientes", "[Pagado]=0")
TotalPagado = DSum("[Impote]", "TablaExpedientes", "[Pagado]=-1")

Me.lb_resultado.Caption = "La deuda es " & TotalDeuda & _
" y la recaudación es de " & TotalPagado

End Sub

Como podría depurar ese error??
Saludos.

Ju@nk

unread,

Feb 18, 2008, 10:16:51 AM2/18/08

to

En que parte te da el error, puedes utilizar nz para solventarlo en la parte
afectada, si es el importe (que tengas algún nulo) pues ahí mismo, ej.

TotalDeuda = DSum("nz([Impote],0)", "TablaExpedientes", "[Pagado]=0")
TotalPagado = DSum("nz([Impote],0)", "TablaExpedientes", "[Pagado]=-1")

--
--
**
Colabora con el grupo, contesta a este mensaje y dinos si te sirvió o no la
respuesta dada.
Muchas gracias.

Salu2
Ju@nK [MVP Access]
http://juank.mvps.org
Correos personales o preguntas particulares en mi grupo
http://groups.google.es/group/juank
http://juankc.spaces.live.com/
http://juank.mvps.org/
www.juank.tk
www.mvp-access.com
¿Que es un MVP?, entérate en http://mvp.support.microsoft.com

Nota: El contenido de este mensaje, así como el código
fuente que pueda ir incluido en el mismo, se proporciona
«COMO ESTÁ», sin garantías de ninguna clase, y no otorga
derecho alguno. Usted asume cualquier riesgo al poner en
práctica, utilizar o ejecutar la sugerencia del presente mensaje.
**
"_vic_" <n...@spam.com> escribió en el mensaje
news:OkbaUrjc...@TK2MSFTNGP05.phx.gbl...

_vic_

unread,

Feb 18, 2008, 12:13:11 PM2/18/08

to

Hola Juank gracias por tu "ALLUDA"
Me sigue dando el mismo error, he intentado quitarle las comillas ya que el
Nz es una función no texto pero me da el error 2465 (No se puede localizar
el campo "|" al que se hace referencia).

1ª Prueba

TotalDeuda = DSum("Nz([Importe], 0)", "TablaExpedientes", "[Pagado]=0")
TotalPagado = DSum("Nz([Importe], 0)", "TablaExpedientes",
"[Pagado]=-1")

2º Prueba

TotalDeuda = DSum(Nz([Importe], 0), "TablaExpedientes", "[Pagado]=0")
TotalPagado = DSum(Nz([Importe], 0), "TablaExpedientes", "[Pagado]=-1")

Alguna sugerencia??
Saludos

"Ju@nk" <con...@hotmail.com> escribió en el mensaje
news:OcibMFkc...@TK2MSFTNGP03.phx.gbl...

Patxi Sanz

unread,

Feb 18, 2008, 12:54:32 PM2/18/08

to

Prueba colocando el Nz delante del DSum:

TotalDeuda = Nz(DSum("[Importe]", "TablaExpedientes", "[Pagado]=0"), 0)
TotalPagado = Nz(DSum("[Importe]", "TablaExpedientes", "[Pagado]=-1"),
0)

--
Un saludo,

Patxi Sanz
patxisanz[ARROBA]yahoo[PUNTO]es
http://es.geocities.com/patxisanz/index.html
Tudela (NA)

_vic_

unread,

Feb 18, 2008, 2:31:39 PM2/18/08

to

OK solucionado.
Gracias a los dos.
Saludos.

Patxi Sanz

unread,

Feb 18, 2008, 2:35:50 PM2/18/08

to

De nada :-)

Ju@nk

unread,

Feb 19, 2008, 9:49:59 AM2/19/08

to

De nada, por lo que me toca.

--
--
**
Colabora con el grupo, contesta a este mensaje y dinos si te sirvió o no la
respuesta dada.
Muchas gracias.

Salu2
Ju@nK [MVP Access]
http://juank.mvps.org
Correos personales o preguntas particulares en mi grupo
http://groups.google.es/group/juank
http://juankc.spaces.live.com/
http://juank.mvps.org/
www.juank.tk
www.mvp-access.com
¿Que es un MVP?, entérate en http://mvp.support.microsoft.com

Nota: El contenido de este mensaje, así como el código
fuente que pueda ir incluido en el mismo, se proporciona
«COMO ESTÁ», sin garantías de ninguna clase, y no otorga
derecho alguno. Usted asume cualquier riesgo al poner en
práctica, utilizar o ejecutar la sugerencia del presente mensaje.
**

"Patxi Sanz" <patxisanz[ARROBA]yahoo[PUNTO]es> escribió en el mensaje
news:e0wk7Vm...@TK2MSFTNGP04.phx.gbl...