يوسف أحمد

و عليكم السلام ارجو ان يكون هو المطلوب بالتوفيق New Microsoft Access Database.rar

بارك الله فيك استاذ مختار و جزاك خير الجزاء اخي احمد انظر المرفق به جدول و به حقل واحد يحمل القيمة صفر و عند فتح النموذج الرئيسي سيضاف واحد الى هذا الحقل .. لاحظ بالكود حد عدد مرات فتح البرنامج هو 5 ارجو ان يكون هو المطلوب هناك مشكلة في ارفاق الملف عموماً : الفكرة تتلخص في عمل جدول به حقل واحد و بحدث عند الفتح لنموذج بدء البرنامج تضع الكود التالي : DoCmd.RunSQL "UPDATE tblNoOfOpen SET nOfOpen = [nOfOpen]+1;"If Nz(DLookup("nOfOpen", "tblNoOfOpen")) < 5 Then Exit SubElse MsgBox "تم تجاوز الحد المسموح به" DoCmd.QuitEnd If حيث tblNoOfOpen هو اسم الجدول nOfOpen هو الحقل و الذي سيضاف اليه واحد بالتوفيق

فاتني ان اجعل من حصلوا على بطاقتين صفراء من ضمن الموقوفين .. اعتذر و اضع التعديل دوري كرة قدم .rar

تم عمل بعض التعديلات : و هي عدم عرض التقارير و طباعتها في حال عدم وجود بيانات و اظهار رسائل للمستخدم دوري كرة قدم .rar

بارك الله فيك استاذ رضوان و في الاستاذ الرائع مهند عبادي .. تحفة جميلة و بها فوائد كثيرة فلك وله الشكر الجزيل اخي Soma مرفق البرنامج حسب المطلوب 1:يتم تسجيل الفرق اولاً. 2: ثم يتم تسجيل اللاعبين . 3: ثم يتم تدوين مباريات الدوري ( من زر الدوري ) 4: و عند تعبئة بيانات كل مباراة و نتيجتها سيتم الضغط على الزر الصغير بجانب كل مباراة ( و الذي يحمل علامة الصح ) لتدوين نتيجتها مع ملاحظة اذا تم تدوين النتيجة سيفعل مربع الخيار ليوضح ان نتيجة المباراة قد دونت و في حالة الضغط على الزر و كانت علامة الصح موجودة سيرفض البرنامج و تظهر رسالة بأن النتيجة قد تم تسجيلها مسبقاً. 5: لتدوين الاهداف و الكروت يتم الضغط دبل كليك للفريقين الاول و الثاني كل على حده في شاشة الدوري عندها ستفتح شاشة اللاعبين في حالة تصفيه لتظهر فقط اللاعبين التابعين للفريق المحدد ( الذي تم عمل دبل كليك عليه ) علماً بأن اهداف اللاعبين تضاف فقط في خانة ( اهدافه في المباراة ) و التي ستضاف تلقائياً الى مجموع اهداف اللاعب. 6: بالنسبه للكروت الصفراء فيتم اختيار عددها ، اما الكرت الأحمر فهو عباره عن مربع اختيار يتم وضع علامة الصح عليه اذا حصل اللاعب على كارت احمر. 7: يوجد بالشاشة الرئيسية ازرار لطباعة بعض النتائج . 8: زر حذف جميع بيانات الدوري يتم عند الانتهاء من الدوري و الرغبة في استخدام البرنامج مرة اخرى و لتفعيل زر الحذف يتم التأشير على مربع الخيار بجانبه. ملاحظه : بفضل دائماً الضغط على زر الحفظ في جميع الشاشات بعد اكتمال المدخلات . الفكرة عملتها مبسطة جدا و لدوري واحد فقط و هي قابلة للتطوير ارجو ان تفي بما يبحث عنه اخي السائل بالتوفيق للجميع دوري كرة قدم .rar

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

بارك الله فيكم اخواني جميعاً اخي علي جرب وضع التعبير التالي في مصدر مربع النص n =Val(Left((1*[f]/360),5)) ارجو ان يكون هو المطلوب بالتوفيق للجميع

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

السلام عليكم استاذ رضوان اشتقنا اليك وانا سعيد جداً برؤيتك فأنت ممن تعلمنا منه الكثير فجزاك عنا خير الجزاء اتفق مع الحلول المقدمة من الاستاذ علي و الاستاذ رضوان . ولي مشاركة ان سمحتوا لي : ربما يكون القصد من السؤال هو فقط طريقة الالحاق بدون تكرار على مثال لا يمثل البنية الحقيقة للبرنامج لأنه كما ذكر استاذ رضوان بأن التكرار غير مقبول عند تصميم البرامج. ايضاً رأيت بأن استعلام الالحاق به حقلين و واحد منهم حقل رقم تلقائي و هو يدرج كتسلسل بمجرد الحاق الاسم .. فلماذا نلحقه ؟ و قد يتسبب هذا في خطأ بسبب التكرار. عموماً : لتفادي التكرار يمكن استخدام استعلام فرعي كمعيار لحقل الاسم بالاستعلام الالحاقي كالتالي : Not In (select cus_name from tb1 where cus_name=cus) مرفق الملف بعد التعديل مع ملاحظة ازالة حقل الترقيم التلقائي . بالتوفيق للجميع منع التكرار باستخدام استعلام الحاق.rar

بارك الله فيكم اخواني جميعاً اشارككم الحل =Sum(IIf([acc_type]="مدين",[SumOfprice_uds],0)) هذا للمدين فقط و بنفس الطريقة مع تغيير كلمة مدين لباقي مربعات النصوص مرفق الملف بعد التعديل بالتوفيق للجميع حساب مجموع نص معين.rar

بارك الله فيك اخي العزيز لا يوجد سؤال ساذج اخي فرب سؤال بسيط قد يفوت على ذوي الخبرة و رب سؤال صعب يسهل على المبتدئين امثالي و امثالك و لكن بالبحث و الاجتهاد بإذن الله سنجد ما نريده ... كل ما تحتاجه معرّف بالوحدة النمطية .... ايضاً اضع لك مثال اخر وجدته بالبحث في النت و هو يوضح موقع مؤشر الماوس باي موقع ( بتفصيل النموذج ) على النموذج و ايضاً هذا المثال كل شئ معرف بداخل القسم العام لوحدة النموذج بالتوفيق CursorMovement2000.rar

بارك الله فيك اخي ازهر و جزاك خير الجزاء اخي ابو عبد الله تفضل مثال مرفق .. عند الضغط بالماوس على مربع النص ستظهر لك رسالة بموقع الماوس . بالتوفيق للجميع mouse Possition .rar

السلام عليكم تفضل اخي اشرف مثال لما تريد وهو ليس من عملي و انما نتيجة بحث .. و كما هو موضح بالنموذج بأن هذا المثال يعمل مع نسخ اكسس 2000 و 2003 لاحظ الوحدة النمطية و استدعائها بحدث عند الفتح للنموذج. بالتوفيق MouseHookSampleDatabase.zip

و لا يهمك اخي العزيز و الحمد لله انك وجدت الحل لمشكلتك بالنسبة لإستعلام التوحيد فهناك شرح وافي من استاذنا العزيز محمد طاهر جزاه الله خير الجزاء بالرابط ادناه http://www.officena.net/Tips/UnionQueries.htm بالتوفيق

السلام عليكم اخي الكريم هل جربت استعلام التوحيد لذلك .. و قد كانت لك مشاركة اخرى بها نفس السؤال و ردينا عليك و لكنك تركت المشاركة و فتحت موضوع آخر على العموم جرب استعلام التوحيد بالمرفق ارجو ان يكون هو المطلوب بالتوفيق ملاحظة : تم استبدال المرفق .. و عمل الحل بإستعلام توحيد qry1 ثم استخراج الناتج بإستعلام تحديد qryFinalFinal بارك الله فيك استاذ ابو خليل و جعلك سباقاً الى الخير دائماً db1.rar

السلام عليكم مساهمة في الحل بعد اذن الاساتذه مرفق مثال و ارجو ان يكون هو المطلوب بعمل استعلام توحيد اولاً ثم استعلام آخر اسمه qryFinal به النتيجة حسب الموضح بالسؤال بالتوفيق للجميع tow to one .rar

وعليكم السلام اخي عوض بالنسبة للسؤال الاول ضع الكود التالي بحدث بعد التحديث لمربع التحرير و السرد txt21 و الخاص بــ ( هل مستلم الجهاز ) و ايضاً ضع نفس الكود بحدث في الحالي للنموذج ليتم تزامن التغيير عند التنقل بين السجلات. On Error Resume Next Dim cntl As Access.Control For Each cntl In Me.Controls If (cntl.ControlType = acTextBox Or cntl.ControlType = acComboBox) _ And (cntl.Name <> "id" And cntl.Name <> "text12") Then If Me.txt21.Value = "yes" Then cntl.BackColor = vbGreen Me.txt10.Value = "واصل" Else cntl.BackColor = 16777215 Me.txt10.Value = "غير واصل" End If End If Next و يفضل وضع هذا الكود بإجراء خاص و استدعاؤه بحدث بعد التحديث لمربع التحرير و السرد و في حدث في الحالي للنموذج ملاحظة : حقل case هو حقل رقمي و حسب فهمي للسؤال بأنك تريد اظهار النص ( واصل و غير واصل ) به لذا لا بد من تغييره الى نص في تصميم الجدول و من ثم تغييره من مربع تحرير و سرد الى مربع نص عادي بالنموذج .. بالنسبة للسؤال الثاني فيفضل و ضع مشاركة مستقلة له حتى يكون كل سؤال بمشاركة ليسهل تنظيم المشاركات بالمنتدى بالتوفيق

السلام عليكم تفضل اخي و ارجو ان يكون هو المطلوب بالتوفيق Database1_up.rar

السلام عليكم ورحمة الله و بركاته كل عام و الجميع بخير و عافية تفضل اخي ايمن ملفك بعد التعديل بالتوفيق Database2.rar

بارك الله فيك اخي بلومايند و جزاك خير الجزاء بعد اذنك وددت اضافة حل آخر وهو عمل التصفية حسب التحديد لأي من الحقول برمجياً و تطبيق نفس التصفية للنموذج على التقرير بالتوفيق للجميع db1.rar

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

بارك الله فيك اخي nart lebzo ونفع بعلمك الاخت الكريمة dayslife لا شكر على واجب تفضلي المرفق بعد التعديل بالنسبة للدالة NZ فقد فضلت ان ارفق لك ملف كامل يحتوي على جميع دوال الاكسس وهو من اعداد الاخ الغالي بو يوسف الراشد جزاه الله خيراً وقد قمت بتحويله الى ملف Pdf ... ارجو ان تستفيدين منه. بالتوفيق للجميع ان شاء الله DSumFunction.rar Microsoft_Access_Functions.rar

السلام عليكم الاخت الكريمة dayslife تفضلي مثال على ذلك ارجو ان يكون هو المطلوب بالتوفيق استدراك : معذرة اخي nart lebzo لم الاحظ ردك الا بعد ادراج ردي بارك الله فيك وجعلك سباق الى الخير دائماً دمت بود DSumFunction.rar

مرحباً بك اخي m_orouk بين اخوانك هناك طريقة افضل بحيث لا تعتمد على اختبار كل مربع نص على حدة بل تمر على جميع عناصر النموذج من نوع ( مربع نص ) وتختبر قيمته فإذا كانت خالية يتم تمكين المربع واذا لم تكن خالية يتم عدم تمكين المربع. اليك الكود التالي : Dim cntl As Control For Each cntl In Me.Controls If cntl.ControlType = acTextBox Then If IsNull(cntl) Then cntl.Enabled = True Else cntl.Enabled = flase End If End If Next تفضل المرفق بعد التعديل بالتوفيق ومرحباً بك مرة اخرى last.rar

السلام عليكم ورحمة الله وبركاته اخي bluebird76 لا استطيع الآن فتح الملف على 2007 اعتقد بأنك تقصد ان تقوم بصرف كتاب لجهة ما او شخص ما .. اذا كان هذا صحيحاً فهناك بعض الإستفسارات اذا سمحت لي ليتضح الموضوع اكثر 1: هل قمت بعمل جدول خاص بالجهة او الشخص الذي تريد صرف الكتاب له ?.. وجود هذا الجدول مهم لأنك تحتاج لمتابعة حركة الكتب والتي هي ايضاً تحتاج الى جدول مستقل بذاته اضافة الى جدول خاص بالكتب 2: الجزء باللون الازرق ( ويعطيني واحد ) اين ستحتفظ بهذا الواحد .. اليس في جدول ؟ سيكون هذا الاحتفاظ بجدول حركة صرف الكتب بناءً على ما ذكر اعلاه فأنت تحتاج الى استخدام استعلام تحديث او كود يقوم بإنقاص العدد واحد عند كل عملية صرف لكتاب هذا اذا كان يصرف كتاب واحد فقط لكل مستفيد اما اذا كان المستفيد يحصل على اكثر من كتاب فان النقص سيساوي حقل الكمية ضمن سجل هذه العملية في جدول الحركة. الرجاء الإفادة فيما اذا كان هو المطلوب اعتذر على الإطالة