Não chegou...

ja voltei a mandar....

recebest?

Mandei um arquivo pra vc.

 

Como Text1 tava setado com o ADODC, eu precisei de uma variavel, pq no Refresh ele perdia o valor.

segue a modificação que eu fiz no código:

 

Private Sub Command1_Click()
    Dim strpesquisa As String
   
    If Not Text1.Text = "" Then
        strpesquisa = Text1.Text
        Adodc1.Refresh
       
        Adodc1.Recordset.Find "Nome: = '" & strpesquisa & "'"
        If Adodc1.Recordset.EOF Then
            Adodc1.Recordset.Requery
            MsgBox "Nome não encontrado"
        End If
    End If
End Sub

Já  dá es grande.......

 

olha meu fase um ultimo favor em koment a frente do kodigo a disser o k kada koisa faz..... [ ]

um abraço

e obrigado por este forum
o melhor k eu alguma vex estive...

Private Sub Command1_Click()
'Cria Variavel para Pesquisa

    Dim strpesquisa As String
   
'Verifica se o campo esta em branco

    If Not Text1.Text = "" Then
'Atribui o valor do campo à Variavel

        strpesquisa = Text1.Text
'Posiciona o Ponteiro no Inicio da Tabela

        Adodc1.Refresh
'Pesquisa pelo campo "Nome:"       
        Adodc1.Recordset.Find "Nome: = '" & strpesquisa & "'"
'Verifica se é fim de Arquivo (se encontrou algum registro vai Posicinar o Ponteiro nele, se não, vai para o fim)

        If Adodc1.Recordset.EOF Then
'Atualiza o RecordSet e posiciona o Ponteiro no Primeiro Registro

            Adodc1.Recordset.Requery
            MsgBox "Nome não encontrado"
        End If
'Não há rotina de Reposição, pq como vc Seta os campos com o ADO a Reposição é automatica

    End If
End Sub

disme uma coisa komo é que eu limito um textbox a 9 caracteres?