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

أحمد العيسى

03 عضو مميز
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    426

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

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

 نوع المحتوي 

كل منشورات العضو أحمد العيسى

  1. أحمد العيسى
    شكراً جزيلاً لك استفدت من كود حضرتك بوضعه فى حدث بعد التحديث لحقل الرقم القومى Private Sub National_Nr_AfterUpdate() Me.birth.Value = Date_Sex_Province([National_Nr], 1) Me.gender.Value = Date_Sex_Province([National_Nr], 2) Me.Mohaftha.Value = Date_Sex_Province([National_Nr], 3) If Me.gender.Value = "ذكر" Then Me.الديانه.RowSource = "مسلم;مسيحي" Me.الديانه.Value = "مسلم" Me.الحالة_الاجتماعية.RowSource = "متزوج;أعزب;مطلق;أرمل" Me.الحالة_الاجتماعية.Value = "متزوج" Else Me.الديانه.RowSource = "مسلمة;مسيحية" Me.الديانه.Value = "مسلمة" Me.الحالة_الاجتماعية.RowSource = "متزوجة;آنسة;مطلقة;أرملة" Me.الحالة_الاجتماعية.Value = "متزوجة" End If End Sub وبعد التجربة ، كانت النتيجة كما أردت تماماً بيانات المدرسين.rar
  2. أحمد العيسى
    السلام عليكم بالنموذج التالى حقل النوع يظهر به كلمة : ذكر أو أنثى تلقائياً وذلك بعد كتابة حقل الرقم القومى والخروج منه المطلوب أن يكون محتوى الـ Comboboxs لكل من الديانة والحالة يتناسب مع هذه الكلمة تذكيراً وتأنيثاً مثلاً إذا كان النوع ذكر فإن محتوى الـ Combobox للديانة : مسلم ، مسيحى والإفتراضى فى الحقل مسلم إذا كان النوع أنثى فإن محتوى الـ Combobox للديانة : مسلمة ، مسيحية والافتراضى فى الحقل مسلمة كذلك : إذا كان النوع ذكر فإن محتوى الـ Combobox للحالة : متزوج ، أعزب ، مطلق ، أرمل والإفتراضى متزوج إذا كان النوع أنثى فإن محتوى الـ Combobox للحالة : متزوجة ، آنسة ، مطلقة ، أرملة والإفتراضى متزوجة مرفق ملف بقاعدة بيانات تم تغيير بياناتها للسرية وذلك لإجراء ما يلزم عليها شكراً مقدماً بيانات المدرسين.mdb
  3. أحمد العيسى
    كان لى رغبة فى معرفة بديل تنسيق yyyy/mm/dd لاستخدامها فى الحقول الـ Unbound (غير منضم ) وقد رأيتها هنا : Else birthDate = Format(CDate(birthDate), YearMonthDayFormat) ' تحويل المدخل إلى تاريخ currentDate = Format(Date, YearMonthDayFormat) ' تعيين التاريخ الحالي Format YearMonthDayFormat شكراً ابو جودي
  4. أحمد العيسى
    المرفق هو آخر ملف تم وضعه بمعرفتك المراد أن يكون تنسيق التاريخ فيه : يوم / شهر / سنة فى كل خانة تحتوى عنصر تاريخ أى من اليمين لليسار yyyy/mm/dd سن التقاعد (7).accdb
  5. أحمد العيسى
    تمام .. شكراً جزيلاً وبالتأكيد سوف يستفيد الكثير _ وأنا منهم_ من أفكارك المجمعة فى مرفقك الأخير سن التقاعد 7 سؤالى فى هذا المرفق : لماذا لا تتأثر الحقول الغير منضمة بتنسيق التاريخ ( yyyy/mm/dd ) لأننى عندما أضفت هذا التنسيق لتاريخ الميلاد (غير منضم ) تم اللازم ، لكن الحقول الغير منضمة لم تتأثر به
  6. أحمد العيسى
    تمام .. فعلاً التعديل أضاف سرعة ملحوظة فى إظهار بيانات الحقول (الغير منضمة) بنموذج Frm_teacher طلب أخير .. يرجى تطبيق ذلك على التقرير الموجود بنفس المرفق : تقرير_تاريخ الإحالة للمعاش
  7. أحمد العيسى
    نظراً لضيق الوقت واختلاف المتغيرات بين أكواد ملف أخونا الحبيب ابو جودي ، وتطبيقى المتواضع فقد احتفظت بالملف كمرجع ، واستخدمت فى التطبيق دالة IIf فى مربع نص باسم Retirement =IIf([birth]<#01/07/1971#;DateAdd("yyyy";60;[birth]);IIf(([birth]<#01/07/1972#);DateAdd("yyyy";61;[birth]);IIf(([birth]<#01/07/1973#);DateAdd("yyyy";62;[birth]);IIf(([birth]<#01/07/1974#);DateAdd("yyyy";63;[birth]);IIf(([birth]<#01/07/1975#);DateAdd("yyyy";64;[birth]);IIf([birth]>=#01/07/1975#;DateAdd("yyyy";65;[birth]))))))) حيث birth هو تاريخ الميلاد ثم أنشأت مربع نص جديد لحساب سن التقاعد ووضعت به : =Year([Retirement])-Year([birth])
  8. أحمد العيسى
    منطقياً كلام صحيح .. لكن ما يتم إعلانه فى كل الإدارات أن يوم وشهر تاريخ الميلاد هو نفسه يوم وشهر استحقاق المعاش
  9. أحمد العيسى
    إنفجار بعد الإفطار فى كتابة الأكواد .. نصيحة خد لك ساتر شكراً أبو جودي على كل إبداعاتك لكن لى ملاحظة عن قانون 2019 بعيدة عن الأكواد عندما تبحث فى جوجل عن "جدول خروج الموظفين على المعاش" تجد الكثير جداً من هذا الجدول والقليل _ يكاد لا يذكر _ من هذه الصورة والسؤال لذوى الإختصاص : أيهما الصحيح 1 / 1 أم 1 / 7
  10. أحمد العيسى
    القاعدة المشار إليها تم استخدامى لها من قبل فى قاعدة بيانات المدرسين ولكن باستخدام أسلوب IIf لكن من الجميل جداً أن يكون العمل من خلال دالة احترافية كما تفضلت هنا بالنسبة للبيانات الشاملة يفضل أن يكون الباقى على تاريخ المعاش مفصلاً بالسنة والشهر واليوم كما فى الصور التالية
  11. أحمد العيسى
    هذا ما فعلته أخى لأنه فى بداية المشاركة لم يكن يجيب سوى الأخ العزيز أبو عارف .. والسؤال الآن موجه لك : ماذا تقصد بالضبط !!!!
  12. أحمد العيسى
    مش ممكن يكون غلس .. ده حبيب الكل الآن عرفت هو مين ؟ لأننى متابعك من بدايات أوفيسنا إضافاتك ممتازة ، ولمساتك جميله فى كل تطبيقاتك ..... لكن لى ملاحظة بسيطة ( تعتبر غير مؤثرة ولم أذكرها لأخى أبو عارف وهى موجودة أيضاً فى مشاركتك ) عند الضغط على زر معاينة التقرير لا يتأثر برقم الصفحات "من" : " إلى" بل يعرض التقرير بأكمله ولو 100 صفحة فى حين الضغط على زر طباعة التقرير يلتزم بمواصفات الطباعة من صفحة # إلى صفحة # ...
  13. أحمد العيسى
    تمام .. هو المطلوب بارك الله فيك
  14. أحمد العيسى
    تمام .. الله ينور يتبقى عمل إجراء وحيد : عند اختيار مربع "كل الصفحات" يتم حذف محتويات مربع " من" ، مربع " إلى" إذا كان بهما أرقام سبق وأن تم وضعهما والأفضل أصلاً أن يكونا فارغين و غير متاح الكتابة فيهما ، إذا تم التأشير على مربع "كل الصفحات"
  15. أحمد العيسى
    السلام عليكم أثناء تصفحى لصفحات أوفيسنا عثرت على هذا التطبيق الرائع ولا أعرف لمن هو بالتحديد من الأعضاء الكرام مطلوب تعديل فى منطقة السهم الأحمر الأختيار ثابت فقط عند مربع كل الصفحات والمفترض التحديد يتبادل بينه وبين مربع الصفحات Full Control Of Print Report.mdb
  16. أحمد العيسى
    سبق وأن طبقت حالة مشابهة فى تقرير لإظهار استمارة 1_سري للمدرسين بهذه الدالة =Mid([National_Nr];14;1) =Mid([National_Nr];13;1) . . حيث National_Nr هو حقل الرقم القومى الأرقام 14 ، 13 ، ... ، 1 هى ترتيب كل رقم داخل هذا الحقل من اليمين لليسار بينما رقم 1 المكرر فى كل دالة معناه اختيار عدد واحد فقط من 14 رقم ربما توجد طريقة أسهل من الزملاء .. لكن هذا الذى حقق الغرض عندى .
  17. أحمد العيسى
    كلامك صحيح هذا الطرح ليس المقصود منه تلقى تقدير أو ثناء ، بل رغبة فى التطوير أكثر وأكثر لأن المحتوى تم بناءه على مطبوعات أرسلها لى وكيل شئون العاملين بمدرسة وكما أسلفت كانت أفكار الأخوة الأحباب خبراء وأعضاء خير معين فى بناء البرنامج وفى نهاية الموضوع وضعت ما توصلت إليه لكى يستفيد منه كل إداري بأى مدرسة وبالمناسبة التصميم يراعى الناحية الجمالية مع التبسيط والسهولة بالتلميحات وإن كان لديك الوقت ، فلا تردد بوضع تصميم جديد لأحد النماذج فقط لأغير رأيي
  18. أحمد العيسى
    كان الهدف من وضع هذا التطبيق هنا هو التطوير ليكون تطبيق عام للمدرسين لمختلف المدارس كمثال : تقرير1 سري ... هل هو مناسب لجميع المدرسين ؟ الخدمات المطبوعة للمدرسين .. ما الناقص ليتم إضافته ؟ .......................................................... للأسف : 63 تحميل حتى هذه اللحظة ، ولا تعليق سلبى أو إيجابى !!
  19. أحمد العيسى
    أشكرك أستاذ جمال على مرورك لمن لا يعلم ، الأستاذ جمال هو المستشار القانونى للرد على أسئلة أعضاء منتديات داماس القديم بارك الله فى عمرك أخى الفاضل
  20. أحمد العيسى
    السلام عليكم قاعدة التطبيق تم عملها على أكسس 2003 وهى تعمل أيضاً على أى أكسس حتى 2024 أكواد القاعدة تحتوى على الكثير والكثير من الأفكار والحيل الرائعة لمحترفى أعضاء المنتدى منهم أبو هادى والأخت زهرة وسيد عبدالعال وابو خليل وغيرهم من الأحباء القدامى والجدد لا أدعى أن البرنامج قد حقق الكثير من أهدافه ، لكنه أرضى كل مدرسة هنا قامت باستخدامه الرقم السري للدخول " 1 " ويمكن تغييره فى الإعدادات وإليكم بعض الصور لشاشاته تحياتى لجميع أعضاء أوفيسنا ، والشكر الكبير لهذا المنتدى العريق بيانات المدرسين.rar
  21. أحمد العيسى
    تمام تحقق المطلوب بعد تغيير الفاصلة ; إلى , Me.Caption =DLookUp("[school]","Tbl_basic")
  22. أحمد العيسى
    السلام عليكم بمربع النص فى التقرير فى خانة مصدر عنصر التحكم يمكن وضع هذا السطر ="مدرسة " & DLookUp("[school]";"Tbl_basic") فيتم وضع اسم المدرسة أمام كلمة مدرسة المأخوذ من جدول Tbl_Basic لكن ما سبق فى النموذج لا يصلح فى خانة تسمية توضيحية هل هناك سطر برمجى يصلح لكتابة ما سبق كعنوان للنموذج أي فى الـ Caption
  23. أحمد العيسى
    تمام .. شكراً جزيلاً
  24. أحمد العيسى
    الإجابة الأولى لم تحقق المطلوب .. لكن شكراً لواضعها الإجابة الثانية : كيف يتم عمل Requery وهل هو يختلف عن Recalc ليكون السؤال أكثر وضوحاً هذه أوامر فتح شاشة الصف الأول : Private Sub btnOne_Click() On Error GoTo Err_btnOne_Click Dim DocName As String Dim LinkCriteria As String Form_frm_basic.Refresh Form_frm_basic.Visible = False ' frm_basic ' الشاشة الرئيسية DocName = "frm_Main1" ' frm_Main1 ' شاشة الصف الأول DoCmd.OpenForm DocName, , , LinkCriteria Exit_btnOne_Click: Exit Sub Err_btnOne_Click: MsgBox Error$ Resume Exit_btnOne_Click End Sub وهذه أوامر زر الرجوع من شاشة الصف الأول إلى الشاشة الرئيسية : Private Sub Cmd_Exit_Click() On Error GoTo Err_Cmd_Exit_Click DoCmd.Close 'frm_Main1 ' غلق شاشة الصف الأول Form_frm_basic.Visible = True 'frm_basic ' إظهار الشاشة الرئيسية Exit_Cmd_Exit_Click: Exit Sub Err_Cmd_Exit_Click: MsgBox Err.Description Resume Exit_Cmd_Exit_Click End Sub
  25. أحمد العيسى
    السلام عليكم بالنموذج الرئيسى مربع نص يحتوى على عرض عدد سجلات جدول وليكن سجلات الصف الأول وعند الانتقال لشاشة الصف الأول لإجراء أى عمليات حذف ، و بعد الضغط على زر "رجوع" للشاشة الرئيسية المفترض أن أجد تحديثاً لمحتوى مربع النص ، لكن هذا لا يتم إلا بعد تنشيط الدخول والخروج مرة أخرى للشاشة الرئيسية
×
×
  • اضف...

Important Information

  I accept