Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
rdpiza

Preciso de ajuda com banco de dados (DAO) e pesquisa

Question

Tentei colocar 2 index na tabela mas só funcona o 1°(Cadastro) o 2°(Nome) não funciona. Mesmo que eu mude o (DataCadastro.Recordset.FindFirst "Cadastro >= '" & txtPesquisa & "'") para (DataCadastro.Recordset.FindFirst "Nome >= '" & txtPesquisa & "'")
Porque o que tenho que fazer pra funcionar os 2(Cadastro e o Nome )?

bancodedados8U7WMJQK.jpg

Olá tenho uma txtPesquisa_Change que faz pesquia dinamica pelo codigo do cliente mas gostaria que Pesquisa-se pelo nome tmbm como faço segue codigo abaixo lembrando estou com DAO e usando DATA

Private Sub txtPesquisa_Change()
'Busca Dinamica
          DataCadastro.Recordset.FindFirst "Cadastro  >= '" & txtPesquisa & "'"

          If DataCadastro.Recordset.NoMatch Then
          MsgBox "Não encontrado"
Else
          End If
End Sub
Edited by rdpiza

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0
5 horas atrás, rdpiza disse:

Tentei colocar 2 index na tabela mas só funcona o 1°(Cadastro) o 2°(Nome) não funciona. Mesmo que eu mude o (DataCadastro.Recordset.FindFirst "Cadastro >= '" & txtPesquisa & "'") para (DataCadastro.Recordset.FindFirst "Nome >= '" & txtPesquisa & "'")
Porque o que tenho que fazer pra funcionar os 2(Cadastro e o Nome )?

bancodedados8U7WMJQK.jpg

Olá tenho uma txtPesquisa_Change que faz pesquia dinamica pelo codigo do cliente mas gostaria que Pesquisa-se pelo nome tmbm como faço segue codigo abaixo lembrando estou com DAO e usando DATA

Private Sub txtPesquisa_Change()
'Busca Dinamica
          DataCadastro.Recordset.FindFirst "Cadastro  >= '" & txtPesquisa & "'"

          If DataCadastro.Recordset.NoMatch Then
          MsgBox "Não encontrado"
Else
          End If
End Sub

resolvido... coloquei um botão com o código abaixo

DataEdtPresenca.Recordset.MoveFirst
busca = 0
Do While busca < 2

If DataEdtPresenca.Recordset.RecordCount = 0 Then
MsgBox "Não há presenças."
busca = 3
ElseIf DataEdtPresenca.Recordset.EOF Then
MsgBox "Este cadastro está sem presenças.", vbCritical, "Sem presenças"
busca = 3
ElseIf txtEdtReuProcura.Text = DataEdtPresenca.Recordset!Cadastro Then
txtTurma = DataEdtPresenca.Recordset!Turma
txtDataReuniao = DataEdtPresenca.Recordset!Presença
txtEdtreucodigo = DataEdtPresenca.Recordset!Cadastro
txtEdtreunome = DataEdtPresenca.Recordset!Nome
busca = 3

ElseIf txtEdtReuProcura = DataEdtPresenca.Recordset!Nome Then
txtTurma = DataEdtPresenca.Recordset!Turma
txtDataReuniao = DataEdtPresenca.Recordset!Presença
txtEdtreucodigo = DataEdtPresenca.Recordset!Cadastro
txtEdtreunome = DataEdtPresenca.Recordset!Nome
busca = 3

Else
DataEdtPresenca.Recordset.MoveNext
End If

Loop
 

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148129
    • Total Posts
      643432
×
×
  • Create New...