ابوخليل

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

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

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

NZ([text1])+NZ([text2])+NZ([text3])+NZ([text4])+NZ([text5])>>>>> الخ الدالة NZ ترجع القيمة الخالية صفرا

الحمد لله اخي العزيز alshamal سرني مرورك وتقييمك

أخي ابا الوليد تحية طيبة وبعد حقيقة يوجد في جهازي اكسس 2003 فقط وطبعا لا يمكنني فتح المرفق ولكن بالامس كان ابني بجانبي ومعه جهازه المحمول فاطلعت على مثالك وقمت بالتعديل عليه فلو حولت عملك وجعلته على صيغة mdb لرجوت لك تفاعلا اكبر من الزملاء نعود لموضوعنا : والتصفية من خلال الشهر افضل لا شك لسهولة التعامل ويمكن وضع قائمة منسدلة بالاشهر للاختيار منها ولكن قبل ذلك انت بحاجة الى اعادة النظر في التأسيس : فكيف تبحث في جدول الدفعات عن اشخاص غير موجودين اصلا ؟ وهذه يوجد لها حل ولكن العائق الحقيقي انك ستبحث عن اشخاص غير موجودين خلال شهر معين ، وحقل التاريخ الذي تبحث فيه فارغ !

في الكود ادناه يمكنك عند الخطأ جعل مربع الصورة فارغ او عرض صورة رمزية On Error GoTo ErrHandler Me.myPics.Picture = Application.CurrentProject.Path & "\" & Me.eSiS & ".jpg" ErrHandler: If err.Number = 2220 Then Me.myPics.Picture = "" ' Me.myPics.Picture = Application.CurrentProject.Path & "\0.jpg" End If

تم التعديل واخراج الرصيد اما معرفة المتأخرين فمن وجهة نظري حين يكون الاشتراك شهريا فيجب البحث بمعلومية الشهر وليس تاريخ بداية وتاريخ نهاية فنبحث عن المتأخرين خلال شهر رمضان فيكون المعيار في الاستعلام رقم 9 وتستطيع استخلاص رقم الشهر من التاريخ في عمود مستقل في الاستعلام باستخدام الدالة month لتصبح هكذا : رقم_الشهر:month([حقل التاريخ]) الصندوق.rar

حياك الله اخي علي وكل سنة وانت طيب والمسألة يسيرة بإذن الله كل ماعليك عمله هو التعامل مع خصيصة الفرز والتجميع انظر الصورة المرفقة

اخي كريمو الجداول المدمجة في الاستعلام وهي Employee و Company اساسا لا يوجد فيها ملاحظات حيث ان الملاحظات التي بينتها في الصورة موجودة في جداول اخرى

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

بهذه الطريقة (قد) يستفيد صاحب السؤال فقط وانما بني هذا المنتدى من اجل بذل المعلومة ونشرها للجميع من هنا >> كيفية رفع المرفقات http://www.officena.net/ib/index.php?showtopic=31250

حتى على 2010 لا يعمل

ارفق مثالك مبينا عليه مطلوبك واحرص ان يكون على صيغة mdb

اخي الكريم المثال لا يعمل تأكد من عمله ثم ارفعه مرة اخرى

الغاء ازرار النسخ واللصق في لوحة المفاتيح Ctrl+C , Ctrl+V Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If (Shift And 2) And (KeyCode = Asc("C")) Then KeyCode = 0 MsgBox "No Coping Allowed, Cheater!!!" ElseIf (Shift And 2) And (KeyCode = Asc("V")) Then KeyCode = 0 MsgBox "No Pasting Allowed, Cheater!!!" End If End Sub

تفضل واحدة من الطرق تحويل الى شهر ويوم وساعة ودقيقة .rar

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

جزيت خيرا تم ضم المشاركة الى الدروس المثبتة

وعليكم السلام ورحمة الله وبركاته الاستعلام الجدولي يحقق النتيجة المطلوبة انظر مثالك بعد التعديل اما لو اردت ان ترسم تقريرا خاصا فيمكنك توظيف الدالة Dcount لعد الافراد حسب النوع فمثلا نكتب السطر التالي لجلب عدد الذكور في فرع معين نكتبه في في عنصر التحكم لحقل في نموذج او تقرير فهو يجلب عدد البيانات في جدول حسب شرطين نصيين =DCount("txt1";"tbl1";"txt1='" & "1" & "'" & " And txt2='" & "ذكر" & "'") Database4.rar

السلام عليكم كل سنة وانت طيب والعراق بخير وتآلف وعز ومنعة واجتماع كلمة انظر تم التعديل على المثال واعذرني فلن اتمكن خلال هذه الايام من التواجد كالعادة رواتب112.rar

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

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

لنقل جدول محدد : DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\Database1.mdb", acTable, "Table1", "Table1" وهذا لنقل استعلام محدد DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\Database1.mdb", acQuery, "Query1", "Query1" واذا اردت جعل القاعدة الجديدة في الملف الحالي اي بجانب قاعدة البيانات لنفرض ان المسار هو "C:\Database1.mdb" فسيكون بعد التعديل :: CurrentProject.Path & "\Database1.mdb"

الاخ الكريم فادي تحية طيبة وبعد لاشك ان الأفضل كبداية : الالمام نوعا ما بطريقة انشاء البرامج وخاصة المستودعات والمبيعات وهنا في الروابط ادناه بعض البرامج الجاهزة والدروس حول هذا الموضوع علما ان المنتدى يحتوي على الكثير منها فقط اعمل خاصية البحث http://www.officena.net/ib/?showtopic=37251 http://www.officena.net/ib/?showtopic=20387 http://www.officena.net/ib/?showtopic=31429 http://www.officena.net/ib/index.php?showtopic=45579 http://www.officena.net/ib/index.php?showtopic=18692 http://www.officena.net/ib/index.php?showtopic=45453 http://www.officena.net/ib/?showtopic=43975 http://www.officena.net/ib/index.php?showtopic=49815 http://www.officena.net/ib/index.php?showtopic=27203 وهنا دروس مرئية لتعليم اكسس http://www.officena.net/ib/index.php?showtopic=51157 بعد الاطلاع والتجربة والمحاولة وواجهتك بعض الصعوبات يمكنك ارفاق ما وصلت اليه حتى نتمكن من مساعدتك