Access - Error #¡Núm!

Tengo una función que calcula un porcentaje, y en algunos casos se produce el error descrito al ejecutarse una división
de cero/cero.

Querría que el citado error no fuera visible o se cambiara por un cero.

Gracias por vuestra ayuda.

Saludos

Salva

Hola!

Con la información que das difícil es ayudarte directamente. Así pues te ayudo indirectamente, indicándote una solución en abstracto.

La función que haría lo que pides sería del estilo

...
Private/Public Function miDivision(dividendo as double, divisor as double) as double
If divisor=0 then
miDivision=0
Else
miDivision=dividendo/divisor
End if
End function
...

Saludos,

http://neckkito.siliconproject.com.ar/

Se trata de lo siguiente:
Calculo rentabilidad de una linea de un albarán:
=100-([preco]/[PV]*100)
[preco] "Precio compra"
[PV] "Precio venta

Lugo calculo lo mismo para el total del albarán:
=100-([sumapreco]/[sumastmat]*100)
[sumapreco] "totales compra"
[sumasstmat] "totales venta"

Los cálculos los realiza correctamente, el problema de visualización viene cuando una linea o "todas" tienen valor cero.
Entonces calcula los otros conceptos (ejemplo mano de obra) y realiza todo correctamente solo que en las lineas correspondientes a materiales aparece el error (que no afecta a los resultados, es solo un problema estético.

Saludos

Salvador

No se si estoy viendo mal pero esta mal aplicada la formula
El calculo de rentabilidad para mí es la ganancia neta sin impuestos y la quieres en porcentaje
yo lo calculo de este forma
=((Precio Venta-IVA)/ Precio de compra)

si no tienes el campo en porcentaje le agregas un *100 al final

Ahora como veo que son servicios y quieres saber cuanto se gano por el servicio, el costo de un producto neto sin IVA seria así
= (Precio de compra/(Precio Venta-IVA))
Igual si no tienes el campo en porcentaje le pones *100 al final

Hola!

Créate un módulo estándar. En él insertas la siguiente función:

...
Public Function miDivision(dividendo as variant, divisor as variant) as double
If isnull(dividendo) then dividendo=0
If divisor=0 or isnull(divisor) then
miDivision=0
Else
miDivision=dividendo/divisor
End if
End function
...

Una vez hecho esto cambia tus expresiones por las siguientes:

=100-(miDivision([preco];[PV])*100)

y

=100-(miDivision([sumapreco];[sumastmat])*100)

A ver si así te sale bien.

Saludos,

Neckkito

El error persiste, te envío detalle para ver si puedes decirme algo, si no es asi limpiare todo lo que pueda la BD, para enviarte un archivo para que me puedas deicr algo.

Saludos.

Salva

• He-creado-un-modulo-llamado-miDivision.rar(135,8 KB)

Hola!

Mira el formato de los campos calculados. Ponle el número de decimales a 2, a ver si con eso se arregla.

Si no necesitaría ver la BD para analizar qué está pasando. Mi mail: neckkito (ARROBA) gmail (PUNTO) com

Saludos,

Neckkito

Hola, tengo el mimo error, pero acabo de probar todo lo que han puesto pero no me funciona, no habrá otra manera de solucionarlo gracias

---------------------------------------------------------------------------------------------------------------------------------------------------------------------
Feliz con YANBAL. sus productos me ayudan mucho.

Pues lo único que se me ocurre es que cuelgues una miniBD con los elementos implicados (con algunos registros de ejemplo, aunque sean inventados), para poder echar un vistazo a lo que estás haciendo.

Saludos,

Neckkito