llenar un combo de word con datos desde access

03/10/2007 - 16:17 por SAM S.L | Informe spam
Hola

Quiero llenar un combobox de un formulario de word con los datos de una
tabla access, el codigo que he puesto es:

Private Sub ComboBox1_Click()
Dim dbs As Database
Set dbs = OpenDatabase("c:\projectes\test1.mdb")
Dim rst As Recordset
Set rst = dbs.OpenRecordset("SELECT * FROM operadors")
ComboBox1.ColumnCount = 1
rst.MoveFirst
Dim i As Single
Set i = 0
Do While Not rst.EOF
ComboBox1.List(i) = rst.Fields("nom").Value & " ," &
rst.Fields("cognoms").Value
rst.MoveNext
i = i + 1
Loop

End Sub

la tabla de access se llama operadors y la base de datos test1 y tiene 3
campos; num, nom i cognoms
hay 5 entradas en la base de datos
esperaba ver un combo que al desplegarse enseñara las 5 entradas, pero no
pone nada

Me imagino que es una tonteria pero, para variar, no se que hago mal

Muchas gracias por vuestra ayuda

Preguntas similare

Leer las respuestas

#1 Tux
03/10/2007 - 22:41 | Informe spam
Hola :-)


Quiero llenar un combobox de un formulario de word con los datos de una
tabla access, el codigo que he puesto es:

Private Sub ComboBox1_Click()
Dim dbs As Database
Set dbs = OpenDatabase("c:\projectes\test1.mdb")
Dim rst As Recordset
Set rst = dbs.OpenRecordset("SELECT * FROM operadors")
ComboBox1.ColumnCount = 1
rst.MoveFirst
Dim i As Single
Set i = 0
Do While Not rst.EOF
ComboBox1.List(i) = rst.Fields("nom").Value & " ," &
rst.Fields("cognoms").Value
rst.MoveNext
i = i + 1
Loop

End Sub

la tabla de access se llama operadors y la base de datos test1 y tiene 3
campos; num, nom i cognoms
hay 5 entradas en la base de datos
esperaba ver un combo que al desplegarse enseñara las 5 entradas, pero
no pone nada

Me imagino que es una tonteria pero, para variar, no se que hago mal

Muchas gracias por vuestra ayuda



Bien mira la respuesta ofrecida en Vba y comentanos ok? :-)

Saludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida