عمل Alert Log File

اقتباس

اريد عمل alert log file لمشروع معين حتى يتم تسجيل اي خطأ من المستخدم داخل هذا الملف ونعرفت ماهو الخطأ

تتم من خلال إستخدام الإستثنائات !!!

مثال :

Private Sub Command1_Click()
On Error GoTo ExitError
	Cn.Execute "SQL"
	Exit Sub
ExitError:
	Open App.Path & "\Error.log" For Append As #1
	Print#1,strUserName,Date,Time,"Command1","Click"
	Close #1
End Sub

وهكذا

شكراً

لو اعتمدت على استخدام On Error GoTo سيتم التوقف عند أول خطأ وتجاهل باقي الاوامر

أما لو أستخدمت On Error Resume Next سيتم تتبع الاخطأ حسب كل سطر تتوقع منه الخطأ او وضعته تحت المراقبه وارسال رقم الخطأ ووصفه لتسجيله في اجراء فرعي يقوم بعملية بناء ملف الاخطأ الصادره من البرنامج .

وكمثال على ذلك :

Private Sub Command1_Click()
Dim i As Integer

On Error Resume Next

i = 1000000

If Err.Number <> 0 Then InsertErrorDesc

i = "VB6"

If Err.Number <> 0 Then InsertErrorDesc

End Sub


Public Sub InsertErrorDesc()
Dim FileOpn As Integer

FileOpn = FreeFile

Open App.Path & "\ErrorS.log" For Append As FileOpn
   Print #FileOpn, Now & " Error: " & Err.Number & " " & Err.Description
Close FileOpn
End Sub

ستجد محتويات ملف : ErrorS.log

20/03/2008 11:05:51 م Error: 6 Overflow
20/03/2008 11:05:51 م Error: 13 Type mismatch

غالبا تتم عمليات متابعة الاخطأ في الحالات التي يكون برنامجك تعتمد اوامره على نتائج برامج خارجيه يتم تنفيذها بواسطة Shell .

اقتباس

لو اعتمدت على استخدام On Error GoTo سيتم التوقف عند أول خطأ وتجاهل باقي الاوامر

أما لو أستخدمت On Error Resume Next سيتم تتبع الاخطأ حسب كل سطر تتوقع منه الخطأ او وضعته تحت المراقبه وارسال رقم الخطأ ووصفه لتسجيله في اجراء فرعي يقوم بعملية بناء ملف الاخطأ الصادره من البرنامج .

كلام صحيح أخي ، الإستثناء On Error Resume Next إستثناء ممتاز ولكن كل شيء له إستخداماته ( أليس كذلك ) !!!

شكراً