• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

pms

اعضاء
  • عدد المشاركات

    386
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل شيء نشر بواسطة pms

  1. الإخوة والأخوات الكرام السلام عليكم ورحمة الله وبركاته أولاً: أغتنم الفرصة لأبارك لكم قرب حلول شهر رمضان الكريم فمبارك علينا جميعا هذا الشهر المبارك بلغني الله وإياكم صيامه وقيامه وحسن العمل والطاعة فيه وتقبل الله منا جميعا صالح الأعمال، وكل عام وأنتم إلى الله أقرب ثانياً: أقدم لكم هديتي المتواضعة (في فكرتها وإخراجها).. لعبة الحروف "أبجد هوز" لأجمل منتدى وأكرم أعضاء ومشرفين .. وهي حقيقة تعد درسا نافعا بأذن الله في ربط حروف الأبجدية بالمقابلة العددية كما سيتضح أدناه أسمحوا لي أن أقدم تعريفاً للعبة: مبدأ اللعبة: أولاً: أكرمنا الله بلغتنا العربية (لغة القرآن – ولغة الحساب يوم المحشر) ومكونها الأساسي الأحرف العربية ليتشكل بها الحرف والكلمة والجملة كما تعلمانها في المدارس ودرج القول لترتيب الأحرف العربية على شقين. هما: أحرف الهجاء، والأحرف الأبجدية،، فما الفرق بينهما؟ الأحرف الأبجدية: (أ ب ج د هـ و ز ح ط ي ك ل م ن س ع ف ص ق ر ش ت ث خ ذ ض ظ غ) وتم ترتيبها أي الأحرف الأبجدية بحيث تنطق كمقاطع وهي: (ابجد هوز حطي كلمن سعفص قرشت ثخذ ضظغ) وقيل أن الستة الأولى (ابجد) (هوز) (حطي) (كلمن) (سعفص) هي أسماء لملوك مدين و(كلمن) رئيسهم وقد هلكوا جميعا يوم الظلة مع قوم شعيب عليه السلام. وهؤلاء الملوك أول من وضع الكتابة العربية بعدد حروف أسمائهم بترتيبها عند الساميين. استخدم العرب هذه الحروف للدلالة على الأرقام الحسابية وسموا ذلك حساب الجُمَّل، ويُجعل فيه لكل حرف من حروف الأبجدية عدد من الواحد إلى الألْف وفق الترتيب التالي: أ=1 ، ب=2 ، ج=3 ، د=4 ، هـ= 5 ، و=6 ، ز=7 ، ح=8 ، ط=9 ، ي=10 ك=20 ، ل=30 ، م=40 ، ن=50 ، س=60 ، ع=70 ، ف=80 ، ص=90 ق=100 ، ر=200 ، ش=300 ، ت=400 ، ث=500 ، خ=600 ، ذ=700 ، ض=800 ، ظ=900 ، غ=1000 إذا يوجد لكل حرف أبجدي مقابل عددي لعلي أسميها (الأحرف والمقابلة العددية) وكان هذا الترتيب معمولا به إلى أن جاء نصر بن عاصم الليثي (ت 89هـ) ورتبها الترتيب المعروف الآن، أحرف الهجاء هي: (أ ب ت ث ج ح خ د ذ ر ز س ش ص ض ط ظ ع غ ف ق ك ل م ن هـ و ي) ينقسم تعلم حرف ( أبجد هوز حطي كلمن ........ ) إلى نوعين : أ- النوع الأول : مباح . وذلك إذا كانت كتابتها وتعلمها للتهجي وحساب الجمل . ب- النوع الثاني : محرم . وذلك إذا كانت كتابتها وتعلمها على وجه ادعاء علم الغيب والنظر في النجوم لمعرفة الحوادث الأرضيه من فقر ومرض وغلاء أسعار وغير ذلك . طريقة اللعبة: وضعت مربعات نص يتم إدخال الحرف العربي لتتم المقابلة العددية أسفل الحرف فورا فما على المستخدم ألا فرد أحرف الكلمة المطلوبة داخل مربعان النص ومشاهدة المقابلة العددية لكل حرف وهي ممتعة بلا شك .. ومن ثم الحصول على المجموع الكلي العددي للجملة ومما يجدر ذكره أن هذه المقابلة العددية للأحرف بحد ذاتها لعبة جديدة في الذكاء تعتمد المقابلة والحساب العددي واستبدالها بأحرف أخرى تعطي في المجموع العام القيمة العددية نفسها للكلمة الأصلية... بمعنى يمكن ترميز وتشفير كلمات أو جمل بدلا من أخرى كما في هذه الأمثلة: ان (ابن المشيب)في الامام المستنجدبالله وهو الخليفة الثاني والثلاثون من خلفاء العباسيين اصبحت( لب)بني العباس كلهم..إن عددت بحروف الجمل الخلفا أراد ابن المشيب أن بقول: إن المستنجدبالله هو الخليفة الثاني والثلاثون من الخلفاء العباسيين وان العددمتضمن في جمل(لب( حيث (ل=30) ، (ب=2) والمجموع 30+2=32 وقال احدهم يؤرخ انتقاله في بيته الجديد : مدبر أمري حط وزري معززا ...... وقو بسلطان الجلال يقيني 246+251+17+223+125.......112+151+95+180= 1400 وهكذا تستطيع ان تتفنن في اختيار ماهو مناسب ونكون الألغاز والفوازير من خلال هذه اللعبة ... وبالله التوفيق أبومحمد عذرا فقد أنسيت وضع المرفق ابجد هوز.rar
  2. تفضل بالمرفق يوجد استعلام Qry1 من نوع (استعلام تحديث) يقوم بما طلبت تحياتي/ أبومحمدfigo82eg.rar
  3. تفضل الحل أنظر الاستعلام الجديد (Qry_Tot_work_hours) تحياتي/ أبومحمد sum_time.rar
  4. أبوعزوز ،،، طيب الله أوقاتك بكل خير ومحبة لا أملك الإصدار الذي رفعت به مثالك بعد الاستعانة (بصديق) تم تحويل المثال للإصدار2003 وتم الحل عليه .. فعذرا منك  1- أنشأت نموذجاً جديدا (QryVrequest) مبني على جدولك السابق (vrequest) عالجت به الجزء المتعلق بالاجازات ((حسب ما فهمت من السؤال)) علما أني أجتهدت وأضفت حقلين للجدول (vrequest) وذلك لتثبيت مدة الاجازة الاعتيادية ومدة الاجازة الاضطرارية فضلا تابع اللقطات: A.   B.   C.   D.   E.   عالجت موضوع الاجازات كل شهر يضيف الكود 3 أيام رصيد أعتيادي للموظف فإذا كان عدد الأشهر = 6 فإن رصيد الأعتيادي :  6*3=18 الرصيد الاضطراري متعلق بالسنة المالية فإذا أستنفدها الموظف أو جزء منها تبقى خيارا له طيلة عام كامل حتى تنتهي فإذا أستجدت سنة جديدة حذف الرصيد الاضطراري السابق وحول إلى صفر ثم يحدث للسنة الجديد (5) أيام أضطرارية   تحياتي: أبومحمد vac+salary.rar
  5. أسعدك الله في مثالك المرفق 2003 ،،، تم التالي     على هذا الجدول تم أنشاء أستعلامين جديدين 1- حذف الإستعلام المرفق القديم 2- إنشاء أستعلام جديد [QrySubTim] لتجميع الدقائق لكل سجل على حدة وجمعها لكل عامل     أستخدمت فيه الكود التالي: SubTotal: Sum((DatePart("h";[وقت توقف العامل])*60)+(DatePart("n";[وقت توقف العامل]))) وتم الربط بكود العامل   3- أنشاء أستعلام ((كلي)) لجمع ساعات ودقائق كل عامل مستقلا     أستخدمت فيه الكود: TotalTime: Int([SubTotal]/60) & ":" & [SubTotal]-Int([SubTotal]/60)*60   وذلك لإرجاع مجموع الوقت على شكل hh:nn     تحياتي: أبومحمد   PMS_TotalTime.rar
  6. فضلا أرفق المثال بصيغة 2003 أو 2007 تحياتي أبومحمد
  7. عزيزي .. يمكنك جمع الوقت في الإستعلام كما يمكنك فعل ذلك في النموذج أو في التقرير تستطيع الجمع في جملة SQL أو التنفيذ بالكود VBA   أعتذر لأرفاق مثال عملته لك على أكسس 2003 لأني لا أملك أصدار 2010 في القاعدة يوجد بها جدول [Tbl] يحتوي على حقل [A] نوع بياناته:  تاريخ/وقت أنشأت استعلام [Qry1] مبني على الجدول السابق فصلت فيه الدقائق عن الساعات وحولتها إلى مجموع دقائق أنظر الجدول     بعد ذلك أنشأت أستعلاما جديدا [Qry2]   عكست فيه أتجاه جمع الدقائق وأرجعتها (ساعات ودقائق) أنظر الصورة     بالتوفيق   أبومحمد   PMS_mahdmoddy.rar
  8. تفضل الحل تم التعديل على الاستعلام [QR_Transfer2] باستخدام دالة Mid أنظر النتيجة بالصورة المرفقة     يمكنك التصدير من خلال النموذج [FM_Group]  بالضغط على زر  [تصدير EXCEL]     تحياتي/ أبومحمد   PMS_data.rar
  9. مرحباً (ماجد الأسيوطي) مرحباً (جعفر) آمل تقبل مشاركتي     تحياتي/ أبومحمد   244.TXT.rar
  10. هل هذا ما تبحث عنه؟   مخرجات أجمالي   AAA    باللون الأصفر مخرجات أجمالي   BBB    باللون الأخضر مخرجات أجمالي  CCC    باللون الأحمر     ـــــــــــــــــــــــــــــــــــــــــ لكني لا أعلم الحكمة من طلبك!       تحياتي/ أبومحمد   PMS1_Tst1.rar
  11. تفضل يا عزيزي (وكل عام وأنت بخير - عيد أضحى مبارك)     تحديد تقرير لموظف محدد مهما كانت أيام عمله لعدة شهور   نموذج أختيار الموظف     صورة التقرير     تحديد تقرير لجميع الموظفين خلال شهر واحد إذا كان مجموع أيام العمل (لكل موظف) = 22   نموذج أختيار الشهر     صورة التقرير     بالتوفيق   تحياتي/ أبومحمد   PMS_SNAWNAW.rar
  12. كل عام وأنت والجميع بخير وسعادة عيد أضحى مبارك على الجميع   تفضل المرفق مع أيجاز الشرح   بيانات الجدول:   ثانياً: أنشاء أستعلام تحديد به خاصية (الإجماليات)   1- معيار أستخراج مجموع أيام الغياب الفعلية حسب التعبير التالي: مجموع الغياب: Sum(IIf([absence]=1;Int(1)))2- معيار أستخراج مجموع التأخيرات حسب التعبير التالي: مجموع التأخيرات: Format(Sum(IIf([absence]<1;[absence]));"ثابت")الإستعلام بعد تحديد المعايير:   بالتوفيق   تحياتي/ أبومحمد   PMS_Tst1.rar
  13. تصحيح كود if

    أخي الكريم:     وعليكم السلام ورحمة الله وبركاته   أغبطك على رفيع ذوقك وحسن أختيارك   عيد سعيد لك ولأسرتك الفاضلة، أمدكم الباري بعمر مديد وبارك لكم في أعماركم ورزقكم صالح العمل يدخلكم في قبول الرحمن لأعلى الجنان في الفردوس الأعلى ولكل من قرأ هذه الكلمات وأمّن عليها   الفاضل الوجيه: SANDANET سلمك الله من كل شر ،، وأعاد عليك العيد وأسرتكم الكريمة، ترفلون في ثوب الصحة والعافية أخي الفاضل (أخوك) مبتدأ في سلوك طريق التعلم في أكسس (لست محترف ولبس لي خبرة) فقط أنزلني منزلتي الصحيحة بارك الله فيك   أما الأمر (DoCmd.Restore) في حدث عند الفتح فهو أيعاز لتحجيم الصفحة ليس تكبير وليس تصغير   تقبلا تحياتي/ أبومحمد
  14. تصحيح كود if

    وعليكم السلام ورحمة الله وبركاته الأخ/ المهندس أوس علي قرأت سؤالك وفهمت أنك تسأل عن المعيار بين قيمتين (Between) كما في مثالك (أصغر أو يساوي مجموع المبالغ SumOfamount) في أستعلام Q3    وَ    أكبر من (صفر) if Me.Text38 <=[Q3]![SumOfamount] And >0 thendocmd....elsedocmd..end ifوتم التصحيح كالتالي Private Sub Text38_AfterUpdate()Dim A As IntegerA = DLookup("[SumOfamount]", "Q3")If [Text38] <= A And [Text38] > 0 Then DoCmd.OpenForm "Frm2", acNormal, "", "", , acNormal DoCmd.Restore Me.Visible = FalseElse DoCmd.OpenForm "Frm3", acNormal, "", "", , acNormal DoCmd.Restore Me.Visible = FalseEnd IfEnd Subكما أني أرفقت لك مثال من عندي أجتهدت به قبل أن أرى ردك الأخير فضلا استخدم مفتاح Tab للتنقل والتحديث علماً بأن مجموع القيم في الإستعلام هي (1860)       عندما تكون القيمة صحيحة (بمعنى بين الصفر ومجموع المبالغ في الإستعلام) يكون الجواب:       وعندما تكون القيمة خاطئة (بمعنى أصغر من أو تساوي الصفر أو أكبر من مجموع المبالغ في الإستعلام) يكون الجواب:     آمل أن تقبلها هدية   تحياتي/ أبومحمد     PMS_SANDANET.rar  
  15. تنسيق التقرير

    وفقك الله +1
  16. تنسيق التقرير

    تفضل التقرير مبني على أستعلام جدولي Crosstab تم ألغاء جميع الأستعلامات الأخرى تجميع القيم في التقرير مسندة إلى الجدول مباشرة بدالة Dcount   تحياتي/ أبومحمد   PMS-273.1.Report.rar
  17. ترقيم تلقائي متعدد

    الأخت الكريمة/ يمكن عمل التحديث بأكثر من طريقة باستخدام جملة Sql أو أضافة كود UpDate وبما أن غالب الجداول تم ربطها بعلاقة (فرض التكامل المرجعي) فيمكن أضافة جملة التحديث التالية: إلى حدث عند النقر للـ (RemmindMoney_Click) Private Sub RemmindMoney_Click()If [ccc] = "دولار" Then[RemmindMoney] = [txt2] - [discount] - [PaiedMoney] + [a2][first_balance_dollar] = [first_balance_dollar] + ([txt2] - [discount] - [PaiedMoney] + [a2])Else[RemmindMoney] = [txt2] - [discount] - [PaiedMoney] + [b2][first_balance_dinar] = [first_balance_dinar] + ([txt2] - [discount] - [PaiedMoney] + [a2])End IfMe.RequeryMe.RefreshEnd Sub فيتححق المطلوب  لكني لا أعلم طريقة ترتيبك (المبلغ المتبقي هل يتم أضافته إلى رصيد الزبون بالدولار)  أم (المبلغ المتبقي يتم طرحه من رصيد الزبون بالدولار) تم الحل على أفتراض أضافة   تحياتي/ أبومحمد
  18. حبيبي Raed100 يبدو أنك لم تفهم سؤالي السابق وواضح أنك من عشاق (برامج معالجة النصوص - Word Processing) غالب أسألتك هي تنسيقية وليس معالجة برمجية   أهلاً بك في عالم أكسس   جميل منك الإفتراضات وسأرد عليك بأفتراض   لنفترض بارك الله فيك أن (نلسون مانديلا) بُعث من قبره (تمام؟) وسافر من جنوب أفريقيا إلى نيويورك - أمريكا ودخل مبنى الأمم المتحدة، وسأل رؤوساء جميع الوفود: أين أجد أفضل شخص في العالم لعمل الصرافة؟ فأجابوا جميعا وعلى لسان واحد: (Raed100) مالك إلا رائد ولأن نلسون من المناضلين القدامى .. فإكراما له للتحرر من العبودية قمت أنت بمنحه حساب أفتتاحي  000000 وعلى فرضيتك في توصيف (رقم حساب العميل) من 13 خانة خانتين نوع العملة - 3خانات نوع الحساب - 6خانات الحساب الموحد للزبون - خانتين تسلسل الحساب   ماذا سيحدث بعد ذلك! سيسألك السيد مانديلا.. السؤال التالي: سيد رائد! هل تقوم بتجميع فئات (نوع العملة) أجمالا ثم تسندها في الشهادة مرة واحدة فقط؟ أم تفصلها تفصيلاً؟ أجب! بارك الله فيك،، على المناضل نلسون عندما يودع عندك حسابين بالدولار (4500) ثم (5500) هل ستكتب بالشهادة تفصيلا ((4500) ثم (5500)) أم أجمالا ((10000)) لأن العملة واحدة؟ ماذا لو أودع مبالغ في تواريخ مختلفة.. هل ستكتب في الشهادة بتواريخها المختلفة؟ علما بأن سعر صرف العملة مختلف يوميا وليس ثابت. وهنا تقع المشكلة ماذا ستقول للعم مانديلا .. هل ستصدمه فيموت مرة أخرى أفجع من موتته الأولى (ياحرام) وأحب أن أسمع منك ماذا ستقول للمناضل مانديلا!   على هذا الإفتراض ،، أدخلت في مثالك حسابات لمناضلين فلسطينين أغتالتهم يد الغدر الأثمة.   أنظر الجدول     وحررت عليه أستعلاما يستخرج (الحساب الموحد للزبون) + تسلسل حساباته     كما أظفت نافذة أختيار بأسماء الزبائن     بعدها يتم تصفية التقرير للزبون أياه     تحياتي/ أبومحمد   PMS2_Raed100.rar
  19. ترقيم تلقائي متعدد

    السلام عليكم ورحمة الله وبركاته الأخت الكريمة تفضلي الملف بعد التعديل عليه   تحياتي/ أبومحمد   PMS3_2007_نوع الحركة.rar
  20. أخي الفاضل لم تصل الفكرة بعد هل لك أن توضح أكثر هل تقصد عملية (تجميع - Groub By) تحياتي/ أبومحمد
  21. وعليكم السلام ورحمة الله وبركاته   تفضل ما طلبت     أنتبه لتغير سعر صرف العملة (كما في الجدول)       النتيجة       تحياتي/ أبومحمد   PMS_Raed100.rar
  22. وعليكم السلام ورحمة الله وبركاته .. أخي أبي عبدالرحمن أنت لك الشكر بتجديدك الموضوع لم أقف حقيقة على أبعاد المشكلة حسب تصورك لها هل يمكن توضيح أكثر بصورة أو مثال ترفعه وما هو أصدار الأوفيس لديك ِ Access , Excel تقبل تحياتي أبومحمد
  23. ترقيم تلقائي متعدد

    السلام عليكم ورحمة الله وبركاته الأخت الفاضلة تم التعديل (تراكمياً) في الرصيد الإفتتاحي للزبون رغم تحفظي عليه لوجود البدائل لهذه الجزئية. ومظنة حدوث الأخطاء وخسارة القيم الصحيحة المختزنة   خطوات العمل:   أفترضت أن خانة (المبلغ بالدولار - LE_dollar) هي أخر خانة لإدخال القيم في حدث (بعد التحديث) جعلت الكود المسؤول عن تعديل (الرصيد الاولي بالدولار) للجدول (Clients) وهو بالتفصيل التالي: أثناء التحديث يقوم الكود بالمحادثة التفاعلية من خلال MsgBox بظهور رسالة تحذيرية للمستخدم تخبره بالرصيد السابق الإولي للزبون (اسم الزبون ؟) وقدره (كذا) المبلغ الجديدة المضاف بالدولار LE_dollar = (؟) قيمة الرصيد الأولي بعد التحديث = مجموع القيمتين = (؟) عندها يتفاعل المستخدم بأختيار (Yes) أو (No) عند أختيار (Yes) يقوم الكود أنابة بالأضافة لتحديث الرصيد الأولي ثم ينتقل لحقل جديد عند أختيار (No) يتم حذف الإجراء والتراجع تحذير: عليكي أن تكوني حذره بالاستخدام، فالتحديث يعني زيادة الرصيد بشكل تصاعدي في كل مرة         أما ما ذكرتي من مشكلة ظهور الرسالة عند (أيرادات عامة)، فهي لم تظهر عندي مطلقاً آمل أن أكون حققت هدف ما تسعين أليه   تحياتي/ أبومحمد   PMS2_2007_نوع الحركة.rar
  24. أشكر تفضلك بالرد يا أستاذي كفّيت ووفّيت منك أتعلم ربي ييسر لك الأمور ويعينك على ما أنت به من أنشغال طلتك نور للمنتدى وطبعاً +1 أخوك أبومحمد