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]Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial"

    avatar
    JVitor
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JVitor 4/6/2020, 16:19

    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 : Respeito às Regras 100%

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

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

    Mensagem  Marcelo David 9/6/2020, 07:00

    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


    .................................................................................
    [Resolvido]Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial" Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial" Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial" Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial" Marcel11
    avatar
    JVitor
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]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 9/6/2020, 19:54

    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 : Respeito às Regras 100%

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

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

    Mensagem  Marcelo David 10/6/2020, 06:28

    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


    .................................................................................
    [Resolvido]Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial" Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial" Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial" Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial" Marcel11

    pcnet gosta desta mensagem

    avatar
    JVitor
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JVitor 21/7/2020, 15:14

    Muito obrigado Marcelo.

    Ficou Show de Bola cheers

    Marcelo David gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Marcelo David 21/7/2020, 15:22

    Grato pelo retorno!


    .................................................................................
    [Resolvido]Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial" Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial" Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial" Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Abrir a Caixa de Texto automaticamente de "Data Final" de acordo com o Mês Definido na Caixa "Data Inícial" Marcel11

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 20:45