Access - VBA - On Error GoTo

[hgiorgio]

Chi mi dice dove sbaglio?
qui sotto parte della formula che non funziona e in ROSSO
la riga che mi da errore. Che sbaglio?
in un'altro DB invece mi funziona.
-----------------------------------------------------------
Private Sub CodiceProdottoPost_AfterUpdate()
On Error GoTo Err_CodiceProdottoPost_AfterUpdate
Dim strFiltro As String
strFiltro = "IDCodiceProdottoTabProd= " & Me!CodiceProdottoPost

Me![LumenPost] = DLookup("LumenTabProd", "TAB Prodotti", strFiltro)
Me!......
Me!......
-----------------------------------------------------------------
Grazie.
Giorgio

[nman]

Quella istruzione dice a VBA di andare in caso di un qualunque errore
alla riga
Err_CodiceProdottoPost_AfterUpdate:
contrassegnata con il ":" finale e si trova solitamente in fondo alla sub.


tu hai quella riga finale ??
prova a postare tutta la sub

Function GestioneErroriEsempio()

On Error GoTo Err_CodiceProdottoPost_AfterUpdate 

        DoCmd.CancelEvent
        DoCmd.Beep
        DoCmd.DeleteObject acTable, "wmhrtldfgww"

Exxxit: 
    Exit Function

Err_CodiceProdottoPost_AfterUpdate: 
    MsgBox ("Errore n°  " & Err.Number & vbNewLine & Err.Description)
    Resume Exxxit 

End Function

.

[hgiorgio]

Hai ragione! Mi ero perso il pezzo relativo all'errore in fondo alla pagina e non me ne ero accorto.

Grazie per l'aiuto.
G.