algem sabe como se consulta a base d dados atraves d datasource?

Eu passei uma rotina pra vc e vc encerrou o tópico...

 

o que não deu certo na outra?

 

tenta essa:

 

    Adodc1.Refresh
    If Not Txt_Box0 = "" Then
        Adodc1.Recordset.Find "Nome LIKE '" & Txt_Box0 & "%'"
        If Adodc1.Recordset.EOF Then
            Adodc1.Refresh
            MsgBox "Nome não encontrado"
            Exit Sub
         Else
            'Rotina para Reposição de Dados
        End If
    End If

tava a dar erro mas agora revi e já está a ligar....
pods m mostrar como gostumas faser a reposiçao de dados?

Depende da forma que vc usa o ADODC.

 

Se a pesquisa esta no mesmo Form é só criar uma sub com os campos, por ex.

 

Sub Reposicionar()
  
   txtCliente = Adodc1.Recordset("Cliente")
   txtNome = Adodc1.Recordset("Nome")
   txtEndereco = Adodc1.Recordset("Endereco")
   txtNumero = Adodc1.Recordset("Numero")
   txtBairro = Adodc1.Recordset("Bairro")
   txtCidade = Adodc1.Recordset("Cidade")
   txtEstado = Adodc1.Recordset("Estado")
End Sub

e chamar a função onde eu indiquei.

 

Qualquer coisa Post...

pois o problema é que eu tou a procorar por nome e o principal é o numero de cliente...

eu pos assim o kodigo:
Adodc1.Refresh
    If Not Text1 = "" Then
        Adodc1.Recordset.Find "Nome: '" & Text1 & "%'"
        If Adodc1.Recordset.EOF Then
            Adodc1.Refresh
            MsgBox "Nome não encontrado"
            Exit Sub
         Else
        Label1 = Adodc.recorset("Nº Utente")
        Text1 = Adodc1.Recordset("Nome:")
        Text2 = Adodc1.Recordset("Hora da entrada")
        End If
    End If

 

 

e n dá nada...