fisalll قام بنشر يناير 11, 2004 قام بنشر يناير 11, 2004 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته،، لدي كود يرسل قاعدة بيانات للقرص المرن .. كيف يمكن أن أضمن هذا الكود رسائل مثل ( اذا كان لايوجد قرص مرن في السواقة ) ( أو أنه تالف أو حجم البيانات أكبر من مساحة القرص المرن ) اريد مساعدتي في هذا الكود ولكم الشكر ... أخوكم فيصل :( 1
أبو شذا قام بنشر يناير 12, 2004 قام بنشر يناير 12, 2004 سؤال مهم أتمنى من الأخوة التفاعل والرد .. ودمتم جميعاً
fisalll قام بنشر يناير 12, 2004 الكاتب قام بنشر يناير 12, 2004 السلام عليكم ورحمة الله وبركاته،، بسم الله الرحمن الرحيم معليش ممكن الإخوان مافهموا السؤال لأن الكود مش مرفق عموما هذا هو الكود كما تشاهدون مهمته ارسال قاعدة بيانات للقرص المرن ...... لكن ماذا لو كان هذا القرص تالف - أو غير موجود - أو كمية البيانات اكبر من مساحة القرص ...... كيف يمكنني ارسال مسجات للمستخدم بذلك .... من يساعدني في تحسين أداء هذا الكود له الأجر من رب العباد ودمتم سالمين 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
محمد طاهر عرفه قام بنشر يناير 13, 2004 قام بنشر يناير 13, 2004 التعامل مع مثل هذه الحالات يكون بالتعرف علي رقم الخطأ و التعامل بناء علي هذا الرقم و التعامل مع الاخطاء عموما يكون بكتابة كود فى بداية الروتين يوجه البرنامج الي مكان معرف فى نهاية الكود متخطيا كل الخطوات 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 قام بنشر يناير 13, 2004 الكاتب قام بنشر يناير 13, 2004 السلام عليكم ورحمة الله وبركاته،، بسم الله الرحمن الرحيم شكرا أستاذنا الكريم محمد طاهر ...... سأجرب ماتفضلت به ... اشكر الاخوان أبو شذا وأبو يعلى .... تقبلوا التحية :(
الردود الموصى بها