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

أحمد العيسى

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

  • Posts

    441

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

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

 نوع المحتوي 

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

  1. أحمد العيسى
    لا توجد مشكلة فقد تم الحل من قبل فعلاً فقط أنا أضع محاولاتى للحل _ والتى توصلت إليها _ لأى عضو كان متابعاً هنا وحالياً قمت منذ قليل باختصار إضافى للأكواد المكررة ، ولا داعى للحديث عن ذلك 🤨
  2. أحمد العيسى
    أضفت بعض التعديلات على كود الحذف فى النموذج المعروض فى أول مشاركة فأصبح التنفيذ ممتاز فى الحذف لأول سجل وما يليه أو بالداخل أو السجل الأخير بدون أى رسائل خطأ أعلم أن بعض الأكواد تكررت ، والمطلوب تكرماً تنظيمها وعدم تكرارها مع الحفاظ على الأداء صفر مشاكل شكراً لكل من شاركنى أفكاره سواء بالرد أو بكتابة الأكواد أو بالنصيحة .. Private Sub Cmdel_Click() On Error GoTo Err_Cmdel_Click If MsgBox(":ستقوم الآن بحذف السجل المسجل بملف رقم" & vbCrLf _ & vbCrLf _ & [Nr] & " " & vbCrLf _ & [Name_T] & vbCrLf _ & " " & vbCrLf _ & "هل أنت متأكد ؟" & vbCrLf _ & "أضغط ( نعم ) للإستمرار ، أو ( لا ) لإلغاء الأمر", vbQuestion + vbYesNo _ + vbMsgBoxRight, "تحذيـــر") = vbYes Then ' ما تم إضافته لتفريغ جميع الحقول غير المرتبطة فى سجل جديد بعد حذف السجل الأخير Me.Retire.Value = "" Me.d.Value = "" Me.m.Value = "" Me.y.Value = "" Me.dd.Value = "" Me.mm.Value = "" Me.yy.Value = "" Me.Retirement.Value = "" '----------------------- Me.Recordset.Delete Me.Recordset.MoveNext ' ما تم إضافته لإعادة حساب جميع الحقول غير المرتبطة فى السجل التالى بعد حذف السجل الذى قبله GetStrat '----------------------- End If Exit_Cmdel_Click: Exit Sub Err_Cmdel_Click: MsgBox Err.Description Resume Exit_Cmdel_Click End Sub db2.mdb
  3. أحمد العيسى
    كل الشكر والتقدير لكل من kkhalifa1960 Foksh رسالة الخطأ التى تحدثت عنها فى بداية الموضوع لا تؤثر فى عمل النموذج وتعتبر شيئاً زائداً فى بعض الأحيان لكن استفدت منكما فى معرفة سببها لذلك لن أقوم بالتعديل حالياً ، فالوضع الحالى بدون تعديل هو الأفضل مرة أخرى .. شكراً جزيلاً لكما
  4. أحمد العيسى
    شكراً أخى لاهتمامك وردك سوف أضع مرفق للملف الذى أعمل عليه أدناه أحياناً الفورم يعمل بدون مشاكل بالمرة ، وفى بعض الأحيان تكون المشكلة فى حذف السجل الأخير لكن أرجو أن تضيف سجل جديد باستخدام أحد الأرقام القومية الآتية 26507111201809 أنثى 28603110400251 ذكر 27301052700568 أنثى 27908100400212 ذكر 28101200400409 أنثى والخروج من خانة الرقم القومى بعد لصقه بالضغط على زر Tab ثم قم بحذف هذا السجل .. المفترض بعد الحذف وجود صفحة بيضاء خالية من كل الحقول الغير منضمة لكن هذا لا يحدث دائماً db1.mdb
  5. أحمد العيسى
    أعتقد أن الموضوع مختلف كما تعلم : هذا الكود يمكن استخدامه فى أى قاعدة بيانات أخرى لذلك أريد معرفة سبب ظهور هذه الرسالة عند تطبيقه على حذف السجل الأخير للقاعدة وماذا تعنى وكيفية تلافيها مستقبلاً هل من الممكن فى الكود إضافة شرط : إذا كان السجل المحذوف هو الأخير فيجب إنشاء سجل جديد
  6. أحمد العيسى
    السلام عليكم ورحمة الله وبركاته باستخدام الكود التالى يمكن حذف أى سجل داخل قاعدة بيانات ما عدا عند حذف السجل الأخير فى نفس القاعدة تظهر هذه الرسالة كيف يمكن معالجة خطأ هذه الرسالة ؟؟ إذ أن المفترض بعد هذا الحذف ظهور صفحة فارغة من كل الحقول لإدخال سجل جديد الكود Private Sub Cmdel_Click() On Error GoTo Err_Cmdel_Click If MsgBox(":ستقوم الآن بحذف السجل المسجل بملف رقم" & vbCrLf _ & vbCrLf _ & [Nr] & " " & vbCrLf _ & [Name_T] & vbCrLf _ & " " & vbCrLf _ & "هل أنت متأكد ؟" & vbCrLf _ & "أضغط ( نعم ) للإستمرار ، أو ( لا ) لإلغاء الأمر", vbQuestion + vbYesNo _ + vbMsgBoxRight, "تحذيـــر") = vbYes Then Me.Recordset.Delete Me.Recordset.MoveNext End If Exit_Cmdel_Click: Exit Sub Err_Cmdel_Click: MsgBox Err.Description Resume Exit_Cmdel_Click End Sub
  7. أحمد العيسى
    تم التجربة بالتعديلات كما فى الكود السابق على السجلات الداخلية والأخيرة وإنشاء سجل جديد لا بأس لكن كما ذكرت أشعر بأن الأكواد تم تكرارها فى كل مكان .. إن كان هناك أفضل لن أمانع 😀
  8. أحمد العيسى
    نعم كل هذا صحيح ، ما عدا حذف السجل الأخير فى القاعدة هنا تظهر المشكلة حاولت مبدئياً إدخال التعديل على هذا الكود وجاري التجربة على السجلات الأخير أو إنشاء سجل جديد Private Sub Cmdel_Click() On Error GoTo Err_Cmdel_Click If MsgBox(":ستقوم الآن بحذف السجل المسجل بملف رقم" & vbCrLf _ & vbCrLf _ & [Nr] & " " & vbCrLf _ & [Name_S] & vbCrLf _ & " " & vbCrLf _ & "هل أنت متأكد ؟" & vbCrLf _ & "أضغط ( نعم ) للإستمرار ، أو ( لا ) لإلغاء الأمر", vbQuestion + vbYesNo _ + vbMsgBoxRight, "تحذيـــر") = vbYes Then Me.Recordset.Delete Me.Recordset.MoveNext 'هذه الإضافة تحقق المرجو منها ولكن أشعر بتكرار الأكواد Me.D.Value = "" Me.m.Value = "" Me.y.Value = "" Me.gender.Value = "" Me.Mohaftha.Value = "" GetStrat ' End If Exit_Cmdel_Click: Exit Sub Err_Cmdel_Click: MsgBox Err.Description Resume Exit_Cmdel_Click End Sub
  9. أحمد العيسى
    هذا ما فعلته قبل الإطلاع على تعديل حضرتك بالمرفق وحصلت على هذه الرسائل
  10. أحمد العيسى
    حينها سوف تحدث مشكلة عند حذف السجل الأخير . ممكن التعديل بالمرفق ؟
  11. أحمد العيسى
    صحيح .. وهذا ما يعطيها ميزة السرعة ، لكن ليست كل مربعات النص غير منضمة .. فقط القليل منها ولا يجب تخزينها فى الجدول بل استخدامها فى التقارير بالمناسبة .. لك الفضل الكبير فى حل مثل تلك المشكلة فى قاعدة بيانات المدرسين ، فهما متشابهان إلى حد كبير أتوقع أن يكون الحل على يديك بإذن الله
  12. أحمد العيسى
    السلام عليكم ورحمة الله وبركاته استفدت كثيراً من هذا المنتدى العريق ، ومن سعة صدر القائمين عليه .. بارك الله فيهم فى المرفق التالى توجد مشكلة ربما تكون بسيطة ، لكنى احترت فيها عند حذف السجل الذى يظهر فى الصورة ( وبه محافظة الميلاد : القليوبية) المفترض أن يتم الحذف ويحل محله السجل التالى (وسوف تتغير المحافظة الى السويس) ، لكن تظل كلمة القليوبية معلقة . لكن إذا تحركت إلى الخلف ثم إلى الأمام تجد أن التغيير قد تم بالمثل إذا ذهبت إلى السجل الأخير وقمت بحذف السجل الحالى ، يتم الحذف فعلاً ويأتى سجل فارغ محتفظاً بمحتوى النوع والمحافظة والمفترض يتم إخلائهما ، و من المفترض تفريغ قائمتى السرد لكل من الديانة والجنسية ومربعات حساب العمر لأنهما يعتمدان على الرقم القومى db1.mdb
  13. أحمد العيسى
    Me.الديانه.RowSource = "" ' Me.الديانه.Value = Null Me.الحالة_الاجتماعية.RowSource = "" ' Me.الحالة_الاجتماعية.Value = Null لزم التنويه
  14. أحمد العيسى
    تمام .. الله ينور شكراً لحضرتك
  15. أحمد العيسى
    السلام عليكم فى قاعدة البيانات المرفقة يوجد كود فى نموذج البيانات يعتمد على خانة النوع إذا كانت ذكر فيتم ملئ مربعى التحرير والسرد :الديانة (مسلم،مسيحى. والافتراضى مسلم) ، الحالة(متزوج،أعزب،مطلف،أرمل. والافتراضى متزوج) وإذا كان أنثى فيتم ملئ نفس المربعين السابقين بما يتناسب والتأنيث عند إضافة أى سجل جديد يوجد مشكلة فى تأنيث قائمة السرد ولا توجد فى المذكر قمت بتغيير السطر السادس إلى كلمة واحدة Else فنتج عن ذلك أخطاء أخرى بالجملة وكانت من نصيب السجلات القديمة If Me.gender.Value = "ذكر" Then Me.الديانه.RowSource = "مسلم;مسيحي" If IsNull(Me.الديانه) Then Me.الديانه.Value = "مسلم" Me.الحالة_الاجتماعية.RowSource = "متزوج;أعزب;مطلق;أرمل" If IsNull(Me.الحالة_الاجتماعية) Then Me.الحالة_الاجتماعية.Value = "متزوج" ElseIf Me.gender.Value = "أنثى" Then Me.الديانه.RowSource = "مسلمة;مسيحية" If IsNull(Me.الديانه) Then Me.الديانه.Value = "مسلمة" Me.الحالة_الاجتماعية.RowSource = "متزوجة;آنسة;مطلقة;أرملة" If IsNull(Me.الحالة_الاجتماعية) Then Me.الحالة_الاجتماعية.Value = "متزوجة" End If وإليكم بعض الأرقام القومية على سبيل التجربة لمن يريد إختبار ما سبق : 26507111201809 أنثى 28603110400251 ذكر 27301052700568 أنثى 27908100400212 ذكر 28101200400409 أنثى بيانات المدرسين.mdb
  16. أحمد العيسى
    شكراً جزيلاً لك استفدت من كود حضرتك بوضعه فى حدث بعد التحديث لحقل الرقم القومى 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
  17. أحمد العيسى
    السلام عليكم بالنموذج التالى حقل النوع يظهر به كلمة : ذكر أو أنثى تلقائياً وذلك بعد كتابة حقل الرقم القومى والخروج منه المطلوب أن يكون محتوى الـ Comboboxs لكل من الديانة والحالة يتناسب مع هذه الكلمة تذكيراً وتأنيثاً مثلاً إذا كان النوع ذكر فإن محتوى الـ Combobox للديانة : مسلم ، مسيحى والإفتراضى فى الحقل مسلم إذا كان النوع أنثى فإن محتوى الـ Combobox للديانة : مسلمة ، مسيحية والافتراضى فى الحقل مسلمة كذلك : إذا كان النوع ذكر فإن محتوى الـ Combobox للحالة : متزوج ، أعزب ، مطلق ، أرمل والإفتراضى متزوج إذا كان النوع أنثى فإن محتوى الـ Combobox للحالة : متزوجة ، آنسة ، مطلقة ، أرملة والإفتراضى متزوجة مرفق ملف بقاعدة بيانات تم تغيير بياناتها للسرية وذلك لإجراء ما يلزم عليها شكراً مقدماً بيانات المدرسين.mdb
  18. أحمد العيسى
    كان لى رغبة فى معرفة بديل تنسيق yyyy/mm/dd لاستخدامها فى الحقول الـ Unbound (غير منضم ) وقد رأيتها هنا : Else birthDate = Format(CDate(birthDate), YearMonthDayFormat) ' تحويل المدخل إلى تاريخ currentDate = Format(Date, YearMonthDayFormat) ' تعيين التاريخ الحالي Format YearMonthDayFormat شكراً ابو جودي
  19. أحمد العيسى
    المرفق هو آخر ملف تم وضعه بمعرفتك المراد أن يكون تنسيق التاريخ فيه : يوم / شهر / سنة فى كل خانة تحتوى عنصر تاريخ أى من اليمين لليسار yyyy/mm/dd سن التقاعد (7).accdb
  20. أحمد العيسى
    تمام .. شكراً جزيلاً وبالتأكيد سوف يستفيد الكثير _ وأنا منهم_ من أفكارك المجمعة فى مرفقك الأخير سن التقاعد 7 سؤالى فى هذا المرفق : لماذا لا تتأثر الحقول الغير منضمة بتنسيق التاريخ ( yyyy/mm/dd ) لأننى عندما أضفت هذا التنسيق لتاريخ الميلاد (غير منضم ) تم اللازم ، لكن الحقول الغير منضمة لم تتأثر به
  21. أحمد العيسى
    تمام .. فعلاً التعديل أضاف سرعة ملحوظة فى إظهار بيانات الحقول (الغير منضمة) بنموذج Frm_teacher طلب أخير .. يرجى تطبيق ذلك على التقرير الموجود بنفس المرفق : تقرير_تاريخ الإحالة للمعاش
  22. أحمد العيسى
    نظراً لضيق الوقت واختلاف المتغيرات بين أكواد ملف أخونا الحبيب ابو جودي ، وتطبيقى المتواضع فقد احتفظت بالملف كمرجع ، واستخدمت فى التطبيق دالة 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])
  23. أحمد العيسى
    منطقياً كلام صحيح .. لكن ما يتم إعلانه فى كل الإدارات أن يوم وشهر تاريخ الميلاد هو نفسه يوم وشهر استحقاق المعاش
  24. أحمد العيسى
    إنفجار بعد الإفطار فى كتابة الأكواد .. نصيحة خد لك ساتر شكراً أبو جودي على كل إبداعاتك لكن لى ملاحظة عن قانون 2019 بعيدة عن الأكواد عندما تبحث فى جوجل عن "جدول خروج الموظفين على المعاش" تجد الكثير جداً من هذا الجدول والقليل _ يكاد لا يذكر _ من هذه الصورة والسؤال لذوى الإختصاص : أيهما الصحيح 1 / 1 أم 1 / 7
  25. أحمد العيسى
    القاعدة المشار إليها تم استخدامى لها من قبل فى قاعدة بيانات المدرسين ولكن باستخدام أسلوب IIf لكن من الجميل جداً أن يكون العمل من خلال دالة احترافية كما تفضلت هنا بالنسبة للبيانات الشاملة يفضل أن يكون الباقى على تاريخ المعاش مفصلاً بالسنة والشهر واليوم كما فى الصور التالية
×
×
  • اضف...

Important Information

  I accept