MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Erro em consulta data SQL em Form não Acoplado

    avatar
    erismarlima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 26/01/2015

    [Resolvido]Erro em consulta data SQL em Form não Acoplado Empty [Resolvido]Erro em consulta data SQL em Form não Acoplado

    Mensagem  erismarlima em Seg 29 Abr 2019, 8:18 am

    Boa noite amigos!
    Primeira vez aqui no Fórum, sou novato neste mundo de access. Estou desenvolvendo um sistema para uma escola e estou com problema em uma pesquisa.

    Ao cadastrar um aluno o sistema deve verificar se o aluno já foi cadastrado antes pesquisando pelo nome e data de nascimento, porém, mesmo inserindo os dados iguais aos da tabela, ele não retorna nada.

    Estou usando Form não acoplado e todas as operações são via comando SQL.
    Código:

    Private Sub PesquisarAluno()
        
        Conn 'abre a conexao com o banco
        
        cmd = "SELECT * FROM Aluno WHERE nmAluno = '" & Me.txtNome & "' AND dtNasc = '" & Me.txtData & "'"

        ValidaSelecao

        If rs.RecordCount <> 0 Then

            If MsgBox("Aluno já cadastrado, deseja alterar?", vbYesNo + vbQuestion, "Pesquisa") = vbYes Then
                Me.txtCodigo = rs("cod")
                Me.txtNome = rs("nmAluno")
                Me.txtData = rs("dtNasc")
                Me.txtMae = rs("mae")
                Me.txtPai = rs("pai")

            End If

        End If
        FechaValida
        FechaConexao

    End Sub


    Se alguém puder me dar uma luz agradeceria muito.

    [Resolvido]Erro em consulta data SQL em Form não Acoplado Tela_c10
    Anexos
    [Resolvido]Erro em consulta data SQL em Form não Acoplado AttachmentSQLdata.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (83 Kb) Baixado 9 vez(es)


    Última edição por erismarlima em Seg 29 Abr 2019, 8:18 pm, editado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1148
    Registrado : 13/12/2016

    [Resolvido]Erro em consulta data SQL em Form não Acoplado Empty Re: [Resolvido]Erro em consulta data SQL em Form não Acoplado

    Mensagem  Alexandre Fim em Seg 29 Abr 2019, 6:04 pm

    Bom dia Erismar,

    Na sub "PesquisarAluno" altere a linha para:
    Código:

    cmd = "SELECT * FROM Aluno WHERE nmAluno = '" & Trim(Me.txtNome) & "' AND dtNasc = #" & Format(Me.txtData, "MM/DD/YYYY") & "#"


    No Access, é necessário formatar a data para "mm/dd/yyyy" para realizar o select.


    OBS: Evite usar o nome e a data para verificar dados, pois existe o risco de você ter homônimos cadastrados. Utiliza um campo como chave, tipo "CPF".


    Espero ter ajudado.

    Boa sorte
    avatar
    erismarlima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 26/01/2015

    [Resolvido]Erro em consulta data SQL em Form não Acoplado Empty Re: [Resolvido]Erro em consulta data SQL em Form não Acoplado

    Mensagem  erismarlima em Seg 29 Abr 2019, 8:17 pm

    Muito obrigado amigo, resolveu perfeitamente meu problema.
    quanto a sugestão de pesquisa irei pensar em outro campo como cpf. como nem todos os alunos ainda possuem cpf nao o inclui de iniciio.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1148
    Registrado : 13/12/2016

    [Resolvido]Erro em consulta data SQL em Form não Acoplado Empty Re: [Resolvido]Erro em consulta data SQL em Form não Acoplado

    Mensagem  Alexandre Fim em Seg 29 Abr 2019, 9:17 pm

    Valeu Erismar!!!!
    O fórum agradece.
    cheers cheers cheers

      Data/hora atual: Qui 22 Out 2020, 5:57 am