AJUDA COM PESQUISA DAO
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 [Ô][txt-color=#0000f0]Cadastro[/txt-color] >= [ô][Ô] & txtPesquisa & [Ô][ô][Ô]
If DataCadastro.Recordset.NoMatch Then
MsgBox [Ô]Não encontrado[Ô]
Else
End If
End Sub
tentei colocar 2 index na tabela mas só funcona o 1° mesmo que eu mude o (DataCadastro.Recordset.FindFirst [Ô][txt-color=#e80000]Nome[/txt-color] >= [ô][Ô] & txtPesquisa & [Ô][ô][Ô])
Porque o que tenho que fazer pra funcionar os 2(Cadastro e o Nome )?
Private Sub txtPesquisa_Change()
[ô]Busca Dinamica
DataCadastro.Recordset.FindFirst [Ô][txt-color=#0000f0]Cadastro[/txt-color] >= [ô][Ô] & txtPesquisa & [Ô][ô][Ô]
If DataCadastro.Recordset.NoMatch Then
MsgBox [Ô]Não encontrado[Ô]
Else
End If
End Sub
tentei colocar 2 index na tabela mas só funcona o 1° mesmo que eu mude o (DataCadastro.Recordset.FindFirst [Ô][txt-color=#e80000]Nome[/txt-color] >= [ô][Ô] & txtPesquisa & [Ô][ô][Ô])
Porque o que tenho que fazer pra funcionar os 2(Cadastro e o Nome )?
Mude pelo menos para Ado.
Visite = https://msdn.microsoft.com/pt-br/library/office/ff194787.aspx
Isto para um botão.
Dim criterio As String
Dim ss As DAO.Recordset
Dim Dado As String
Set cnd = OpenDatabase(App.Path & [Ô]\Dados.mdb[Ô], False, False)
Set ss = cnd.OpenRecordset([Ô]Banco[Ô], dbOpenDynaset)
Dado = InputBox([Ô]Digite o Nome para Consulta![Ô])
criterio = [Ô]Banco like [ô]*[Ô] & Dado & [Ô]*[ô][Ô]
ss.FindFirst criterio
If ss.NoMatch Then
MsgBox [Ô] O Nome [Ô] & Dado & [Ô] não está Cadastrado[Ô]
Else
txtBusca.Text = ss!Banco
End If
Visite = https://msdn.microsoft.com/pt-br/library/office/ff194787.aspx
Isto para um botão.
Dim criterio As String
Dim ss As DAO.Recordset
Dim Dado As String
Set cnd = OpenDatabase(App.Path & [Ô]\Dados.mdb[Ô], False, False)
Set ss = cnd.OpenRecordset([Ô]Banco[Ô], dbOpenDynaset)
Dado = InputBox([Ô]Digite o Nome para Consulta![Ô])
criterio = [Ô]Banco like [ô]*[Ô] & Dado & [Ô]*[ô][Ô]
ss.FindFirst criterio
If ss.NoMatch Then
MsgBox [Ô] O Nome [Ô] & Dado & [Ô] não está Cadastrado[Ô]
Else
txtBusca.Text = ss!Banco
End If
Citação::
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 [Ô][txt-color=#0000f0]Cadastro[/txt-color] >= [ô][Ô] & txtPesquisa & [Ô][ô][Ô]
If DataCadastro.Recordset.NoMatch Then
MsgBox [Ô]Não encontrado[Ô]
Else
End If
End Sub
tentei colocar 2 index na tabela mas só funcona o 1° mesmo que eu mude o (DataCadastro.Recordset.FindFirst [Ô][txt-color=#e80000]Nome[/txt-color] >= [ô][Ô] & txtPesquisa & [Ô][ô][Ô])
Porque o que tenho que fazer pra funcionar os 2(Cadastro e o Nome )?
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
Tópico encerrado , respostas não são mais permitidas