Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
SQL Server 2000/2005/2008, Express, Access, MySQL, Oracle
VB su access 97
giovedì 04 ottobre 2007 - 14.23
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
emmanuele80
Profilo
| Newbie
8
messaggi | Data Invio:
gio 4 ott 2007 - 14:23
Salve a tutti.
Ho un problemino: esiste la possibilità di inserire in una variabile il nome della Subroutine?
Es:
sub prova()
dim a as string
a = NOME SUB
exit sub
SSUPERPIPPO
Profilo
| Guru
1.095
messaggi | Data Invio:
gio 4 ott 2007 - 15:08
Spiegati meglio... cosa devi fare?..
http://blogs.dotnethell.it/alebadalin
emmanuele80
Profilo
| Newbie
8
messaggi | Data Invio:
gio 4 ott 2007 - 15:18
Allora: in un codice in caso di errore vorrei che mi venisse scritto oltre il tipo di errore e la data, anche a che punto del programma si sia verificato ed il tutto metterlo in una tabella consultabile di seguito.
Cmq, penso che il codice parli meglio!!!
sub prova()
on error goto update_error
(...)
Update_Error:
Set TabError = db.OpenRecordset("ERRORI") 'tabella vuota
TabError.AddNew 'crea un nuovo recordo
TabError.Update 'fissa la creazione del nuovo record
TabError.MoveLast 'si sposta all'ultimo record
str = err.DESCRIPTION 'in una var viene registrato il tipo d'errore
With TabError
.Edit
!note = str 'il campo NOTE conterra` l'errore
!DATA_ERR = Now() 'il campo DATA_ERR conterra` la data
!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
Spero di essere piu` chiaro, grazie cmq del tempo che mi stai dedicando
SSUPERPIPPO
Profilo
| Guru
1.095
messaggi | Data Invio:
gio 4 ott 2007 - 17:01
>Allora: in un codice in caso di errore vorrei che mi venisse scritto oltre il tipo di errore e la data, anche a che punto del programma >si sia verificato ed il tutto metterlo in una tabella consultabile di seguito.
>Cmq, penso che il codice parli meglio!!!
>sub prova()
>on error goto update_error
Ma update_err non si trova all'interno della tua subroutine?
in tal caso basta che assegni alla tua variabile il nome dalle sub manualmente
!Place="PROVA"
...
diversamente fammi capire meglio...
>(...)
>Update_Error:
>Set TabError = db.OpenRecordset("ERRORI") 'tabella vuota
>TabError.AddNew 'crea un nuovo recordo
>TabError.Update 'fissa la creazione del nuovo record
>TabError.MoveLast 'si sposta all'ultimo record
>str = err.DESCRIPTION 'in una var viene registrato il tipo d'errore
>With TabError
>.Edit
>!note = str 'il campo NOTE conterra` l'errore
>!DATA_ERR = Now() 'il campo DATA_ERR conterra` la data
>!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
>Spero di essere piu` chiaro, grazie cmq del tempo che mi stai dedicando
http://blogs.dotnethell.it/alebadalin
Torna su
Stanze Forum
Elenco Threads
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?
Dopo esserti registrato potrai chiedere
aiuto sul nostro
Forum
oppure aiutare gli altri
Consulta le
Stanze
disponibili.
Registrati ora !