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