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 !