محمد ايمن

للرفع

الاصدقاء الاكارم تحية طيبة عند انشاء علاقة بين جدولين في اكسس وتكون العلاقة من نوع ( واحد الى متعدد ) يوجد خيار تحديث الحقول المرتبطة السؤال هل يمكن تحديث السجل باكمله عوضا عن تحديث الحقل المرتبط فقط ؟؟؟؟؟ db1.rar

اخي الكريم تحية طيبة يبدو ان هناك خطا ما اما اني اسئت الفهم عنك او ان طلبك مغاير للاستعلام الاستعلام qury2 يقوم بالحاق بينات الجدول ( الدورات التدريبية ) بجدول ( اسماء العاملين بالجهات ) هل هذا طلبك ؟؟؟ ام انك ترغب بتحديث بينات جدول اسماء العاملين بالجهات ؟؟؟

قيد النظر ....

اهلا بك اخي و استاذي عبدالله المجرب

تفضل اخي الكريم sample1.rar

اخي الكريم الاستعلام يعمل 100%

الاصدقاء الاكارم تحية طيبة جميعنا نستخدم دوال الاكسس مثل الدالة Dcount و الدالة Dmax و الدالة Dsum وغالبا ما نعاني من كتابة الشروط التي سيتم تطبيق هذه الدالة عليها مثلا لدينا جدول الموظفين (EmInfo) وهو يحوي الحقل (EmNumber) اذا اردنا حساب عدد السجلات التي تحتوي على رقم مدخل في حقل البحث (Nser1) من الجدول فاننا نكتب الدالة Dcount كما يلي الدالة 1 dim Uvar as variant Uvar = dcount("Emnumber","Eminfo","[EmNumber]=" & Me.Nser1) msgbox Uvar الامر بسيط هنا ( لاحظ ان الشرط هو قيمة رقمية ) واذا اردنا تطبيق نفس الدالة لكن هذه المرة الشرط سيكون قيمة نصية ( اسم ) الدالة 2 dim Uvar as variant Uvar = dcount("Emnumber","Eminfo","[EmNumber]=" & "'" & Me.Nser1 & "'") msgbox Uvar ايضا الامر بسيط واذا اردنا تطيبيق الدالة ولكن بشرط تاريخ معين الدالة 3 dim Uvar as variant Uvar = dcount("Emnumber","Eminfo","[EmNumber]=" & "#" & Me.Nser1 & "#") msgbox Uvar الامور الى الآن سهلة لكن ماذا اذا اردنا ان نضع اكثر من شرط مثلا نريد حساب عدد ساعات العمل لموظف معين في تاريخ معين !!!!!!!!!!!!! الامور ستصبح اصعب الدالة 4 dim Uvar as variant Uvar = Dsum("EmWorkHour","Eminfo","[EmNumber]=" & Me.Nser1 & " and [EmWorkDate]=" & "#" & Me.Nser2 & "#") msgbox Uvar والامور ستزداد سوءا اذا كان الشرط قيمة نصية + تاريخ معين الدالة 5 dim Uvar as variant Uvar = Dsum("EmWorkHour","Eminfo","[EmName]=" & "'" & Me.Nser1 & "'" & " and [EmWorkDate]=" & "#" & Me.Nser2 & "#") msgbox Uvar وغالبا ما نخطئ في كتابة الشرط لتظهر لنا رسالة خطأ اثناء عملي على احد البرامج واجهتني هذه المشكلة و الحمدلله اكتشفت طريقة يمكن بها اختصار الشرط كما انه يمكن اهمال نوع القيمة للشرط ( رقمية - نصية - تاريخ ) Dim Uvar As Variant Uvar=DSum("emworkhour", "eminfo", "[emname]=[nser3] and [emworkdate]=[nser4]")) msgbox uvar الكود السابق يعطي نفس نتيجة الدالة 5 اعتذر على الاطالة في الشرح لكن لابد منه لكي يتاح للمستخدم فهم الفرق واي استفسار انا جاهز اختصار الشروط في الدوال.rar

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

هل من جديد ؟

هل من مجيب ؟؟

فأرى ان تستخدم مثل هذا الكود لاستخراج العدد : dim i i= month(date()) txt1=DCount("fild1","QryName","flddate=i") حيث fild1 اي حقل في الاستعلام او الجدول صالح للعد تحية طيبة اخي ابو خليل جربت هذه الطريقة ولكن لم تفلح معي فقد حصلت على نفس النتيجة

اخي ابو خليل تحية طيبة خطرت ببالي فكرة استخدام الرصيد التراكمي و جربتها و عملت معي لكن هناك مشكلة ساشرح باختصار ما فعلت الاستعلام ejazah left1 يقوم بجمع عدد الساعات لموظف شرط ان تكون مدة الاجازة ساعتان الاستعلام ejazah left2 يقوم باعطاء نتيجة الاستعلام ejazah left1 شريطة ان لا يكون حقل ejazah left اصغر او يساوي الصفر ( وهذا الحقل يعطي عدد الساعات المتبقية للموظف ) النموذج ejazahleft مصدره الاستعلام ejazah left2 وعند تشغيله يطالبك بادخال الشهر و السنة المطلوب شطب رصيد الاجازات لهما حيث يقوم بادخال سجلات مؤقتة الى جدول مؤقت اسمه ejazahleft وكل سجل يمثل اجازة مدتها ساعتان ثم يقوم بتشغيل الاستعلام qryupejazahleft في البداية عمل معي النموذج بشكل جيد ولكن المشكلة هي عند اضافة حقل ( سبب الاجازة ) حيث اصبحت بعض النتائج تظهر متكررة مثلا الموظف ( موظف 1 ) حصل على ثلاث اجازات في الشهر الثاني مما يعني انه بقي لديه اجازة واحدة من المفترض ان الاستعلام يعطي سجل واحد لهذا الموظف لكنه يعطي سجلين !!!!!! اعتذر على الاطالة ولكن ما باليد حيلة ejazah1.rar

عذرا اخي ابو خليل لابد من احتساب الرصيد والا كيف سنعرف اذا حصل على الاجازة سابقا ام لا ؟؟

للرفع

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

للرفع

للرفع

الاصدقاء الاكارم تحية طيبة المشكلة كما ذكرت في العنوان هي ظهور خلفية التقرير باللون الاسود عند اخفاء شاشة الاكسسز ما السبب ؟؟ وهل يوجد حل لهذه المشكلة hideaccess.rar

للرفع

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

الاصدقاء الاكارم تحية طيبة اعود اليكم بعد طول غياب وبداية تحية للاستاذة ( أبو آدم - أبو خليل ) ولكل اصدقائي في هذا المنتدى طلب الي احد الاشخاص تصميم برنامج للإجازات ولكن المشكلة هي في نظام الإجازات الساعية يتم اعطاء الإجازة الساعية وفق الآتي : 1- يحصل الموظف على 4 إجازات ساعية مدة كل منها ساعتين في الشهر الواحد فقط ليصبح الإجمالي 8 ساعات 2- لا يتم تدوير الرصيد الى الشهر القادم وفي حال اخذ الموظف إجازة ساعية واحدة ( ساعتين فقط ) و قدم الشهر التالي فإن الرصيد السابق ( 6 ساعات ) يضاف الى رصيد الموظف اي يتم احتساب هذه ال 6 ساعات على الموظف سواء حصل عليها ام لا لم اجد الى الآن اي فكرة او طريقة استطيع بها عمل هذه الفكرة اترككم مع المرفقات ejazah.rar

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

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

http://www.officena.net/ib/index.php?showtopic=41572&hl