Access

[tauro26]

Definitivamente debo de ser un poco torpe...

El módulo queda al final así:

Private Sub Id_consecuencias_AfterUpdate()
fproducto
End Sub

Private Sub Id_exp_AfterUpdate()
fprofucto
End Sub

Private Sub Id_prob_AfterUpdate()
fproducto
End Sub

Function fproducto()
Me.Grado_Peligrosidad = Me.Id_consecuencias(1) * Me.Id_exp(1) * Me.Id_prob(1)
End Function

Cuando ejecuto el formulario me sale el siguiente error...
No coindicen tipos