MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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



    .................................................................................
    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.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.


    .................................................................................
    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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



    .................................................................................
    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: Sex 09 Dez 2016, 13:30