Limitación de 255 carácteres en combos

Hola Patxi

Sigo con dudas dices:

También podrías usar las propiedades Selected, ItemData, ItemsSelected,
ListIndex y ListCount

Pero entiendo que todas ellas me posicionan en el registro seleccionado,
pero no se con que otra propiedad puedo moverme por las columnas sin usar
column()

Y mas: también puedes usar la propiedad Recordset del cuadro combinado

Aquí estoy aun más perdido, yo lo que hice fue traer la consulta del combo
en vez de la tabla pero se me figura lo mismo y que no es a lo que te
refieres con la consulta el recordset lo mas simplificado queda:

Dim query As dao.Recordset

CboNombre.SetFocus
If CboNombre.Value > 0 Then
Set query = CurrentDb.OpenRecordset("SELECT * FROM ctacliente12 WHERE
IDcliente = " & CboNombre.Value)
If Not query.BOF Then
Me.txtDomicilio = query!Domicilio
Me.txtCiudad = query("Ciudad")
Me.txtEstado = query("Estado")
Me.txtCP = query("CP")
Me.txtTel = query("Teléfono")

End If
query.Close
Set query = Nothing
End If

Con ItemData puedes recuperar el valor de la columna dependiente de la fila
que quieras, no sólo la seleccionada. Eso sí, como siempre se me olvida que
no existe la propiedad List en Access, me suelo colar, incluyendo la
respuesta que te dí antes: la final, hay que usar Column para obtener las
columnas no dependientes.

En cuanto al Recordset, haz una pequeña prueba, y entenderás a qué me
refiero:

1.- Coloca un cuadro combinado en un formulario, que esté basado en una
tabla o consulta. En el código, se supone que el cuadro combinado se llama
MiCombo, y que los campos de la tabla se llaman Id y Fecha.
2.- Coloca 2 cuadros de texto. En el ejemplo, se supone que los cuadros de
texto se llaman UnTexto y OtroTexto.
3.- Coloca el siguiente código en el evento Después de actualizar del cuadro
combinado:

Private Sub MiCombo_AfterUpdate()
With Me.MiCombo.Recordset
Me.UnTexto = .Fields!Id
Me.OtroTexto = .Fields!Fecha
End With
End Sub

Un saludo,


Patxi Sanz
Tudela (NA)
Dirección "corta": http://www.pasa.es.tt/
Dirección "completa": http://users6.jabry.com/patxisanz/

Hola Patxi

Ya decia yo que no tenia ni idea.
Pero otra duda, no se si dao tiene una colección Fields, F1 me sale en
blanco pero Ado si que la tiene, la pregunta como establezco que sea Dao o
Ado, Un saludo.

Que yo sepa, el Recordset de DAO también tiene una colección Fields. Si no
aparece nada en tu ayuda, comprueba que tienes referenciada la librería DAO.
Y si sigues sin ver nada, abre la ayuda desde el editor de VBA, y usa la
búsqueda para ver qué aparece.

En cuanto a establecer que el Recordset sea DAO o ADO, nunca he hecho la
prueba. Pero lo que dice la ayuda sobre la propiedad Recordset del cuadro
combinado, es que es un objeto de lectura y escritura. Es decir, que tú
puedes darle un objeto Recordset a ese cuadro combinado, y le dará igual si
es ADO o DAO, porque se va a cargar igual. O por lo menos esa es la teoría,
luego hace falta saber si funciona bien, aunque siempre se pueden hacer
pruebas.

Y si lo que se desea saber es si el Recordset es DAO o ADO, siempre se puede
usar la función TypeOf.

Un saludo,


Patxi Sanz
Tudela (NA)
Dirección "corta": http://www.pasa.es.tt/
Dirección "completa": http://users6.jabry.com/patxisanz/