MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial"

    avatar
    JVitor
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 09/07/2019

    Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial"  Empty Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial"

    Mensagem  JVitor em Qui Jun 04, 2020 9:19 am

    Boa tarde, pessoal,

    Tenho um formulário para pesquisa com Data Inicial e Data Final para gerar um relatório.

    Eu gostaria que apos definir a Data Inicial, ele mudasse automaticamente para caixa de texto de Data Final, e abrir o calendário no mesmo Mês que esta digitado na Caixa de Texto Data Inicial.

    Se puderem ajudar, fico imensamente grato,

    ps.: Sou novato no access. Smile

    Um abraço à todos,

    Att.,

    JVitor
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3100
    Registrado : 21/04/2011

    Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial"  Empty Re: Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial"

    Mensagem  Marcelo David em Ter Jun 09, 2020 12:00 am

    Bom dia,
    caso deseje que seja acrescentado um mês a data inicial:

    Evento após atualizar do campo Data Inicial:

    Código:
    If Not IsNull(Me.CampoDataInicial) Then
        Me.CampoDataFinal = DateAdd("m", 1, Me.CampoDataInicial)
        Me.CampoDataFinal.SetFocus
    End If

    E se desejar que mantenha o mesmo mês e o mesmo dia:

    Evento após atualizar do campo Data Inicial:

    Código:
    If Not IsNull(Me.CampoDataInicial) Then
        Me.CampoDataFinal = Me.CampoDataInicial
        Me.CampoDataFinal.SetFocus
    End If


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    JVitor
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 09/07/2019

    Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial"  Empty Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial"

    Mensagem  JVitor em Ter Jun 09, 2020 12:54 pm

    Boa tarde, Marcelo,

    Obrigado pelo retorno,

    A dica já me ajudou e ficou bacana. O que gostaria de verificar com vc agora é se conhece um metodo que, ao definir a Data Inicial, a seleção mude automaticamente para Caixa de "Data Final" e abrir automaticamente a "Selecionador de Data".

    Att.,

    JVitor
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3100
    Registrado : 21/04/2011

    Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial"  Empty Re: Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial"

    Mensagem  Marcelo David em Ter Jun 09, 2020 11:28 pm

    Ah, entendi.

    Vamos lá...

    Evento após atualizar do campo data inicial:

    Me.CampoDataFinal.SetFocus
    DoCmd.RunCommand acCmdShowDatePicker
















    Me.CampoDataInicial
    Me.CampoDataFinal = DateAdd("m", 1, Me.CampoDataInicial)
    Me.CampoDataFinal.SetFocus


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

      Data/hora atual: Dom Jul 05, 2020 3:07 pm