ACCESS campo vuoto messaggio errore

Question

Buona domenica a tutti.

Maschera di immissione dati che alimenta l'omonima tabella con i seguenti campi: ID_elenco clienti, ID_adempimento, giorno, mese, anno, importo, data.

Il giorno e il mese sono implementati con l'aggiornamento dell'adempimento con il comando che segue, l'anno ha valore predefinito "Year(now)"; non tutti gli adempimenti hanno però un mese fisso di scadenza , per cui:

Private Sub ID_Adempimenti_AfterUpdate()

Me.Giorno = Me![id_adempimenti].Column(2)

Me.Mese = Me![id_adempimenti].Column(3)

If (IsNull(Me.Mese)) Then

Me.Mese = Month(Now)

Else: Me.Mese = (Me![id_adempimenti].Column(3))

End If

End Sub

La data è implementata con l'aggiornamento dell'importo con il seguente comando:

Private Sub Importo_AfterUpdate()

Me.Data = DateSerial([Anno], [Mese], [Giorno])

End Sub

Può darsi che l'operatore dimentichi in qualche modo uno dei tre elementi per la costruzione della "data" (che è fondamentale): vorrei un messaggio di errore in uscita dalla maschera che:

1. segnali che il campo data è vuoto;
2. non permetta all'operatore di uscire dalla maschera stessa.

Grazie

Andrea

Answer 1

Ciao Andrea,

puoi semplicemente mettere il vincolo "Richiesto = sì" per il campo data, in questo modo non sarà possibile memorizzare il record senza valorizzare il campo data.

leggi attentamente questo articolo: Rendere obbligatorio un valore in un campo

Ciao

Giorgio Rancati