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

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.

Um abraço à todos,

Att.,

JVitor

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

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

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

Muito obrigado Marcelo.

Ficou Show de Bola

Grato pelo retorno!