[Resolvido]Correção automática de datas

olá,

estou desenvolvendo um código para preencher automaticamente a data em um campo do formulário. Exemplo: em um campo tipo data eu digito o número 10 e tiro o foco do campo, o código irá completar o dado informado com o mês e o ano atuais.

No programa oficial da nossa empresa ele faz isso e acho muito útil por economia de tempo.

O problema que encontro está na regra de validação, como o campo é vinculado e na tabela está como data, não consigo fazer as alterações sem que apareçam mensagens de erro.

Publico um arquivo simples, só com o exemplo. É abrir o formulário e digitar um número qualquer no campo apdata e dar enter.

Utilizando o formulário desvinculado seria fácil, mas gostaria de saber se há a possibilidade em um form vinculado (para não precisar rever todo o programa)

Fico grato se alguém me ajudar.

Boas...

Tente algo parecido com isso..

Código:


Private Sub Form_Error(DataErr As Integer, Response As Integer)
On Error Resume Next ' acrescentado
Dim temporario As Date
If DataErr = 2113 Then
'MsgBox "Os dados inseridos para esse campo estão incorretos. Por favor, corriga.", vbInformation, "Dados incorretos"
Response = acDataErrContinue
temporario = FormatDateTime(calculodata(Screen.ActiveControl.Text), vbShortDate)
Screen.ActiveControl.Text = temporario
ElseIf DataErr = 2115 Then
Response = acDataErrContinue
Exit Sub ' acrescentado
End If
End Sub

Perfeito,

coisas simples que fazem a diferença, muito obrigado.

Logo disponibilizo o arquivo do módulo para hora também.

Boas....
O fórum agradece o retorno.
Abraços.

Arquivo corrigido e com o módulo para horas também.

obrigado.