Olimpo Informatico

[emmanuele80]

Salve a tutti. Ho necessità di salvare in una variabile il nome di una SUB per poi utilizzarla in un altra parte del codice.

In una parola vorrei fare questo:

sub prova()
on error goto update_error
(...)
Update_Error:
Set TabError = db.OpenRecordset("ERRORI") 'tabella vuota
TabError.AddNew 'crea un nuovo recordo
TabError.Update
TabError.MoveLast
str = err.DESCRIPTION 'in una var viene registrato il tipo d'err occorso
With TabError
.Edit
!note = str 'il campo NOTE conterra` l'errore
!DATA_ERR = Now() 'il campo DATA_ERR conterra` la data e ora
!Place = "" 'QUI VORREI INSERIRE CHE L'ERRORE E` RIFERITO ALLA SUB PROVA cosi posso andare a vedere che e` successo
.Update
End With
Resume Next
end sub

[freemind]

dato che la riga
!Place = "" 'QUI VORREI INSERIRE CHE L'ERRORE E` RIFERITO ALLA SUB PROVA cosi posso andare a vedere che e`

è all'interno del segmento di codice che scatta in caso di errore, non ti conviene semplicemente scrivere:
!Place="Prova"
?

Mi scuso se ho interpretato male il problema.

[emmanuele80]