رحال العمر

السلام عليكم الرجاء ارسال البرنامجين على بريدي fesal_1()hotmail.com ()=@ ابوخالد

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

السلام عليكم ورحمة الله وبركاته عملت برنامج لكاس العالم يظهر فيها النتائج والترتيب والمباريات وغيرها واخذ البرنامج مني وقت ليس بالهين واصلاحات كثيرة وعمليات معقدة وخاصة انني مبتديء بالاكسس فرمت جهازي قبل فترة واخذت نسخة من الملفات على سي دي عندما قمت بمحاولت فتح الملف تظهر لي الرسالة التالية حاولت مافيه فايدة رحت نزلت برامج كثيرة لاستعادة الملفات بعد الفورمات ومنها البرنامج الشهير final data لكن للاسف نفس المشكلة الرجاء ثم الرجاء اللي عنده اي حل لايبخل علي اخوكم متورط ابوخالد

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

نفس كلام اخي اشرف وفي السعودية ايضا

السلام عليكم ورحمة الله وبركاته انا عندي برنامج قاعد اجهزه لكن واجهتني مشكلة بنموذج التقرير البرنامج عبارة عن ثلاثة جداول ومجموعة كبيرة من النماذج وتقريرين واستعلامين النموذج اللي انا وقفت عنده نموذج يعرض التقرير عن عميل او زبون ادخل رقم الزبون ورقم فاتورته مثلا يعرض التقرير او يطبع التقرير لكن المشكلة عند وضع رقم زبون غلط يعرض التقرير فاضي انا ابي عند وضع رقم الزبون غلط او رثم الفاتورة غلط تطلع لي رسالة تفيد بان احد الرقمين غلط وتفضى الخانات وهذي سهله لكن المشكلة بالرسالة انا وضعت رسالة بس عند ادخل رقم اول زبون علق الرقم وصار مايقبل الا هذا الرقم ورقم فاتورته ولو اضع له اي رقم موجود في الجدول ورقم فاتورته الصحيحين تطلع لي رسالة الخطا انا عملت نموذج مصغر للبرنامج عملت فيه جدولين تقريبيين لنفس الطريقة اللي تعاملت فيها مع الجداول وعملت فيها تقرير مبني على استعلام ونموذج للاستفسار عن معلومات العضو اللي ابيه الان عمل مسج بوكس اذا حطيت رقم العضو رقم او عمرة (( هذا في النموذج المصغر المرفق )) ولكن لربط القاعدة في النموذج او في الزر اتمنى استعمال الكود التالي لاني عملت البرنامج كله بنفس الكود Dim DB As Database Dim MYSET As Recordset Set DB = DBEngine.Workspaces(0).Databases(0) Set MYSET = DB.OpenRecordset("serch") ثم وضع الاكواد لعمل المسج بوكس وعرض التقرير وهذا هو الملف اضغط هنا ياليت تساعدوني لانه تقريبا خلص البرنامج مابقى الا هذي النقطه وبعض النقاط الضغيرة التي اعمل عليها تحياتي لكم رحال العمر

تسلم اخي محمد طاهر على ردك اهم شي ان العرض يعرض كويب وبالنسبة للشرائح امرها سهل بإذن الله تحياتي لك

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

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

وعليكم السلام هلا اخي امير عاطف ماقصرت بارك الله فيك جبت الحل :lol: تسلم ياغالي ومعليش تعبتك معي اخوك رحال العمر

السلام عليكم طيب اخي امير عاطف بارك الله فيك الآن تقريبا قطعنا نصف المشوار لكن المشكلة انا عندي حوالي ثمانية نماذج وعند اختيار نموذج من شريط الادوات ممكن يكون اي نموذج مفتوح يعني لااستطيع تحديد اي نموذج مفتوح فيها هل ممكن اضع الكود السابق بشكل عام يعني يشوف البرنامج اي نموصذج مفتوح ويغلقه ثم يفتح النموذج المطلوب ؟؟ اذا كان لايوجد كود بهذه الطريقة سأكتفي بالكود السابق DoCmd.Close acForm, "formname" تحياتي لك اخي وشكرا لتعاونك اخوك رحال العمر

اخي محمد هذا مانبحث عنه ان يشتغل البرنامج بدون وجود الاكسس على الجهاز تحياتي لك

يبدو اني لم اوضح المشكلة اولا شكرا لك اخي امير عاطف على الرد اخي المشكلة ليست بالازار الازرار شغالة تمام لكن المشكلة بشريط القوائم بالنسبة للكود الثاني ماهو عمله ( هل هو ) يقوم بالتأكد ان جميع النماذج مقفلة ثم يفتح النموذج المطلوب ؟؟ واذا كان كذلك اين اضع هذا النموذج ليصبح عام في البرنامج رحال العمر

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

السلام عليكم شكرا لك اخي محمد طاهر على التوضيح بالنسبة لعمل السيتب هناك برامج كثيرة تقوم بالمهمة واحجامها صغيرة مقارنة بالديفلوبير مثل برنامج InstallMaker وغيره من البرامج وسوف اقوم بطرحها لاحقا يعني بمعنى اخر لن ينفعنا الديفلوبير بشي :cry: تحياتي للجميع