[access] verificare formato data

[alexxxb]

In Access ho bisogno di una funzione che, all'uscita da un campo in formato data, mi verifichi che la data inserita sia formattata correttamente.
Ad esempio, mi verifichi che per errore non venga inserita come data 31/09/2010 in quanto settembre ha solo 30 giorni, magari restituendomi una msgbox di errore.

Come posso fare?
Thanks

[nicola75ss]

All'evento "su errore" del form associa questo codice:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const data_errata = 2113
    If DataErr = data_errata Then
       MsgBox "La data non è valida"
       Response = acDataErrContinue
    Else
       Response = acDataErrDisplay
    End If
End Sub

[alexxxb]

Originariamente inviato da nicola75ss
All'evento "su errore" del form associa questo codice:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const data_errata = 2113
    If DataErr = data_errata Then
       MsgBox "La data non è valida"
       Response = acDataErrContinue
    Else
       Response = acDataErrDisplay
    End If
End Sub

Grazie, ma su quale evento devo metterla?
Non riesco ad utilizzarla...

[nicola75ss]

Devi selezionare il form affinchè la finestra delle proprietà mostri quelle associate alla maschera stessa e poi associ il codice all'evento su errore del form.

[alexxxb]

Non avevo capito che era l'evento erroere della form e non del campo...

Però mi succede questo: se ad esempio come data inserisco 12/15/2010, invece che segnalarmi l'errore mi viene corretta in 15/12/2010 (mi inverte mese e giorno).
Il messaggio d'errore me lo da solo se non possono essere invertiti, tipo 15/34/2010.
C'è modo per segnalere l'errore mantenendo il mio formato che è gg/mm/aaaa, invece che fargli invertire giorno e mese nel caso in cui possano essere invertiti?

edit: anche se scrivo 31/09/2010 me lo converte in 03/09/2010 e io invece vorrei che segnalasse l'errore, perchè magari chi scrive non si accorge che il software ha corretto la data e finisce per editare dei dati sbagliati (queste date agiscono su una query)

[nicola75ss]

Hai ragione. Non avevo fatto caso a questo comportamento. Purtroppo access "ragiona" per conto suo su tante cose.
Peraltro la data 31/09/2010 a me (su office xp) non viene convertita erroneamente mentre con 12/15/2010 riscontro il tuo stesso problema.

Ho trovato questo interessante articolo

http://allenbrowne.com/ser-36.html

ma al momento non saprei cosa consigliarti.

[borgodiavalon]

Select Case Month(Me!TUO_CONTROLLO)
    Case Is = 1, 3, 5, 7, 8, 10, 12
	if Day(Me!TUO_CONTROLLO) > 31 then msgbox "il mese inserito ha 31 giorni, verifica valore"
    Case Is = 4, 6, 9, 11
        if Day(Me!TUO_CONTROLLO) > 31 then msgbox "il mese inserito ha 30 giorni, verifica valore"
    Case Is = 2
        If Year(Me!TUO_CONTROLLO) Mod 4 = 0 Then
            if Day(Me!TUO_CONTROLLO) > 29 then msgbox "nell'anno inserito febbraio è bisestile"
        Else
            if Day(Me!TUO_CONTROLLO) > 28 then msgbox "nell'anno inserito febbraio NON è bisestile
        End If
End Select

se comunque ti da lo stesso problema potresti provare ad usarla sul campo settando il formato non come data ma come testo normale (almeno nella maschera). giusto per provare.

[alexxxb]

Grazie
Su che evento lo metto?

[borgodiavalon]

sull'evento dopo aggiornamento del campo in questione.

[alexxxb]

Non mi funziona:
Se come formato del campo metto data in cifre, se sbaglio a scrivere mi da il messaggio d'errore di sistema (è stato immesso un valore non valido per il campo, ecc...), quindi non prendendo in considerazione le msgbox di errore dell'evento.
Se invece come formato del campo uso testo, dopo l'aggiornamento mi dice "Tipo non corrispondente". Penso perchè quando fa il controllo si aspetta delle date ed invece quello è un campo di testo.