[Resolvido]Validação de Datas

Bom dia,

Tive que fazer uma validação para datas num formulário através do VBA, obtive o que queria, porém como estou desenvolvendo meus conhecimentos sei que pode ser melhor. Deixo aqui o banco para vossa análise e sugestões.

Escopo:As datas tem que ser validadas dessa forma:
Os lançamentos de serviços de um determinado mês tem um prazo que avança alguns dias dentro do outro, ex, setembro: 01/09/2012 - 02/10/2012
Logo nesse mês não posso lançar nada de outubro e a partir do dia 04/09/2012 mais nada de agosto.

Obrigado a todos

Boa tarde Leandro,

Fiz alguns testes aqui com este código abaixo para validação de datas. Embora não entendido bem o que você quer. Faça as modificações que forem necessárias, caso tenha ajudado de alguma maneira.


Private Sub txtData_AfterUpdate()
Dim intAno As Integer 'Ano atual
Dim strMes As Integer 'Mês atual
Dim strComecoMes As Date 'Primeiro dia de lançamento desse mês
Dim strFimMes As Date 'Último dia de lanaçmento desse mês
Dim strAtual As Date 'Data atual
Dim strMesExec As String 'Mês da data de execução do serviço
Dim strTotalDias As Long 'Total de dias para para o serviço em lançamento
Dim strInicioAS As Date 'Data de início do lançamento atual
Dim strFimAS As Date 'Data fim do lançamento atual


intAno = Year(Now()) 'Ano atual
strMes = Month(Now()) 'Mês atual
strComecoMes = DLookup("[ComecoMes]", "TabPeriodos", "[MesCorrente]=" & strMes) 'Primeiro dia de lançamento desse mês
strFimMes = DLookup("[FimMes]", "TabPeriodos", "[MesCorrente]=" & strMes) 'Último dia de lanaçmento desse mês
strAtual = CDate(Format(Date, "dd/mm/yyyy")) 'Data atual
strMesExec = MonthName(Month(Date), True) 'Mês da data de execução do serviço
'strTotalDias = DLookup("[TotalDias]", "TabPeriodos", "[MesCorrente]=" & strMesExec) 'Total de dias para o serviço em lançamento
strInicioAS = DateSerial(Year(Date), Month(Date), 1) 'Data de início do lançamento atual
strFimAS = DateSerial(Year(Date), Month(Date) + 1, 0) 'Data fim do lançamento atual

If Not IsNull(txtData) Then
If strAtual < strInicioAS Then
MsgBox ("Data de lançamento referente ao próximo mês!" & vbCrLf & "Verifique a data por favor."), vbCritical, "Período não iniciado"
DoCmd.CancelEvent
Else
If strAtual > strFimAS Then
MsgBox ("Prazo expirado para lançamento!" & vbCrLf & "Comunique a coordenação" & vbCrLf & "Redate os documentos por favor."), vbCritical, "Prazo expirado"
DoCmd.CancelEvent
Else
MsgBox "Dentro do Prazo !", vbInformation, "Validação de Data"
End If
End If
Else
MsgBox ("Campo obrigatório!"), vbCritical, "Validação de Datas"
End If
End Sub

Meu caro, obrigado pelo interesse, porém não funcionou.
No tópico expliquei que as datas não são simplesmente o primeiro e último dia do mês, o fim do prazo para lançamento por exemplo desse mês é no dia 02/10/2012. A análise que meu código faz engloba isso, porém como não sou nenhum expert em VBA pedi a análise dos forumeiros pois sei que os camaradas como você manjam do assunto.

Obrigado

Olá Leandro,

Foi exatamente o que eu disse, não ter entendido nada do que você quer. Porém, suspeito que você tenha que trabalhar com a função DateSerial. Veja alguns links que abordam como trabalhar com esta função.

(1)http://accessdoprogramador.forumeiros.com/t27-trabalhar-com-datas-no-access

(2)http://www.macoratti.net/vbdatas1.htm

(3)http://www.macoratti.net/vb_datas.htm

Beleza, muito obrigado Good Guy, vou fechar o tópico, mas assim como faço com outros se eu tiver outra solução, atualizarei para fins de acervo.

Abraço