رمهان

iif(isnull([a]),0,[a])+iif(isnull([m]),0,[m])+iif(isnull([f]),0,[f])+iif(isnull([c]),0,[c])+iif(isnull([d]),0,[d]) مع الانتباه الى تغيير الفاصلة الى فاصلة منقوطة اذا كانت النسخة لديك عربية بالتوفيق

كلامك صحيح اخ كرار كان الخطأ في لم اكتب حرف r في recordsetclone والحقيقة كتبت الامر مباشرة في المنتدى وها انت اتيت بفكرة اخرى ومرفق جزيت خيرا . ويمكن كتابة ماتفضلت به كالتالي If DCount("[gh]", "جدول2", "[idd]=" & [id]) = 0 Then MsgBox ("no data") وهذا احد الروابط بالمنتدى بالتوفيق

اعتقد السبب اخي الكريم هو ان الكمبيوتر اعدادات التاريخ مضبوطه على ام القرى بينما الاكسس على التاريخ الهجري ومعروف ان هناك فرق بين تاريخ ام القرى والهجري هنا ولعل لك به فائدة بالتوفيق

حياك الله اخ حسين مع انك لم ترفق مرفق ولا حتى شرحت ايش الاوامر التي تريد الغاؤها ومع وجود ماتريد في المنتدى لوبحثت قليلا وهذه احد الحلول وعلى افتراض الاسماء باول مشاركة if me.fary2.form.recodsetclone.recordcount=0 then msgbox("no data") بالتوفيق

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

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

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

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

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

حياكم الله وجزيتم خيرا

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

تفضل بالتوفيق

اعمل ملف جديد واستورد له كل الكائنات ! لعل وعسى ! بالتوفيق

حياك الله اخي رضا ! شفت كيف اهمية التحليل قبل التنفيذ ؟ ولكن هل تريدنا نواصل باضافة شرط : اذا بقي مادة فاكثر لا توافق الشرط احذف المواد فقط من جدول المواد وبدون حذف الطالب ! فقط يتم حذف الطالب عند عدم وجود مواد لاتوافق الشرط ! ام ان الفكرة كانت في الاصل حذف الطلاب ولم تعد مجديه بعد التنبيه ! بالتوفيق

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

تفضل تطبيق ماذكرته لك باضافة عمود لاستخراج اسم الشهر واصبح المعيار به ! بالتوفيق PreTest 1.rar

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

ماذا عن السنوات اخ بو عبدالله ؟

تمام .. ابشر فخلينا نغلق الموضوع هذا اولا ثم نعود للموضوع الاخر باذن الله ! اعتقد انه تم تطبيق الكود التالي وبنجاح cboMonth.RowSource = "" Dim lMonth As Long For lMonth = 1 To 12 Me.cboMonth.AddItem Format(DateSerial(2000, lMonth, 1), "MMMM") Next lMonth وهذا ما يخص الاشهر ! اما بالنسبة للسنوات فكيف تريد سردها ! هل منسنة معينة وحتى السنة الحالية ؟ اما ماذا ؟ بالتوفيق واستاذنك للنوم وموعدنا غدا باذن الله

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

اخي بوعبدالله هل الجواب هنا وبوضع مربعي تحرير وسرد يغني عن الموضوع التالي

كذا استاذ علي صرنا اكثر صحبة بالسطر الواحد استاذ علي !

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

حياك الله اخينا بو عبدالله اولا وللعلم : الطريقة التي استخدمتها في الكود وبالتحديد الطريقة additem تتطلب وضع خاصية "نوع مصدر الصف" لمربع السرد الى "قائمة القيم" ثانيا : عليك بوضع الخاصية rowsource الى طول صفري "" ! فتظهر في بداية الكود وسيصبح الكود وعند الحدث : cboMonth.RowSource = "" Dim lMonth As Long For lMonth = 1 To 12 Me.cboMonth.AddItem Format(DateSerial(2000, lMonth, 1), "MMMM") Next lMonth وذلك لكي لا تتكرر القيم عند تكرار الحدث ! ثالثا : لم يحتوي مرفقك على الكود ولم يظهر اين الحدث بالتوفيق