اذهب الي المحتوي
أوفيسنا

ابوخليل

أوفيسنا
  • Posts

    12,369
  • تاريخ الانضمام

  • Days Won

    230

ابوخليل last won the day on نوفمبر 17

ابوخليل had the most liked content!

السمعه بالموقع

6,400 Excellent

عن العضو ابوخليل

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    طالب علم
  • الإهتمامات
    تحليل البيانات والتصميم

اخر الزوار

24,207 زياره للملف الشخصي
  1. اخي العزيز محمد يجب ان تتأكد من مثالك قبل رفعه .. لتلافي الاخطاء والنقص ايضا يجب اختصار الكائنات فلا تضع الا ما تحتاج للتعديل عليه مثالك المرفق لا يوجد به اكواد لفتح التقارير فقد تم حذفها .. ايضا تم حذف اكثر من مكتبة من مراجع القاعدة على كل حال تم عمل طلبك بشكل احترافي لن يخطر على بالك : 1- الاقتصار على تقرير واحد يقوم بالمهمة بدلا من 4 تقارير 2- وضع ضابط رسالة تنبيه عند عدم وجود بيانات حينما تتغير المدخلات في نموذج التقارير 3- التعديلات : - اضافة وحدة نمطية نيابة عن معيار النموذج المباشر (انظر الاستعلام) - اضافة دالة تحكم بمصدر بيانات التقرير ( تجدها في محرر التقرير ) baseM_10 .rar
  2. توليد رمز الاسم من الثنائي وحتى السداسي Dim rs As Recordset Dim na1, na2, na3, na4 As String On Error Resume Next Set rs = CurrentDb.OpenRecordset("QAAA") rs.MoveLast rs.MoveFirst Do While Not rs.EOF rs.Edit rs!Rmz = Mid(Split(rs!AsmGded, " ")(0), 1, 2) & Mid(Split(rs!AsmGded, " ")(1), 1, 2) & _ Mid(Split(rs!AsmGded, " ")(2), 1, 2) & Mid(Split(rs!AsmGded, " ")(3), 1, 2) & _ Mid(Split(rs!AsmGded, " ")(4), 1, 2) & Mid(Split(rs!AsmGded, " ")(5), 1, 2) rs.Update rs.MoveNext Loop End Sub نموذج بحث6.rar
  3. هذا هو الذي يعمله الكود ، ما المشكلة ؟ على فكرة : وحتى تكون على بينة .. قمت بازالة المعايير من الاستعلام ( الكود يجب ان يعمل على كامل السجلات).. بالنسبة للبحث اعمل استعلاما آخر مصدره الجدول مباشرة الكود واضح .. يأخذ الاسم الجديد من الاستعلام AAAَQ.. ويعالجه كرمز ويضيفه في الجدول TAAA
  4. تفضل توليد من الاسم سواء كان ثلاثي او ثنائي الكود يأخذ الاسم من حقل الاستعلام ويضيفه في حقل الجدول Dim rs, rst As Recordset Dim na1, na2, na3 As String On Error Resume Next Set rs = CurrentDb.OpenRecordset("QAAA") rs.MoveLast rs.MoveFirst Do While Not rs.EOF na3 = Split(AsmGded, " ")(2) rst.Edit If IsNull(na3) = False Then rs!Rmz = Mid(Split(rs!AsmGded, " ")(0), 1, 2) & Mid(Split(rs!AsmGded, " ")(1), 1, 2) Else rs!Rmz = Mid(Split(rs!AsmGded, " ")(0), 1, 2) & Mid(Split(rs!AsmGded, " ")(1), 1, 2) & Mid(Split(rs!AsmGded, " ")(2), 1, 2) End If rs.Update rs.MoveNext Loop
  5. الحمد لله على سلامتك اخي خليفة .. وعودا حميدا
  6. تفضل عملت لك دالة تعمل توليد للرمز الذي تريده ( حرفين من كل اسم ثلاثي) الدالة سهلة يمكنك ان تعدل عليها حسب رغبتك ملحوظة : حتى تعمل الدالة على الوجه الأكمل يجب تنظيف حقل الاسم من المسافات الزائدة .. ويفضل ايضا حذف المسافة بعد كلمة عبد ، والله يعينك باقي نور الدين واشباهه Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("TAAA") rs.MoveLast rs.MoveFirst Do While Not rs.EOF rs.Edit rs!Rmz = Mid(Split(rs!Asm, " ")(0), 1, 2) & Mid(Split(rs!Asm, " ")(1), 1, 2) & Mid(Split(rs!Asm, " ")(2), 1, 2) rs.Update rs.MoveNext Loop نموذج بحث 2.rar
  7. ما دمت مصر على رغبتك .. فالرأي المنضبط الذي لا غبار عليه ان تكتفي بالاسم الاول والعنوان ( 4احرف ) بكذا تتجاوز مسألة الفراغات ومسألة الاسماء المركبة .. والنقص في كامل الاسم مع اني ارى مشكلة في ال التعريف في العنوان بحيث يجب عمل تجاوز لها عند توليد الرمز اتمنى ان يروق لك هذا الاقتراح
  8. عليكم السلام ورحمة الله وبركاته ماذا تصنع في الاسم الذي على هذه الهيئة : عبد الباسط عبد الصمد عبدالمقصود الاسم الاول والثاني فراغ بعد كلمة عبد ، وبين الاسم الثاني والثالث فراغين ، والاسم الثالث لا يوجد فراغ بعد كلمة عبد 1- مسألة اكثر من فراغ بين الكلمات امرها هين وبضغطة زر يمكن حذف الفراغ الزائد على مستوى قاعدة البيانات 2- ايضا الفراغ بعد كلمة عبد لو اردت حذفه يمكن ذلك بضغطة زر ايضا ، ولو اردت العكس ايضا يمكن اي تبحث عن كلمة عبد واي كلمة لا يوجد بعدها مسافة يضيف المسافة 3- اتصور انه اسهل واخف واسرع حينما اكتب الاسم واسم الاب وابحث عنهما من ان اكتب تجميعة حروف من الاسماء من الامثلة : الاسم محمد علي شمس الدين يمكنني البحث بـــــــ علي شمس .. اي بالاسم الثاني وجزء من الاسم الثالث
  9. مشكلتك في الفرز انت عملت الفرز في التقرير حسب التاريخ .. والكود تعامل معه على هذا الاساس .. طيب ما المشكلة لما تفرز حسب المعرف ... هو نفسه سوف يفرزه حسب التاريخ بل هو ادق بحيث لو تاريخين متشابهين راح يجيب لك الذي تم تسجيله اولا ويضعه في الأعلى --------------------------------------------------------------------------------- كود الرصيد يعتمد على معرف الجدول (id) وهو تلقائي غير قابل للتكرار والتاريخ مؤكد سوف يتجدد حسب السجل الجديد بمعنى ان اي تاريخ يتم تسجيله كجديد سوف يكون التاريخ اكبر من الذي قبله أو مساويا له الكود لا ينظر للتاريخ وانما ينظر للمعرف ويتعامل معه من الاصغر الى الأكبر اكبر دليل لما تكون فاتح نموذج التقارير وتختار المواد الغذائية والبطاطا .. افتح الاستعلام وانظر stock19 .rar
  10. يمكن ذلك ولكن يلزم اخراج مصدر التقرير ليصبح استعلاما ظاهرا لوجود معايير به يلزم ان تسبق تجميع الارصدة stock17 .rar
  11. أنا متأكد ان الحلبي يسأل من اجل حماية نفسه .. وبياناته .. من باب العلم عن نفسي ومن باب التعلم حاولت مع امتداد mdb ونجحت ولم اقدر على accdb .. لذا اعتبرها اكثر أمانا
  12. لما عرضت مقترح الاشتراك المفتوح .. حسب الحضور على صاحبي قال لي : يمكن يحصل تلاعب .. وهو ان المشترك لا يسجل حضور .. وبكذا اشتراكه يبقى كما هو لا ينقص صاحبي على قدر امكانياته .. لا يوجد باب آلي يفتح عند التوقيع ومشروعه في الهواء الطلق .. لا يوجد ابواب
  13. تمام عليك اخي فادي .. حول فكرتك نلف وندور سأقوم بشرح الخطوات : لدينا ثلاثة انواع من الاشتراكات : النوع الأول ذهبي ( مفتوح) بمعنى يتم حساب ايام الحضور فقط .. النوع الثاني فضي (جزئي ) اي يعوض عن جزء من ايام الغياب .. لنتفق على 3 ايام عن كل شهر النوع الثالث برونزي ( مغلق ) اي يحسب اشتراكه حسب التاريخ حيث لا يوجد تعويض ثلاثة اصدقاء اشتركوا في يوم واحد لمدة شهر .. وكل واحد منهم اشترك بنوع من هذه الانواع .. وسنمنحهم اسماء بنوع اشتراكاتهم الاصدقاء الثلاثة حضروا العشر الأيام الأولى ثم قرروا ان يقوموا برحلة صيد او رحلة بحرية لمدة 10 أيام .. يعني غابوا 10 ايام في اليوم 21 حضروا جميعا واستمروا بالحضور الى نهاية الشهر . العضو الذهبي سيتبقى له 10 ايام كرصيد .. حسابه يتم حسب ايام الحضور . ولم يحضر الا 20 يوما العضو البرونزي انتهى اشتراكه .. حسابه يتم حسب التاريخ : من/ الى .. نأتي الى العضو الفضي وهو محل النقاش .. الآن يستحق ثلاثة ايام كتعويض .. ولكن لنفترض ان شخصا ما غاب يوما واحدا فقط خلال الشهر .. هل سيتم منحه 3 ايام طبعا لا .. سيعوض عن يوم واحد فقط والعملية تتم بمقارنة ((( الحصة المعتمد في التعويض ) + الايام التي حضرها ..))) من جهة .. مع ايام الاشتراك المستحقة (شهر) بعملية حسابية وشرط عدم تجاوز عدد ايام الشهر يتم تعويضه فعندما نقول انه غاب يوما واحدا فستتم الحسبة على النحو التالي : عدد ايام التعويض النظامية = 3 ايام عدد ايام الحضور =29 عدد ايام الشهر 30 يوما 3 +29 = 32 .. .. الدالة سوف ترجع النتيجة الى 30 ولكن 30 -29 = 1 اذا يتم تعويضه يوما واحدا ----------------------------------- لو حسبناها على الصديق البرونزي فسوف تتم هكذا : ايام التعويض=3 ايام الحضور = 20 عدد ايام الشهر=30 3+20=23 ولكن 30-23 = 7 النتيجة اكبر من التعويض اذا يستحق كامل التعويض لا نستغني عن المقترحات والافكار منكم احبتي واخواني
×
×
  • اضف...

Important Information