[access Vba]

[ocux]

Ciao a tutti.

Sto provando a sostituire un messaggio di errore standard di Access con uno personalizzato...

L'errore e' quello di campo obbligatorio richiesto.

In sostanza ho una form con alcuni campi. Alcuni di questi sono obbligatori. Ho bisogno che se per caso uno di questi non venga compilato, si visualizzi un messaggio di errore personalizzato.

Ho provato a mettere la routine che segue su tutti gli eventi del form che potevano riguardare l'evento, ma non funziona:

On Error GoTo ErrSub

Exit Sub

ErrSub:
    MsgBox Err.Number

Questa mi serve per reperire il codice di errore e filtrare poi dagli altri in base ad un if o ad un case select...

Su quale evento devo posizionarla?

Qualcuno ha dei suggerimenti?

Grazie per l'aiuto.

[nicola75ss]

Devi associare la routine all'evento prima di aggiornare del form.

Ti posto un esempio banale per darti un'idea.

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strErrore as String
Cancel = True
strErrore = ""
If IsNull(Me!nome) Then
    strErrore = "Nome obbligatorio" & vbCrLf
End If
If IsNull(Me!cognome) Then
    strErrore = strErrore & "Cognome obbligatorio" & vbCrLf
End If
If Len(strErrore) = 0 Then
    Cancel = False
Else
    MsgBox strErrore
End If
End Sub

[ocux]

Ciao.

Ti ringrazio per le indicazioni!

Il tuo suggerimento risolve il problema... Avevo pensato ad una soluzione del genere, ma poi mi sono concentrato sul discorso dei codici di errore e non ne venivo + fuori

Grazie 1000