BOM DIA PESSOAL!!! Tenho um formulário que cadastra turmas de cursos. Nesse formulário possui dois campos: data_inicio e data_termino, quero saber um código que ao clicar em salvar turma o campo data_inicio apenas aceite datas acima da data atual do sistema e datas abaixo do campo data_termino, e para o campo data_termino, apenas aceitar datas acima do campo data_inicio. Acho que eu fui claro, desde já agradeço!
2 participantes
[Resolvido]Validar campo data de início e término
dadokeys90- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 84
Registrado : 23/08/2010
- Mensagem nº1
Validar campo data de início e término
dadokeys90- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 84
Registrado : 23/08/2010
se tiver faltando algum dado, estou a disposição!!!
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
On Error Resume Next
Dim Msg As String
If IsNull(DataInicial) Or IsNull(DataTérmino) Then
Msg = "Digite uma data válida nos campos" & vbCrLf _
& "Data de Início e Data Término."
ElseIf DataInicial.Value > DataInicial.Value Then
Msg = "A Data Término deve ser posterior" _
& vbCrLf & "à Data de Início."
Else
Exit Sub
End If
Dim Msg As String
If IsNull(DataInicial) Or IsNull(DataTérmino) Then
Msg = "Digite uma data válida nos campos" & vbCrLf _
& "Data de Início e Data Término."
ElseIf DataInicial.Value > DataInicial.Value Then
Msg = "A Data Término deve ser posterior" _
& vbCrLf & "à Data de Início."
Else
Exit Sub
End If
dadokeys90- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 84
Registrado : 23/08/2010
Obrigado amigo vieira, estava debaixo do meu nariz e não observei. Só faltou a referência à data atual, mas isso eu fiz. Resolvido!
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Valeu amigo e obrigado pelo retorno, o fórum agradece
» [Resolvido]Criar Form para puxar relatório digitando Data Inicio / Data Fim
» [Resolvido]Código para Parâmetro de Data de Início e Data de Término
» [Resolvido]Repetir a última Data Fim no próximo registro, no campo Data Início
» [Resolvido]Forms com campo data início e fim para retornar um relatório por período
» [Resolvido]Aplicar fitro "entre data Inicio e data Final" em vba
» [Resolvido]Código para Parâmetro de Data de Início e Data de Término
» [Resolvido]Repetir a última Data Fim no próximo registro, no campo Data Início
» [Resolvido]Forms com campo data início e fim para retornar um relatório por período
» [Resolvido]Aplicar fitro "entre data Inicio e data Final" em vba