j***@gmail.com
2014-09-29 08:34:04 UTC
Hola,
Tengo 1 formulario continuo que muestra los datos de una tabla de clientes, con el nombre, provincia (listbox) y pais (listBox).
Dependiendo de que Pais sea ese cliente, me gustaría que mostrarse la provincia actual, y las distintas provincias de ese país en el Listbox de la Provincia.
Para ello estoy intentando usar la función 'Paint' del subfommulario detalle:
Private Sub Detalle_Paint()
On Error GoTo error
If Not IsNull(Me.pais.Value) And Trim(Me.pais.Value) <> "" Then
Me.provincia.rowsource = "select provincia from tabla_provincias where pais=' & me.pais.value & "';"
Me.provincia.value = me.pais.column(1)
End If
Exit Sub
error:
MsgBox Err.Description
Resume Next
End Sub
Pero siempre se muestra el mismo texto en la provincia, y no en cada uno el suyo. Donde esta el problema?
Un saludo.
Tengo 1 formulario continuo que muestra los datos de una tabla de clientes, con el nombre, provincia (listbox) y pais (listBox).
Dependiendo de que Pais sea ese cliente, me gustaría que mostrarse la provincia actual, y las distintas provincias de ese país en el Listbox de la Provincia.
Para ello estoy intentando usar la función 'Paint' del subfommulario detalle:
Private Sub Detalle_Paint()
On Error GoTo error
If Not IsNull(Me.pais.Value) And Trim(Me.pais.Value) <> "" Then
Me.provincia.rowsource = "select provincia from tabla_provincias where pais=' & me.pais.value & "';"
Me.provincia.value = me.pais.column(1)
End If
Exit Sub
error:
MsgBox Err.Description
Resume Next
End Sub
Pero siempre se muestra el mismo texto en la provincia, y no en cada uno el suyo. Donde esta el problema?
Un saludo.