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]IF para conferir de um formato de data foi digitado correto

    Compartilhe

    cakanilo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 09/04/2011

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

    Mensagem  cakanilo em Sex 21 Fev 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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Sex 21 Fev 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    cakanilo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 09/04/2011

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

    Mensagem  cakanilo em Sex 21 Fev 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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Sex 21 Fev 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    cakanilo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 09/04/2011

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

    Mensagem  cakanilo em Sex 21 Fev 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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Sex 21 Fev 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    cakanilo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 09/04/2011

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

    Mensagem  cakanilo em Sex 21 Fev 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

      Data/hora atual: Dom 23 Jul 2017, 19:50