MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


3 participantes

    [Resolvido]Comparar dois campos

    avatar
    _Dess_
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 22/06/2010

    [Resolvido]Comparar dois campos Empty Comparar dois campos

    Mensagem  _Dess_ 29/6/2010, 12:39

    Bom dia gente.

    Eu tenho um campo no meu subformulário que se chama DATA DO CADASTRO (pelo que o próprio nome sugere, nesse campo o usuário deve entrar com a data em que o registro foi efetuado - dd/mm/aaaa).

    Gostaria de saber se tem como fazer uma macro (ou comando) que compare a data atual do sistema com a data digitada pelo usuário e, se elas forem diferentes, aparecer uma msg informando* a diferença.

    *Se DATA DO CADASTRO diferente da data atual, aparecer msg informando que o usuário. (mesmo as datas sendo diferentes, o registro é salvo. A msg é única e exclusivamente para "alertar" o usuário).

    Se tiver como, por favor indiquem a maneira de fazer tal macro ou comando.

    No aguardo.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Comparar dois campos Empty Re: [Resolvido]Comparar dois campos

    Mensagem  criquio 29/6/2010, 14:52

    Tente isso no evento "Após atualizar" do campo da data:

    If Me.NomeCampoData.Value <> Format(Now, "dd/mm/yyyy") Then
    MsgBox "A data digitada é diferente da data atual", , "Datas diferentes"
    End If


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    _Dess_
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 22/06/2010

    [Resolvido]Comparar dois campos Empty Re: [Resolvido]Comparar dois campos

    Mensagem  _Dess_ 29/6/2010, 15:44

    criqui,

    o comando funcionou em partes...

    Mesmo qdo eu digito a data de hoje (29/06/2010) aparece a msg.

    O código ficou assim:

    Private Sub DATA_DO_CADASTRO_AfterUpdate()
    If Me.DATA_DO_CADASTRO.Value <> Format(Now, "dd/mm/yyyy") Then
    MsgBox "A data digitada é diferente da data atual (hoje).", , "ATENÇÃO!"
    End If
    End Sub

    Informação adicional: o campo DATA DO CADASTRO está formatado como:
    Formato: data abrevida
    Casas decimais: automático
    Máscara de entrada: 99/99/9999

    O que será que houve de errado? Será que a data do programa está diferente da data de hoje? (onde eu posso consultar a data do access?)

    Nota: qdo eu digito a data de hoje, ao dar tab o que eu digitei (29/06/2010) fica assim: 29/6/2010. Será esse o motivo da inconsistência do comando?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Comparar dois campos Empty Re: [Resolvido]Comparar dois campos

    Mensagem  JPaulo 29/6/2010, 15:59


    Private Sub DATA_DO_CADASTRO_Exit(Cancel As Integer)
    If Me.DATA_DO_CADASTRO.Value <> Date() Then
    MsgBox "A data digitada é diferente da data atual (hoje).", , "ATENÇÃO!"
    DoCmd.CancelEvent
    Else
    Exit Sub
    End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Comparar dois campos Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Comparar dois campos Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Comparar dois campos Folder_announce_new Instruções SQL como utilizar...

    rlss gosta desta mensagem

    avatar
    _Dess_
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 22/06/2010

    [Resolvido]Comparar dois campos Empty Re: [Resolvido]Comparar dois campos

    Mensagem  _Dess_ 29/6/2010, 19:24

    criquio o JPaulo resolveu o meu problema.

    Obrigado aos dois pela ajuda.

    Tópico resolvido.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Comparar dois campos Empty Re: [Resolvido]Comparar dois campos

    Mensagem  criquio 29/6/2010, 19:51

    Beleza. Se está resolvido, resolvido está. Ia tentar outras fórrmulas, começando por essa do grande JPaulo, até chegarmos à solução. É que às vezes formatação de campo diferente requer solução diferente, rsrsrs.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Comparar dois campos Empty Re: [Resolvido]Comparar dois campos

    Mensagem  JPaulo 29/6/2010, 21:43

    Só não consigo perceber o porquê de se complicar o simples.

    Formatar o Agora() para data, é mais complicado que o Data() diretamente, certo ?

    Isto Format(Now, "dd/mm/yyyy") é mais ou menos isto Date(), mas não é igual.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Comparar dois campos Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Comparar dois campos Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Comparar dois campos Folder_announce_new Instruções SQL como utilizar...
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Comparar dois campos Empty Re: [Resolvido]Comparar dois campos

    Mensagem  criquio 29/6/2010, 22:07

    Então, JPaulo, eu ia sugerir exatamente isso Date() mas imaginei que a caixa de texto dele estivesse formatada, por isso formatei tambem, rsrsrs.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Comparar dois campos Empty Re: [Resolvido]Comparar dois campos

    Mensagem  JPaulo 29/6/2010, 23:07

    Grande criquio sempre a surpreender..... rsrsrsrs

    Você estava a formatar o Now() e não a caixa de texto.

    Formatar o campo como você diz seria;

    If Format(Me.NomeCampoData,"dd/mm/yyyy") <> Format(Now, "dd/mm/yyyy") Then





    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Comparar dois campos Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Comparar dois campos Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Comparar dois campos Folder_announce_new Instruções SQL como utilizar...
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Comparar dois campos Empty Re: [Resolvido]Comparar dois campos

    Mensagem  criquio 30/6/2010, 00:03

    KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK
    Acho que tem hora que falamos a mesma coisa mas por razão do modo de usar as palavras, não nos entendemos. Será a diferença de nacionalidade? huahuahuahuahua.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Comparar dois campos Empty Re: [Resolvido]Comparar dois campos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 10:22