أبو حنــــين

السلام عليكم لم تخبرني هل عمل معك الملف السابق او لا بالنسبة لملفات DBF يمكن عمل ذلك كالتالي : في حدث الفورم UserForm_Activate هناك سطر مكتوب كالتالي : .Filename = "*.xls" غيره بالسطر : .Filename = "*.DBF" ما قمت به انا هو تحويل ملفاتك الى الصيغة DBF و جربتها و عملت بطريقة حسنة

السلام عليكم اضافة لما قدمه اخي : حسين العصلوجي هذا طرح آخر للفكرة مخزن عطارة2.rar

السلام عليكم أخي عمر أبو صهيب كلام منطقي و معقول في شقه الأول و أكيد في شقه الثاني الشق الأول لوتصفحنا المنتدى لوجدنا المعادلات و الاكواد موجودة و بكم كبير من مبتدأ الى محترف و المشكلة انها كما ذكرت ليست بالترتيب الذي يسمح للمبتدأ بفهمها لان المعلومات مرتبة ترتيبا تصاعديا و اعتقد جازما انه من الصعب اعادة صياغتها و ترتيبها الشق الثاني كون اعضاء المنتدى اسرة واحدة فهذا كلام لا نقاش فيه و الدليل هو تنافس الاعضاء في الاستجابة لطلبات و تساؤلات الاخوة الاعضاء دون كلل الحل : ـ 1 فكر في برنامج ما و يفضل ان يكون بسيطا و الهدف منه ليس استعماله كبرنامج بل كيفية بناء برنامج من بدايته الى نهايته ـ 2 ارسم خطة عمل لهذا البرنامج و اهم شيئ في اي برنامج عو قاعدة البيانات التي ينبغي ان تكون مدروسة دراسة وافية ـ 3 ابدأ البرنامج على بركة الله و عندما تجد اي صعوبة في نقطة ما اطرحها على المنتدى ـ 4 مر للخطوة الثانية و الثالثة والرابعة . . . . . و هكذا حتى يكتمل البرنامج ، فهو يبدأ صغيرا و يكبر شيئا فشيئا ملاحظة الاصرار على الوصول و الرغبة فيه هما السبيلان الوحيدان للتعلم تقبل تحياتي

اخي محمود ابداع و تميز واضحين جزاك الله خيرا حفظك الله و رعاك

هذا هو الملف و هو يعمل عندي بطريقة عادية كارنية22.rar

حسب علمي احسن طريقة هي تجميد الألواح او تستطيع استعمال الكود التالي في الورقة tabl_scolarité مثلا Private Sub Worksheet_SelectionChange(ByVal Target As Range) ScrollArea = "A1:W46" End Sub

أخي حمادة ممتاز جدا و بدون اي تعليق جزاك الله خيرا حفظكم الله و رعاكم

استعمل هذا الكود Private Sub UserForm_Initialize() Dim I As Integer With Sheets("ورقة1") For r = 4 To .Range("F" & .Rows.Count).End(xlUp).Row If .Range("F" & r) <> "لا" Then ComboBox1.AddItem .Range("A" & r) End If Next r End With End Sub

أخي أحمد عبد الناصر جزاك الله خيرا على هذا الملف الممتاز جعله الله في ميزان حسناتكم حفظكم الله ورعاكم

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

السلام عليكم جرب هذه المحاولة و لست متأكد ان كانت تحتوي على اخطاء او لا Nouveau dossier2+.rar

جزاكم الله خيرا أخي : aspiran حفظكم الله و رعاكم

أخي : خالد القدس أخي : أبو محمد أشرف جزاكم الله خيرا على المرور و الكلمات الطيبة حفظكم الله و رعاكم

العفو أخي : aspiran

جميل و رائع جدا اخي رجب جزاك الله خيرا حفظكم الله ورعاكم

جزاكم الله خيرا أخي : الأستاذ خالد القدس على المرور حفظكم الله و رعاكم

السلام عليكم جرب هذا المثال ترحيل.rar

السلام عليكم بالنسبة للعبارة : On Error Resume Next و كأنك تجبر البرنامج على اكمال الكود الى نهايته حتى و لو كان هناك خطأ لو ترجمناها حرفيا : في حالة الخطأ أكمل بالنسبة لـ : xxx هذا متغير نختاره وفق معايير فلوكان هذا المتغيير عبارة عن رقم فقط نكتب : Dim xxx As Integer و لو كان المتغير نص نكتب : Dim xxx As String و عندما نريد اسناد المتغير على انه ورقة عمل نكتب : Dim xxx As Worksheet بالنسبة للكلمة Do فتكون كالتالي نكتب اولا Do تم تكتب تحتها الاجراءات او الاحداث التي نريدها ثم نطلب منه او لا يتوقف حتي يتحقق شرط ما بكتابة العبيارة : ( Loop ( While - أو - Until تحقيق الشرط

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

أخي الحبيب رجب جزاكم الله خيرا على المرور الطيب حفظكم الله و رعاكم

جزاك الله خيرا أخي يوسف السيد على المرور حفظكم الله

السلام عليكم جرب هذه المحاولة Nouveau dossier1.rar

أخي الكريم : demo hot جزاك الله خيرا على المرور حفظك الله و رعاك

جزاك الله خيرا أخي الحبيب حمادة و الله إنني استحسن مروركم الطيب و اترقبه دوما بشغف كبير حفظكم الله ورعاكم و جعل الجنة مثواكم

السلام عليكم هذا مثال فقط اذا غير المستخدم تاريخ الحاسوب افتح الملف ستجد انه كتب تاريخ اليوم في الخلية A1 احفظ ثم اغلق الملف و حاول تغيير التاريخ الى تاريخ أقل من تاريخ اليوم مثلا اليوم هو 16-03-2013 اجعل التاريخ مثلا 14-03-2013 ثم افتح الملف ثم لاحظ النتيجة طبعا المثال يتطلب الكثير من التعديل ليكون اكثر فعالية Book1.rar