Message.Error("Errore " & Error.Code & " a " & Error.Where & ": " & Error.Text)Esiste l'oggetto Error che contiene alcune proprietà, tra cui Error.Text che contiene il messaggio dell'ultimo errore e Error.Where che contiene il punto in cui si è verificato oltre ad Error.Code che contiene il codice.
Potresti provare con:Codice: gambas [Seleziona]Message.Error("Errore " & Error.Code & " a " & Error.Where & ": " & Error.Text)
CATCH
Message.Error("Codice " & Error.Code & " - Form/modulo " & Error.Where & " - Errore " & Error.Text)
m1.ScriviLog("Codice " & Error.Code & " - Form/modulo " & Error.Where & " - Errore " & Error.Text)
Codice 0 - Form/modulo - Errore
CATCH
m1.ScriviLog("Codice " & Error.Code & " - Form/modulo " & Error.Where & " - Errore " & Error.Text)
Message.Error("Codice " & Error.Code & " - Form/modulo " & Error.Where & " - Errore " & Error.Text)
CATCH
m1.MyErr = ("Codice " & Error.Code & " - Form/modulo " & Error.Where & " - Errore " & Error.Text)
Message.Error(m1.MyErr)
m1.ScriviLog(m1.MyErr)
Mica ho capito cosa intendi per "personalizzare"...
Comunque, attenzione a come metti le istruzioni CATCH, se si annidano su più funzioni/metodi, tipo matrioska, potresti avere problemi di intercettabilità dei bug e di lettura generale del codice.
In genere, i metodi o funzioni di basso livello, non contengono istruzioni di cattura degli errori, che viene demandata alle funzioni/metodi di livello superiore specializzato.