backup & setup

[arshpisheh]

چند تا سوال: 1- میخوام به جای error های VB پیغام های خودم بیاد نمیدونم شماره error رو با کدوم properties استفاده کنم
2- طرز backup گیری و restore
3- طرز ساخت setup
هر کی میدونه زودتر کمکم کنه چون دیگه وقت ندارم
:افسرده:

[mortez maya]

برای این کار می تونی از دستور on error goto استفاده کنی:

On Error goto 0
operations'
0:MsgBox "Error # " & CStr(Err.Number) & " " & Err.Description


ضمنا در مورد backup گیری و اینها مطلب تو سایت هست یه سرچ بزن درباره setup سازی هم نرم افزارهای مختلفی هست که کار با اونها خیلی راحته یکیش همین wizard خود وی بی. موفق باشید./

[Neeloofar]

برای جواب سوال شماره 1 :

این کدها در تابع مورد نظر کپی کنید:



On Error GoTo ErrorHandle

'< محل کدهای تابع >'
'مثال
Dim m As Integer
' یک خطای سهوی مثلا تقسیم بر صفر
m = 8 / 0

Exit Sub ' Or Exit Function

ErrorHandle:
MsgBox "با عرض پوزش یک خطا رخ داد." & vbCrLf & " شماره خطا:" & Err.Number & vbCrLf & " متن خطا: " & Err.Description & vbCrLf & vbCrLf & " این اطلاعات را به مدیر برنامه ابلاغ تا اقدامات لازم در خصوص برطرف نمودن خطا انجام شود.", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading
'< حالا یکی از این چند گزینه جهت ادامه بعد از خطا >'
End 'جهت خروج از برنامه
Resume ' تلاش مجدد برای خواندن خطی که هم اکنون خطا دارد.
Resume Next 'خطی که خطا دارد نادیده گرفته شده و به خط بعدی مراجعه شود.


2- بک آپ از چی؟
3- تو سایت موارد زیادی هست. (عبارت Setup در قسمت جستجو وارد کن)