[Resolvido]Data final automatico

Boa tarde,

Preciso de uma pequena ajuda, tenho dois campo não aclopado no meu formulario de consulta com o nome de Data Inicial e Data Final. no campo data inicial estou usando a senguinte função

Código:

="01" & "/" & Mês(Data()) & "/" & Ano(Data())

, esse está funcionando perfeitamente sempre fica a data inicial do mês, o meu problema e com o campo de data final porque o mês varia de 28, 30 e 31, qual a função que eu utilizo para ficar a data do ultimo dia do mês automaticamente?

Messias,

Mês atual Pelo VBA:

Código:

DataInicial = DateSerial(Year(Date), Month(Date), 1)
DataFinal = DateSerial(Year(Date), Month(Date) + 1, 0)

Amigos

O código apresentado pelos dois, se entendi

direito, se refere ao inicio e final do mês, estou certo?

Como será usado em consulta não seria melhor usar

somente o mês() como critério, evitando assim a utilização

desses campos/controles ?


[ ]'s

Noobezinho,

Se entendi bem, ele quer fazer o filtro na consulta pelos controles do formulário. Se for isso, ele está correto pois este tipo de técnica dá mais flexibilidade, ou seja, posso inserir nos controles o período que eu desejar.

Acredito que não , se fosse por esse caminho,

não pedira o "final automático".


Aguardemos ele.

Amigos boa tarde,

Obrigado por esta mim ajudando, eu testei o código ele funcionou perfeitamente no evento, só que tem um problema, se eu precisar usar uma data diferente ele não permite alterar volta a mesma data final, O meu banco de dados é de agendamento eu faço uma programação do mês completo.

Eu queria um código para usar no Valor Padrão do Campo DataFinaldo Formulario. o que eu fiz na DataInicial esta funcionando sem problemas.

Amigo,

Insira o código no evento ao carregar de seu formulário. Depois você poderá alterar normalmente para o período desejado ...

Com um pouco de conhecimento e criatividade podemos criar bons filtros. Veja: https://drive.google.com/file/d/0Bz7vB8vsbTiETmVwVWsxeW5OV0E/view?usp=sharing

Olá a todos,
Messias, veja se ajuda:

Código:

'AHTEIXEIRA - 2015 MaximoAccess
'UltimoDia- converter uma xData para o ultimo dia do mes dessa xData
Function xDataUD(xData)
    xDataUD = CDate("01-" & Month(DateAdd("m", 1, xData)) & "-" & Year(DateAdd("m", 1, xData))) - 1
End Function

'AHTEIXEIRA - 2015 MaximoAccess
'PrimeiroDia - converter uma xData para o 1º dia do mes dessa xData
Function xDataPD(xData)
    xDataPD = CDate("01-" & Month(xData) & "-" & Year(xData))
End Function

Abraço

Amigo obrigado funcionou, quando eu coloquei no evento ao carregar do formulário eu estava usando no evento do campo, obrigado a todos pela atenção.

ahteixeira, eu vou testa esse código também que você passou.