Tenho um combo box que recebe um campo do meu banco de dados, só que está indexado por código e eu gostaria que estivese em ordem alfabética.

Não sei se fui muito claro.

 

Muito obrigado

foi sim olhe como faço

 

SS="Select Codigo,Nome From Tabela"

call MontaRecordSet

If not rs.Eof then

   Combo.Clear

   Do while not rs.eof

        Combo.AddItem RS!Codigo & " - " & Rs!Nome

        Rs.movenext

   loop

   Combo.refresh

endif

Cara desculpe, mas se não for pedir muito poderia comentar as linhas?

E onde coloco esta rotina?

 

Muito obrigado

Outro exemplo:

No cmdAdd_click:

Preencher_Servicos

No cmdEdit_Click :

 

Public Sub Preencher_Servicos()
 Dim db As Connection
  Set db = New Connection
  db.CursorLocation = adUseClient

  db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "mvdoctab.mdb" & " ;"
  Set adoservRS = New Recordset
  adoservRS.Open "select ent_num, ent_nome from tEntidades where ent_codig='d' order by ent_nome", db, adOpenStatic, adLockOptimistic
 If adoservRS.RecordCount > 0 Then
 adoservRS.MoveMin
 Do While Not adoservRS.EOF
 DBCCodigo.AddItem adoservRS("ent_nome")
 DBCCodigo.Refresh
 frmtMOVIMENTOS.Refresh
 adoservRS.MoveNext
  Loop
 
End If

End Sub

 

João Mateus