log file

[sohrab o]

سلام
دوستان چطوری میشه اسم رویدادی که الان خطا داده رو پیدا کرد ؟
یه جور دیگه میگم
می خوام یه برنامه بنویسم که در صورتی که هر قسمت از نرم افزار خطا داد داخل یک 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

[sohrab o]

حالا اگه با دقت نگاه کنید می بینید که مجبور شدم اسم sub رو خودم بدم اما واسه فرم نوشتم me.name
چطوری می شه اسم sub رو داشته باشیم

[Payam Moradi]

حالا اگه با دقت نگاه کنید می بینید که مجبور شدم اسم sub رو خودم بدم اما واسه فرم نوشتم me.name
چطوری می شه اسم sub رو داشته باشیم

اگه بخوای نکات ریزتری داشته باشی باید زحمت بیشتری هم بکشی.
تنها راهش نوشتن یک Add-in هست که با کلیک بر یک منو خودش یک دستگیر خطا با کدهای لازم و اسم تابع ایجاد کنه. که فکر نمیکنم در این اینجا بگنجه. مگه کسی آماده داشته باشه.
البته من قبلا یک نمونه داشتم. اگه پیدا کردم امروز برات میذارم.:چشمک: