bonjour
j'ais trouver un bout de code sur le net
qui permet de gerrer les erreurs le code s'execute mais n'inscrit pas les
donnees dans la table
Une explication ?
Merci pour votre aide
le code
Public Sub SubErrMsg(NomFrm As String, NomProc As String)
Dim rstErrorLog As Recordset, strMsg As String
strMsg = "Une erreur est survenue, veuillez notifier le responsable
informatique"
On Error GoTo Err_SubErrMsg
Set wrkCurrent = DBEngine(0)
Set Bdd = CurrentDb(0)
Set rstErrorLog = Bdd.OpenRecordset("tblJournalErreurs")
rstErrorLog.AddNew
rstErrorLog![CodeErreur] = Err.Number
rstErrorLog![DateErreur] = Now
rstErrorLog![DescriptionErreur] = Err.Description
rstErrorLog![NomUsager] = CurrentUser()
rstErrorLog![NomFormulaire] = NomFrm
rstErrorLog![NomProcédure] = NomProc
rstErrorLog.Update
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Lira
Je ne suis pas familié du modèle RDO, cependant une erreur se produit au niveau de l'instruction: Set rstErrorLog = Bdd.OpenRecordset("tblJournalErrers")
suite à cette erreur, le programme rentre dans la gestion des erreurs et le code chargé de faire l'insert est ignoré.
-----Message d'origine----- bonjour j'ais trouver un bout de code sur le net qui permet de gerrer les erreurs le code s'execute mais n'inscrit pas les
donnees dans la table Une explication ?
Merci pour votre aide
le code
Public Sub SubErrMsg(NomFrm As String, NomProc As String)
Dim rstErrorLog As Recordset, strMsg As String strMsg = "Une erreur est survenue, veuillez notifier le responsable
informatique" On Error GoTo Err_SubErrMsg
Set wrkCurrent = DBEngine(0) Set Bdd = CurrentDb(0) Set rstErrorLog = Bdd.OpenRecordset ("tblJournalErreurs")
Je ne suis pas familié du modèle RDO, cependant une erreur
se produit au niveau de l'instruction:
Set rstErrorLog = Bdd.OpenRecordset("tblJournalErrers")
suite à cette erreur, le programme rentre dans la gestion
des erreurs et le code chargé de faire l'insert est ignoré.
-----Message d'origine-----
bonjour
j'ais trouver un bout de code sur le net
qui permet de gerrer les erreurs le code s'execute mais
n'inscrit pas les
donnees dans la table
Une explication ?
Merci pour votre aide
le code
Public Sub SubErrMsg(NomFrm As String, NomProc As String)
Dim rstErrorLog As Recordset, strMsg As String
strMsg = "Une erreur est survenue, veuillez notifier
le responsable
informatique"
On Error GoTo Err_SubErrMsg
Set wrkCurrent = DBEngine(0)
Set Bdd = CurrentDb(0)
Set rstErrorLog = Bdd.OpenRecordset
("tblJournalErreurs")
Je ne suis pas familié du modèle RDO, cependant une erreur se produit au niveau de l'instruction: Set rstErrorLog = Bdd.OpenRecordset("tblJournalErrers")
suite à cette erreur, le programme rentre dans la gestion des erreurs et le code chargé de faire l'insert est ignoré.
-----Message d'origine----- bonjour j'ais trouver un bout de code sur le net qui permet de gerrer les erreurs le code s'execute mais n'inscrit pas les
donnees dans la table Une explication ?
Merci pour votre aide
le code
Public Sub SubErrMsg(NomFrm As String, NomProc As String)
Dim rstErrorLog As Recordset, strMsg As String strMsg = "Une erreur est survenue, veuillez notifier le responsable
informatique" On Error GoTo Err_SubErrMsg
Set wrkCurrent = DBEngine(0) Set Bdd = CurrentDb(0) Set rstErrorLog = Bdd.OpenRecordset ("tblJournalErreurs")
