eu estou usado data1 e dblist1 e varios Text para descarragar + so que quando tem 2 nomes iguais ele não descarraga por exp. 00001-cliente, 00002-cliente. na lista do dblist 00001

Edson,

 

voce esta clicando no dblist1 e lendo o data1 para colocar no text os registro.

Esta dando erro ?? ou nao coloca nada ??

Coloque o codigo para dar uma olhada

    Set BancoDeDados = OpenDatabase(App.Path & "Atletismo.MDB")
    Set tblcad = BancoDeDados.OpenRecordset("Cliente", dbOpenTable)
    tblcad.Index = "IndNome"
  
    com_nov.Enabled = True
    com_inc.Enabled = False
    com_gra.Enabled = False
    com_can.Enabled = False
    com_fec.Enabled = True
   
   
    If bd_Cliente.EOF = False Then
        AtualizaFormulário
        Text_Fals
        lim_tex
    End If
    
    'configura propriedades do Data Control
    Data1.DatabaseName = App.Path & "atletismo.mdb"
    Data1.RecordSource = "SELECT bd_cod,bd_nom FROM Cliente ORDER BY bd_cod"
   
    'Data1.Refresh
    'Set rsdata = Data1.Recordset
 
    'posiciona o ponteiro no primeiro registro
    'rsdata.MoveMin
 
    'configura propriedades do DBList
    DBList1.ListField = "bd_nom"
    'DBList1.BoundText = rsdata!bd_Razao_Social
 
    'carrega as caixas de texto com os valores do registro atual
    load_recs DBList1.BoundText

End Sub

ele não está dando erro, so que quando eu click 00001 ele tas o cliente 00001 e quando eu click no outra cliente ele continua no 00001

Rochª
eu posso passa um arquivo que eu peguei eu acho que peguei ate aqui mesmo, ele dar a mesmo coisa que o meu programa

Edson,

 

Nunca usei o dblist mais ja usei o dbcombo (deve ser parecido)

Acho que voce esta colocando o nome do DATAFIELD com o nome e ai neste caso ele pode ser repetido, ai voce vai ter problema. Voce deve colocar o codigo (pois deve ser unico) para diferenciar os registros no dblist. Assim

 

    dbcombo_aux.BoundColumn = "db_cod"
    dbcombo_aux.DataField = "db_cod"

 

De uma testada

bom dia a tudos.

agora sim que não esta carregado nada