PDA

Visualizza versione completa : Problema Access


crispo5
31-05-2008, 10.58.50
Buongiorno a tutti mi sono appane registrato ed ho un problema di questo tipo:
ho una maschera all'interno della quale devo inserire una data (data prossimo contattoTextBox) e deve essere obbligatoriamente inserita, deve essere da oggi in poi fino ad un massimo di 3 mesi da oggi dunque oggi il 31 maggio non deve essere oltre il 31 agosto.
questo controllo lo devo inserire sul tasto chiudi da me generato nella mashera come posso fare?
Grazie :fool:

miciomao
03-06-2008, 11.16.56
supponiamo che il campo della data si chiami CampoData
e quello di chiusura maschera Comando0

sull'evento click del Comando0 inserirai

Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
Dim Confronto As Date
If Len(Nz(Trim(Me.CampoData))) < 1 Then
MsgBox "ATTENZIONE: Il campo data vuoto, correggere l'errore!"
Exit Sub
End If
If Not (IsDate(Me.CampoData)) Then
MsgBox "ATTENZIONE: La data inserita non una data valida, correggere l'errore!"
End If
Confronto = DateAdd("m", 3, Date)
If Me.CampoData > Confronto Then
MsgBox "ATTENZIONE: La data inserita ha un lasso di tempo superiore ai 3 mesi, correggere la data!"
End If
If Me.CampoData < Date Then
MsgBox "ATTENZIONE: La data inserita antecedente alla data odierna, correggere la data!"
End If
DoCmd Quit

Exit_Comando0_Click:
Exit Sub


Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click

End Sub