حارث

جرب هذه الطريقة : http://mypage.ayna.com/harith44/Report111.mdb (انقر بالزر الأيمن واختر حفظ الهدف باسم) (أعتذر عن عدم الضغط لعدم توفر برنامج ضغط حاليا)

أشكرك أخي أبو هادي ، ولا أنسى أن أنوه بما لكم علينا من فضل ، فقد كانت الأكواد التي استفدتها منك ومن أبو حمود ومحمد طاهر وعدد من الإخوة ، والتوجيهات التي وجهتموني بها دافعا كبيرا للتعلم والاستفادة . وأتمنى حقيقة منك مراجعة برنامج النتيجة وإبداء ملاحظاتك ، فأنت …

هذا باستخدام استعلام فيه دالات مطولة باستخدام IIf أعتقد أن الموضوع لا يحتاج لهذا التعقيد ، لكني لم أتمكن من استخدام الدالة IIf في معايير الاستعلام ، ولا أدري لماذا . http://www.pcpages.com/harith77/Marks1997.zip ويمكنك أن تجعل بدلا من استعلام واحد ثلاثة استعلا…

هذه طريقة بسيطة بدون أي أكواد سوى ما يعده معالج زر الأمر علما بأني جعلت كل التقارير في وضع المعاينة قبل الطباعة . فقط اصنع التقرير الذي تريده بواسطة معالج إنشاء التقارير ثم اعرض تصميم التقرير ثم اذهب إلى بيانات - مصدر السجل وانقر على زر Built لاستدعاء منشئ الا…

بعد إذن الأخ سعودي هل تريد طريقة الربط بين حقلين بشكل عام ؟ ، بحيث يملأ الثاني على أساس الأول كما هو في عنوان السؤال . أم تريد طريقة التفقيط (عرض الأرقام كتابة ) ؟

وهذه محاولة أخرى وإن لم تكن كاملة ، وقد عملتها دون أن أطلع على ما تفضل به الأخ سعودي ، لكن لعل فيها بعض الفائدة. http://www.pcpages.com/harith77/NewDawrat1.zip مع ملاحظة أن تصميم الجداول في القاعدة يحتاج إلى تصحيح خاصة وأنه أهم جزء من قاعدة البيانات ، وما سواه…

وهذا على شكل نتيجة ، إلا أنه يحتاج إلى مراجعة . http://www.pcpages.com/harith77/CalUm22.zip أرجو إبداء ملاحظاتكم على الطريقتين .

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

شكرا أخي أبو هادي : لكن مع الأسف سبق أن جربت DateSerial في الدالة DLookup لتضمين النتيجة في criteria بالشكل التالي (مثلا) : Result = DateSerial (Year(MyDate),Month(MyDate),Day(MyDate)) DLookup("[Field]", "[Table]", "[Date2] >=#" & Result & ") ونفس المشكلة ولم …

في بعض أنواع التعبيرات في الاستعلامات والنماذج وجدت أني أحيانا إذا أردت أن أكتب تاريخ 12 من الشهر الأول (يناير) من السنة 1999 م يجب أن أكتب الشهر قبل اليوم ولاحظت أني لو كتبت اليوم قبل الشهر تكون النتيجة خاطئة لأن الأكسس يقرأها على أنها اليوم الأول من شهر 12 (…

بالنسبة للكود الأول تمكنت مما يشبهه في المثال التالي (انقر الزر الأيمن واختر حفظ الهدف باسم) : http://www.pcpages.com/harith77/Colours22.zip

أظن أن المشكلة بسبب أن الحقلين : WrTahdeeth1 و WrTahdeeth2 لم يضافا إلى الاستعلام SearchQ

تصحيح: ربما يكفي أن تقوم بما يلي : في الجدول غير خاصية الحقول dat و man و yer إلى نص بدلا من رقم وأنشئ استعلام تحديث جديد واذهب إلى تصميمه وفي عرض SQL واكتب ما يلي : UPDATE T11 SET T11.dat = Format([dat],"00"), T11.man = Format([man],"00"), T11.man = Format([m…

طريقة ربما تنجح : في خصائص الجدول غير اسم الحقل dat إلى dat1 وغير اسم الحقل man إلى man1 وغير اسم الحقل yer إلى yer1 أضف إلى الجدول ثلاثة حقول من نوع نص بالأسماء القديمة dat و man و yer وأنشئ استعلام تحديث جديد واذهب إلى عرض SQL واكتب ما يلي : UPDATE T11 SET T…

بالنسبة لمثالك يكفي أن تضع في النموذج في حدث عند الفتح DoCmd.RunSQL "DELETE '*' FROM tvw WHERE ((((DateAdd('m',24,[enddatetvw]))) وبرفقه مثال فيه أكثر من طريقة (انقر بالزر الأيمن واختر حفظ الهدف باسم) http://www.pcpages.com/harith77/Delete22.zip

اكتب التعبير التالي في مصدر عنصر التحكم : =Format([MyYY];"0000") & "/" & Format([MyMM];"00") & "/" & Format([MyDD];"00") استبدل MyDD باسم حقل اليوم استبدل MyMM باسم حقل الشهر استبدل MyYY باسم حقل العام وفيما يلي مثال (انقر الزر الأيمن واختر حفظ الهدف باسم) htt…

الأخ osama57 حاولت دون نتيجة لكن أحب أن أشارك بما عملته : في خصائص النموذج في حدث عند تحرك قرص الماوس وضعت الكود التالي : Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) MsgBox "Page " & Page & " Count " & Count End Sub كانت النتيجة عند…

أعتذر عن الخطأ في كتابة الوصلات : بالنسبة للرابط الثالث خلاصته اكتب الكود التالي في زر الأمر الذي يفتح التقرير في حدث عند النقر ، لكن يجب أن تكتبه بعد الأسطر الخاصة بالفتح ، أو اكتبه في خصائص التقرير في حدث عند التنشيط (على ما أظن): Report![اسم التقرير].Printe…

هل جربت ما ذكره أستاذنا / محمد طاهر فهو أكثر من رائع ، ويتميز بالاختصار . وهذا مثال : http://www.pcpages.com/harith77/StoredVal2.zip

هذه طريقة بسيطة : http://www.pcpages.com/harith77/AutoClose2.zip (انقر بالزر الأيمن واختر حفظ الهدف باسم)