quiero ordenar un combobox alfabeticamente.en ese combobox vuelco los datos de una tabla con nombres de personas.

con sorted me da problema porq no me respeta
las relaciones.
hay alguna otra forma de ordenar el combo alfabeticamente??

espero que me ayuden.muchas gracias Edited by: estresada

Hola,

Siempre puedes cargar el combobox a través de código y en la sql poner un order by por el campo que te interese:

Referencias :
Microsoft DAO 3.6 Object Library

Componentes :
MicrosoftADO Data Control 6.0
Microsoft Windows Common Controls 6.0

Private Sub Form_Load()
Dim mibd As Database
Dim rdatos As Recordset

'Si la base esta en el mismo directorio de la aplicación
Set mibd = OpenDatabase(App.Path & "\mibase.mdb", False, False, "MS Access")
'Si esta en otro directorio
Set mibd = OpenDatabase("ruta + mibase.mdb", False, False, "MS Access")

cboNombres.Clear
Set rdatos = mibd.OpenRecordset("select * from personas order by nombre", dbOpenSnapshot)
rdatos.MoveFirst
Do While Not rdatos.EOF
cboNombres.AddItem rdatos("nombre")
rdatos.MoveNext
Loop
rdatos.Close


End Sub

Espero que te sirva.Edited by: Naisha

lo primero de todo es darte las gracias.<?:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" />

Aver yo te cuento.

tengo un combobox con nombres de personas (tabla bd), y al elegir uno se me llenan todos los textbox restantes con sus datos(telefono, direccion, etc).

bien pero la cuestion es que tengo un form que sirve pa modificar esos datos. por ejemplo selecciono a alguien y quiero cambiar su numero de telefono, pue le doy a modificar, y me sale un form con todos los datos de ese alguien que he seleccionado.

bien pero la cuestion es la siguiente, el objetivo era ordenar simplemente el combox y los nombres de persona alfabeticamente. yo creia que con tan solo poner sorted a true ya bastaba, pero no, porque me olvide de la relaciones

aver yo ahora con lo que me has pasado si que se me ordena el combobox alfabeticamente, pero lo q pasa, es que selecciono el ultimo item <?:namespace prefix = st1 ns = "urn:schemas-microsoft-comffice:smarttags" /><st1:State w:st="&#111;n">del</st1:State> combo y el me entiende <st1:City w:st="&#111;n"><st1lace w:st="&#111;n">como</st1lace></st1:City> si yo estuviesse dando al ultimo registro de la tabla de nombres. y yo quiero decirle que me respete eso.

mirad. el ultimo nombre de la tabla es carmen , tiene <st1:City w:st="&#111;n"><st1lace w:st="&#111;n">como</st1lace></st1:City> codigo el 71 que es el ultimo registro de la tabla

y cuando ordenamos el combo y seleccionamos el ultimo item que se llama Vidalina el me muestra los datos de carmen(el ultimo registro de la tabla)

espero que os podais hacer una idea

mi pregunta es hay alguna forma de corregirlo?,

tengo q añadir un where a la consulta diciendole algo <st1:State w:st="&#111;n"><st1lace w:st="&#111;n">del</st1lace></st1:State> codigo identificador??

espero no haberos echo un lio

Aver si alguien me puede ayudar. Si hace falta me explico de nuevo , q ya se que a la primera cuesta entenderme



gracias de nuevo!


Edited by: estresada

Lo que puedes hacer es asignarle al Combo, además del nombre del campo, el numero del registro en la propiedad ItemData:

Código:

 Dim i As Integer
 Do Until rs.EOF
 Combo1.AddItem rs.Fields("Nombre")
 Combo1.ItemData(i) = rs.AbsolutePosition
 rs.MoveNext
 i = i + 1
 Loop
 Combo1.ListIndex = 0 ' para mostar el primero
 rs.MoveFirst

Y después al seleccionar en el combo, mover el puntero del recordset al registro correspondiente

Código:

Private Sub Combo1_Click()
 rs.AbsolutePosition = Combo1.ItemData(Combo1.ListIndex)
 ' ..... cargar en los TextBox los datos
End Sub

Saludos

muchas gracias
con vuestra ayuda funciono lo que queria hacer
gracias

de nada