كود الإعلام أنه لايوجد قرص مرن أو أنه ممتلى

[fisalll]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته،،
لدي كود يرسل قاعدة بيانات للقرص المرن .. كيف يمكن أن أضمن هذا الكود رسائل مثل ( اذا كان لايوجد قرص مرن في السواقة ) ( أو أنه تالف أو حجم البيانات أكبر من مساحة القرص المرن ) اريد مساعدتي في هذا الكود ولكم الشكر ... أخوكم فيصل :(

[أبو شذا]

سؤال مهم أتمنى من الأخوة التفاعل والرد ..

ودمتم جميعاً

[fisalll]

السلام عليكم ورحمة الله وبركاته،،

بسم الله الرحمن الرحيم

معليش ممكن الإخوان مافهموا السؤال لأن الكود مش مرفق عموما هذا هو الكود كما تشاهدون مهمته ارسال قاعدة بيانات للقرص المرن ...... لكن ماذا لو كان هذا القرص تالف - أو غير موجود - أو كمية البيانات اكبر من مساحة القرص ...... كيف يمكنني ارسال مسجات للمستخدم بذلك .... من يساعدني في تحسين أداء هذا الكود له الأجر من رب العباد ودمتم سالمين

Private Sub أمر144_Click()
On Error GoTo Err_أمر26_Click
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
 MsgBox "أنتظر قليلا بينما يتم النسخ"
 fs.CopyFile "C:\n22\2005.mdb", "A:\", True
MsgBox "تم نقل البيانات بنجاح "
Err_أمر26_Click:
    Exit Sub

End Sub

[حاكم]

أضم صوتي معك أخي فيصل

[محمد طاهر عرفه]

التعامل مع مثل هذه الحالات يكون بالتعرف علي رقم الخطأ و التعامل بناء علي هذا الرقم

و التعامل مع الاخطاء عموما يكون بكتابة كود فى بداية الروتين يوجه البرنامج الي مكان معرف فى نهاية الكود متخطيا كل الخطوات

On Error GoTo errsub

فى هذا المكان يمكننا اظهار رسالة برقم أو وصف الخطأ و للتعرف عليه عند حدوثه

errsub:

و نلاحظ ان العلامة المرجعية هي نفس الاسم الذي اخترناه متبوعا ب :

و هذه اولي وسائل التعرف علي الخطأ

و الاخري هنا

التعرف علي جميع الأخطاء و أرقامها

http://www.officena.net/ib/index.php?showt...=370&hl=الأخطاء

و بناء علي معرفة رقم الخطأ يمكنك التصرف أو اظهار الرسالة المناسبة

MsgBox Str(Err.Number) + Err.Description

Resume Next

مثال عام

 On Error GoTo errsub 'Resume Next

 errsub:

 If Err.Number = 3204 Then
    MsgBox " A database with the same name exists in the same location ! ", 64, "Duplicate Backup Name"



 ElseIf Err.Number = 3422 Then
    m = " The destination spreadsheet is open !" + Chr(10) + Chr(13) + "Please close it"
    MsgBox m, 16, "Missing Data Table "

 Else

 MsgBox Str(Err.Number) + Err.Description
    Resume Next

[fisalll]

السلام عليكم ورحمة الله وبركاته،،

بسم الله الرحمن الرحيم

شكرا أستاذنا الكريم محمد طاهر ...... سأجرب ماتفضلت به ... اشكر الاخوان أبو شذا وأبو يعلى .... تقبلوا التحية :(

[حاكم]

شكراً أستاذي محمد . الفكرة وصلت ويعطيك العافية