Uso no válido de Null. Error '94' en tiempo de ejecución

El error te surge si intentas aplicar la fórmula a un campo que todavía "está vacío", o sea es nulo. Tienes que usar la función Nz que transforma los nulos en ceros. De todas formas, es una opinión mía, no tiene porque ser válida, no necesitas para nada esa función. Si por narices tienes que escribir como último la altura, siempre puedes poner en su evento después de actualizar la formula. Por ejemplo, sin entrar en más detalles

IMC=Peso/(altura/100)^2

O si quieres, pero no lo veo necesario

IMC=nz([peso])/((nz([altura])/100)^2

Entiendo que la función Nz va dentro del código de la Public Function..no?

Lo pruebo y a priori veo que sigue funcionando como antes aunque no me salta siempre el error. Pero me he fijado que si que salta cuando los campos de las variables PESO y ALTURA están vacíos. ¿Debería de marcar allí también la función Nz para las dos variables o marcarlas antes como null?

Como te decía el Excel no es lo mío, pero, por similitud, en Access, en vb, supongamos que tengo un campo Subtotal que lo quiero multiplicar por otro llamado IVA. Vamos a suponer que en un principio ambos están vacíos. Si quiero hacer el producto Subtotal*Iva me va a dar error, porque sus valores son nulos, que es lo que te pasa a tí. Sin embargo, si pongo

Loquesea=nz([subtotal])*nz([iva])

Aunque ambos, o uno sólo sea nulo en loquesea me aparecerá como 0

Loquesea=0*0

En el caso de variables, da exactamente igual, por ejemplo

Dim i as integer

i=Dcount("Nombrecliente","clientes","pelo=""Rubio""") vamos a suponer que no hay ningún cliente que cumpla esa condición, por tanto i sería nulo

Si pongo

loquesea=" & nz(i) & "*[descuento]7Loquesea me saldrá 0.

De todas formas si quieres, repito, si quieres, mándame un mensaje(sólo el mensaje) a [email protected] y te mando un ejemplo. Si lo haces, en el asunto del mensaje pon tu alias Jordi Rabadan, ya que si no sé quien me escribe ni los abro

Entiendo lo que quieres decirme, aunque me cuesta descifrar el como trasladarlo a mi caso.

Aprovecho para mandar el mensaje, gracias!

Puedes hacer otra cosa: validar si estás o no en un registro nuevo para hacer el cálculo.

Por ejemplo:

Private Sub Form_Current()

                   If Me.NewRecord Then Exit Sub
                   Me.IMC.Value = fntCalculaIMC(Me.PESO.Value, Me.ALTURA.Value)
End Sub

Así, si te mueves a un registro nuevo, no se intenta hacer el cálculo.

Un saludo.

No me termina de funcionar porque no es un registro nuevo en sí, sino un registro incompleto por falta de datos. 

Así, si tengo un paciente registrado pero carece de los datos de PESO y ALTURA es cuando me salta de nuevo el error del NULL

Yo haría lo siguiente:

1º/ Modificar la función:

Public Function fntCalculaIMC(dblPeso As Double, intAltura As Integer) As Double
   If dblPeso=0 Or intAltura=0 then
      fntCalculaIMC = 0
   Else
      fntCalculaIMC = dblPeso / ((intAltura / 100) ^ 2)
   End If
End Function

Así, si alguno de los parámetros es 0, el IMC será 0 (y evitas error al dividir por 0)

2º/ Al llamar a la función, usar Nz para convertir los nulos a 0:

Private Sub PESO_AfterUpdate()
   Me.IMC= fntCalculaIMC(Nz(Me.PESO,0), Nz(Me.ALTURA,0))
End Sub
Private Sub ALTURA_AfterUpdate()
   Me.IMC= fntCalculaIMC(Nz(Me.PESO,0), Nz(Me.ALTURA,0))
End Sub
Private Sub Form_Current()
   Me.IMC= fntCalculaIMC(Nz(Me.PESO,0), Nz(Me.ALTURA,0))
End Sub

Y eliminaría el código que tienes para IMC_AfterUpdate, que no tiene mucho sentido hacer ahí el cálculo.

Un saludo.