Sub LogError(errData As ErrObject, NomFrm As String, NomProc As String)
' Cette procédure consigne les erreurs dans un fichier texte. Elle est utilisée dans ce
' chapitre pour consigner des erreurs de synchronisation.
'
' L'argument errData est une variable qui fait référence à l'objet
' Err de Visual Basic pour Applications.
Dim intFileNum As Integer, CurPath As String
intFileNum = FreeFile(0)
CurPath = Application.CurrentProject.Path & "\"
Open CurPath & "ErrorLog.txt" For Append As #intFileNum
Write #intFileNum, Now
Write #intFileNum, "Erreur : " & errData.Number
Write #intFileNum, "Dans le formulaire : " & NomFrm & " - Procédure : " & NomProc
Write #intFileNum, errData.Description
Write #intFileNum,
Close #intFileNum
End Sub