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


    If entre intervalo de datas

    Davi.lrcampos
    Davi.lrcampos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 80
    Registrado : 02/02/2012

    If entre intervalo de datas Empty If entre intervalo de datas

    Mensagem  Davi.lrcampos 6/6/2012, 12:49

    Bom dia à todos, alguém poderia me ajudar num probleminha...

    Preciso fazer um If entre datas mas não estou conseguindo...
    Tenho 4 campos do tipo data
    1 - Inicio_Destino
    2 - Final_Destino
    3 - Inicio
    4 - Fim

    O 1 e 2 sempre terão um valor neles que seria o primeiro dia do mes no campo (Inicio_Destino) e o ultimo dia do mes no campos (Final_Destino)

    O 3 e 4 é digitável

    Quando clicar no botão transferir ele tem que verificar se as duas datas que digitei está entre as duas que estão no campo 1 e 2.

    Eu estou a fazer assim:

    Private Sub transferencia_Click()
    If Me.Inicio_Destino < Me.inicio Or Me.Final_Destino > Me.fim Then
    'MsgBox "Não precede"
    Else
    ' Então executa a transferência
    End If
    End Sub

    Onde estou errando?

    Grato,


    Davi
    avatar
    Convidad
    Convidado


    If entre intervalo de datas Empty Re: If entre intervalo de datas

    Mensagem  Convidad 6/6/2012, 13:26


    Olá

    Tente assim:

    If Me.Inicio > Me.Inicio_Destino And Me.Fim < Me.Final_Destino Then

    Davi.lrcampos
    Davi.lrcampos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 80
    Registrado : 02/02/2012

    If entre intervalo de datas Empty If entre intervalo de datas

    Mensagem  Davi.lrcampos 6/6/2012, 13:56

    Não deu certo Norberto
    Acho que eu não sobe expor a situação...

    Inicio = 01/05/2012
    Fim = 31/05/2012

    Inicio_Transfere = "Esse tem que ser > que 01/05/2012 e < 31/05/2012"
    Fim_Transfere = "Esse é a mesma condição"

    Obs "Ambos precisam estar Entre Inicio e Fim"


    avatar
    Convidad
    Convidado


    If entre intervalo de datas Empty Re: If entre intervalo de datas

    Mensagem  Convidad 6/6/2012, 14:25


    Mudou todos os nomes ....?

    Tente assim:

    LimiteInicial = 01/05/2012
    LimiteFinal = 31/05/2012

    If Me.DataInicial Between Me.LimiteInicial And Me.LimiteFinal Then
    If Me.DataFinal Between Me.LimiteInicial And Me.LimiteFinal Then

    End If
    End If


    Conteúdo patrocinado


    If entre intervalo de datas Empty Re: If entre intervalo de datas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 23:32