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


2 participantes

    [Resolvido]IF para conferir de um formato de data foi digitado correto

    cakanilo
    avatar
    cakanilo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 09/04/2011
    • Mensagem nº1

    [Resolvido]IF para conferir de um formato de data foi digitado correto Empty [Resolvido]IF para conferir de um formato de data foi digitado correto

    Mensagem  cakanilo 21/2/2014, 13:30

    Bom dia necessito de verificar se um formato de data foi digitado corretamente


    formato correto: JAN2014, DEZ 2014, JUL2014.

    eis o meu código:

       If Me.MesReferencia.Value <> Format("MMMYYYY") Then
           
           MsgBox "digite a data no formato correto, ex: JUL2014!"
       
       Else
       

       End If
    • Ir para o topo
    JPaulo
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009
    • Mensagem nº2

    [Resolvido]IF para conferir de um formato de data foi digitado correto Empty Re: [Resolvido]IF para conferir de um formato de data foi digitado correto

    Mensagem  JPaulo 21/2/2014, 14:10

    Teste;

    Private Sub MesReferencia_AfterUpdate()
        If Me.MesReferencia.Value <> Format(Me.MesReferencia, "MMMYYYY") Then
            MsgBox "Data mal digitada...", vbCritical
            Me.MesReferencia.Value = ""
            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]IF para conferir de um formato de data foi digitado correto Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]IF para conferir de um formato de data foi digitado correto Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]IF para conferir de um formato de data foi digitado correto Folder_announce_new Instruções SQL como utilizar...
    • Ir para o topo
    cakanilo
    avatar
    cakanilo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 09/04/2011
    • Mensagem nº3

    [Resolvido]IF para conferir de um formato de data foi digitado correto Empty Re: [Resolvido]IF para conferir de um formato de data foi digitado correto

    Mensagem  cakanilo 21/2/2014, 14:32

    Bom dia JPaulo,


    coloquei o código no evento ao atualizar e não foi verificado se o formato foi digitado corretamente.
    • Ir para o topo
    JPaulo
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009
    • Mensagem nº4

    [Resolvido]IF para conferir de um formato de data foi digitado correto Empty Re: [Resolvido]IF para conferir de um formato de data foi digitado correto

    Mensagem  JPaulo 21/2/2014, 14:50

    Engraçado que aqui fiz o teste e funfou.

    Anexe aqui parte do seu banco por favor.


    .................................................................................
    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]IF para conferir de um formato de data foi digitado correto Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]IF para conferir de um formato de data foi digitado correto Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]IF para conferir de um formato de data foi digitado correto Folder_announce_new Instruções SQL como utilizar...
    • Ir para o topo
    cakanilo
    avatar
    cakanilo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 09/04/2011
    • Mensagem nº5

    [Resolvido]IF para conferir de um formato de data foi digitado correto Empty Re: [Resolvido]IF para conferir de um formato de data foi digitado correto

    Mensagem  cakanilo 21/2/2014, 17:57

    Ok.
    quando coloco uma data 15/03/2014 funciona, mas se alguém quiser escrever qualquer coisa no campo ex: asndjknakdjnask

    é isso que pretendo, restringir o campo a somente o formato abaixo.


    FEV2014
    JUL2013

    JAN2012
    • Ir para o topo
    JPaulo
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009
    • Mensagem nº6

    [Resolvido]IF para conferir de um formato de data foi digitado correto Empty Re: [Resolvido]IF para conferir de um formato de data foi digitado correto

    Mensagem  JPaulo 21/2/2014, 18:07


        If Not IsDate(Me.MesReferencia.Value) Then
            MsgBox "Data mal digitada...", vbCritical
            Me.MesReferencia.Value = ""
            Else
            Exit Sub
        End If



    .................................................................................
    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]IF para conferir de um formato de data foi digitado correto Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]IF para conferir de um formato de data foi digitado correto Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]IF para conferir de um formato de data foi digitado correto Folder_announce_new Instruções SQL como utilizar...
    • Ir para o topo
    cakanilo
    avatar
    cakanilo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 09/04/2011
    • Mensagem nº7

    [Resolvido]IF para conferir de um formato de data foi digitado correto Empty Re: [Resolvido]IF para conferir de um formato de data foi digitado correto

    Mensagem  cakanilo 21/2/2014, 18:22

    consegui com alguns ajuste no seu código.

    If Len(Me.MesReferencia.Value) <> 7 Then
               
               MsgBox "digite a data no formato correto, ex: JUL2014!"
               Me.MesReferencia.Value = ""
       Else
               If Me.MesReferencia.Value <> Format(Me.MesReferencia, "MMMYYYY") Then
                   MsgBox "Data mal digitada...", vbCritical
                   Me.MesReferencia.Value = ""
                   Else
                   Exit Sub
               End If

               
       End If
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº8

    [Resolvido]IF para conferir de um formato de data foi digitado correto Empty Re: [Resolvido]IF para conferir de um formato de data foi digitado correto

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 8/11/2024, 08:36