MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Comparar dados

    Compartilhe

    maryprego
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 82
    Registrado : 16/07/2017

    [Resolvido]Comparar dados

    Mensagem  maryprego em 14/7/2018, 14:30

    saudações a todos,

    peço encarecidamente a vossa ajuda na seguinte situação:
    pretendo validar os campos dataentra e codigobarrafun, ou seja, um determinado funcionário não pode efectuar dois registo no mesmo dia.e negar o registo caso o codigobarrafun do funcionário não for cadastrado. mas quando tento implementar o codigo abaixo não guardar registo na tabela registoentrada. Onde estou a errar!

    segue o banco de dados em anexo.

    Private Sub txtCodBarra_AfterUpdate()
    Dim db As DAO.Database
       Dim rst As DAO.Recordset
       'abre o recordset da tabela
    Set rst = CurrentDb.OpenRecordset("Select * from tbl_RegistoEntrada")

       'If DCount("[CodigoBarraFun]", "tbl_Funcionarios", "[CodigoBarraFun]= " & Me.txtCodBarra & "") = 0 Then
       '    MsgBox "Código não cadastrado...", vbCritical, "Aviso"
        '   Me.txtCodBarra.Value = ""
        '   Me.txtCodBarra.SetFocus

           If DataEntrada <> Me.txtDataActual And CodigoBarraFun = Me.txtCodBarra Then
       
               MsgBox "Registro efectuado com sucesso...", vbInformation, "Informação"
               Me.txtCodBarra.Value = ""
           Else: If DataEntrada = Me.txtDataActual And CodigoBarraFun = Me.txtCodBarra Then MsgBox "Registo negado", vbInformation, "Informação"
               Me.txtCodBarra.Value = ""
           
           End If
       
     '  End If
    End Sub


    desde já agradeço.
    Anexos
    DB.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (187 Kb) Baixado 4 vez(es)
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 05/12/2016

    Re: [Resolvido]Comparar dados

    Mensagem  caiosouza em 14/7/2018, 18:57

    Bom dia!

    Mais não vejo em nenhuma parte do código uma consulta de inserção de dados.

    Código:
    CurrentDb.Execute "INSERT INTO TabTeste (CampoTeste) VALUES (" Variável ")"


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Comparar dados

    Mensagem  Alexandre Fim em 14/7/2018, 20:48

    Olá Mary,

    Eu preservei o formulário existente e criei um novo com algumas função de validação, verificação e gravação de dados.
    O código está comentado para que vc compreenda melhor o que cada procedimento executa.

    Espero ter ajudado.

    Att,

    Alexandre
    Anexos
    DB.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (43 Kb) Baixado 7 vez(es)

    maryprego
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 82
    Registrado : 16/07/2017

    Re: [Resolvido]Comparar dados

    Mensagem  maryprego em 15/7/2018, 11:40

    cheers muito obrigado pela ajuda e aprendizagem Alexandre, está a funcionar!!!
    só faltou validar no txtcodigoBarraFun, se o códigobarra não existe na tabela funcionários retornar uma mensagem e negar o registo.
    vou tentar quebrar a cabeça para resolver este detalhe.

    Obrigado!

    maryprego
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 82
    Registrado : 16/07/2017

    Re: [Resolvido]Comparar dados

    Mensagem  maryprego em 23/7/2018, 16:29

    grato a todos, consegui resolver com a função DLookup.
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Comparar dados

    Mensagem  Alexandre Fim em 23/7/2018, 22:53

    Parabens Mary,

    Boa sote.

    Um abraço

      Data/hora atual: 19/8/2018, 22:43