Volcar subformulario a cuadro de texto |
2008-12-29 14:16 - Respuestas: 0 - Tema nº: 2563701
Características: Windows XP Profesional Pentium IV, 40 GB de disco.
Buenos días. tengo creado en access un formulario basado en una tabla con una clave principal "provincias". tengo un subformulario con formato cuadro de lista basado en una consulta "pueblos en provincias". El campo común es "provincia". Este formulario y su subformulario funcionan correctamente. al cambiar de una provincia a otra el subformulario se actualiza y muestra los pueblos de cada provincia. Sin embargo, mediante programación en Access quiero que en lugar de mostrarme los datos en un cuadro de lista me los vuelque en un cuadro de texto. El código que uso es el siguiente:
Private Sub Form_Current()
Dim dbbase1 As Database
Dim rstaux1 As Recordset
Dim fldAux1 As Field
Set dbbase1 = CurrentDb
Set rstaux1 = dbbase1.OpenRecordset("consultapueblosenprovincias")
Me.TxtConsultapueblosenprovincias = ""
Do While Not rstaux1.EOF
Me.TxtConsultapueblosenprovincias = Me.TxtConsultapueblosenprovincias & rstaux1.Fields(1).Value & ";"
rstaux1.MoveNext
Loop
rstaux1.Close
dbbase1.Close
End Sub
El caso es que saca todos los pueblos de España sin filtrar aunque la lista de datos si que se actualiza cada vez que que en el formulario principal se cambie de un provincia a otra.
¿alguien sabe como arreglar esto?
Muchas gracias.
| | |
|
|
|
|
|
