sohrab o
جمعه 13 بهمن 1385, 13:36 عصر
سلام
دوستان چطوری میشه اسم رویدادی که الان خطا داده رو پیدا کرد ؟
یه جور دیگه میگم
می خوام یه برنامه بنویسم که در صورتی که هر قسمت از نرم افزار خطا داد داخل یک log فایل ذخیره کنه که نوشتم
Public Function Log(FormName As String, SubName As String, ErrNo As Long, ErrDes As String, StrUser As String)
Dim FF As Byte
FF = FreeFile
Open App.Path + "\Log-" & FormName & ".TxT" For Append As FF
Print #FF, "SubName:" & SubName & " ... " & "Date:" & Date & " ... " & "Time:" & Time & " ... " & "User:" & StrUser
Print #FF, "Error Number:" & ErrNo & " ... " & "Error Description:" & ErrDes
Print #FF, "-----------------------------------------------------------------------------------------------------------------------------" & vbCrLf
Close FF
End Function
Private Sub CmdWrite_Click()
On Error GoTo Errlog
Dim a As Integer
a = "dsgsfgdfG"
Exit Sub
Errlog:
Log Me.Name, "CmdWrite", Err.Number, Err.Description, "user"
End Sub
دوستان چطوری میشه اسم رویدادی که الان خطا داده رو پیدا کرد ؟
یه جور دیگه میگم
می خوام یه برنامه بنویسم که در صورتی که هر قسمت از نرم افزار خطا داد داخل یک log فایل ذخیره کنه که نوشتم
Public Function Log(FormName As String, SubName As String, ErrNo As Long, ErrDes As String, StrUser As String)
Dim FF As Byte
FF = FreeFile
Open App.Path + "\Log-" & FormName & ".TxT" For Append As FF
Print #FF, "SubName:" & SubName & " ... " & "Date:" & Date & " ... " & "Time:" & Time & " ... " & "User:" & StrUser
Print #FF, "Error Number:" & ErrNo & " ... " & "Error Description:" & ErrDes
Print #FF, "-----------------------------------------------------------------------------------------------------------------------------" & vbCrLf
Close FF
End Function
Private Sub CmdWrite_Click()
On Error GoTo Errlog
Dim a As Integer
a = "dsgsfgdfG"
Exit Sub
Errlog:
Log Me.Name, "CmdWrite", Err.Number, Err.Description, "user"
End Sub