Problema código para traer datos en un formulario

Hola, no me deja finalizar la otra pregunta, pero te comento, estaba generando un código para hacer lo que te preguntaba en la anterior duda, de traer un dato, según un campo combinado. Hice el código, y muy bien, me funciona en los dos primeros casos, pero en el ultimo caso, no me funciona. Te pongo el código, para que lo veas, a ver si encuentras algún fallo.


Private Sub Producto_AfterUpdate()
If Me.Parent![Comercio] = 1 Then
Me![Precio Unidad] = Me![Producto].Column(3)
ElseIf Me.Parent![Comercio] = 2 Then
Me![Precio Unidad] = Me![Producto].Column(4)
ElseIf Me.Parent![Comercio] = 2 Then
Me![Precio Unidad] = Me![Producto].Column(5)
End If
End Sub


Gracias de antemano

1 respuesta

Respuesta
1

El problema esta en el If Me.Parent![Comercio] = 1 Then

Si el evento que se encuentra en un cuadro combinado dentro de un subformulario no puedes hacer referencia a un campo que esta fuera del el.

por eso colocamos Form_(Nombre_formulario).Nombre_control.

El otro error que tienes el el tercer IfElse anidado por que vuelves a preguntar por Comercio=2. Entonces siempre que sea 2 colocará el precio del producto en la columna 5. y no el de la columna 4,

Para ello debieras tener otra condicionante comercio =3 para columna adoptar el precio en al columna 5.

Gracias por la respuesta, si en el segundo error que me comentas, me di cuenta, gracias, el primer error, no se si es error, ya que ahora me funciona, con esa orden...

Muchas gracias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas