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

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 )? 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
 

[Contagem de registro]

Se você esta usando DAO faça assim

lblcadTotal.Caption = DataCadastro.Recordset.RecordCount

se for adodc é quase igual só mudar  lblcadTotal.Caption = adodcCadastro.Recordset.RecordCount

tenta ai..

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

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 )? 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

[Preciso de AJUDA COM PESQUISA Dinamica(DAO)]

Tentei colocar 2 index na tabela mas só funcona o 1°(Cadastro) 2°(Nome)  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 )? 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

[Ajuda com login com banco de dados DAO]

Estou com dificuldade tenho um banco de dados com vários nome de usuários e senhas mas quando vou fazer login so consigo logar com o nome de usuario e senha que esta em primeiro no banco de dados os demais não consigo o que esta faltando?

O código é mais u menos isso:

Public BD As Database 'Banco de Dados
Public Colaboradores As Recordset 'Tabela
Private Sub Command1_Click()

    If txtnome.Text = "" Then
        MsgBox "Digite nome de usuário!"
    txtnome.Text = ""
    txtnome.SetFocus
End If
    If txtsenha.Text = "" Then
        MsgBox "Digite a senha!"
    txtsenha.Text = ""
    txtnome.SetFocus
End If
txtnome.SetFocus
    If Colaboradores("Nome") = txtnome.Text And Colaboradores("Senha") = txtsenha.Text Then
        FrmPrincipal.Show
        Unload Me
        
Else
    MsgBox "Nome ou senha Incorretos.", vbCritical, "Erro"
End If

End Sub
Private Sub Form_Load()
    Set BD = OpenDatabase(App.Path & "\login.mdb")
    Set Colaboradores = BD.OpenRecordset("login", dbOpenTable)
End Sub