أبو عبدالله الحلوانى

عضو خبير
  • Content count

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

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

  • Days Won

    2

أبو عبدالله الحلوانى last won the day on May 20 2016

أبو عبدالله الحلوانى had the most liked content!

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

218 Excellent

5 متابعين

عن العضو أبو عبدالله الحلوانى

  • تاريخ الميلاد 20 أغس, 1984

Profile Information

  • Job Title
    محاسب بشركة مياه الشرب والصرف الصحى
  • Location
    صعيد مصر

اخر الزوار

780 زياره للملف الشخصي
  1. بارك الله فى غفران ووالديها جزاك الله خيرا
  2. حاول أن تأخذ نسخة accde من الاصدار الأقدم 2007 مثلا وأعتقد بهذا سيتم تشغيلها من الاصدارات الأحدث بدون مشاكل أظن سبب هذه الرسالة الاصدار الأحدث 2013 الذى تم تصدير نسخة accde منه. جرب هذا ووافنا بالنتائج وسيقتصر تحديث البرنامج على تحديث النماذج والتقارير والاستعلامات دون الجداول.
  3. عود أحمد أيها الغائب الحاضر ولكن العجيب أنى كنت أفكر بطرح هذا الموضوع ولكن ليس بهذا الجمال والاحترافية - مكنتش أفتكر أن تلاقى الأفكار يوصل الصعيد - وأبشرك قد عمل البرنامج لدى بشكل جيد بصيغة accdb الموجودة بالمرفق بالمشاركة الأولى ويبدو أنها أضيفت مؤخرا ولكن ما استطعت تجاوز مرحلة تصميم قوالب التثبيت يطلب منى مسار للقاعدة أى قاعدة ولكن فى النهاية جزاك الله خيرا ولا حرمنا الله من ابداعاتك وأفكارك الرائعة
  4. السلام عليكم وهذه فكرتى - أقصد فكرة أخرى - وهى لاستدعاء الاختصار بدون الحاجة لفتح النموذج أصلا فقط الضغط على المفاتيح المحددة وسيتم استدعاء الحدث من الماكرو مباشرة ننشىء ماكرو - بداخله ماكرو فرعى (SubMacro) - أمام الماكرو الفرعى سنكتب : ^ 1 او أى رقم أو أى حرف نريد ثم نحفظ الماكرو باسم (AutoKeys) هذا الأسم ضرورى لكى يعمل الماكرو بشكل تلقائى بمجرد الضغط على أزرار لوحة المفاتيح ملاحظة: 1- العلامة ^ تعنى زر كنترول (Ctrl) : يعنى نضغط المفتاحين معا (Ctrl + 1) ويمكن تغير 1 لأى حرف أو رقم آخر 2- يمكن الاستغناء عن مفتاح الكنترول والاكتفاء بزر واحد فقط - يعنى ازالة ^ من اسم الماكرو الفرعى ولكن سيتطلب الأمر رموز مع المفاتيح مثل: {F1} تكتب هكذا - ولا أدرى كيف نستخدم الأحرف أو الأرقام بدون ^ فمن يدرى فليتصدق علينا بها. والآن هذا مثال طبقت الفكرة على مثال أستاذ شيفان - من باب الصراحة - افتح الملف واضغط على هذه المفاتيح F3 Ctrl + 4 Ctrl +5 Ctrl+6 فتح نماذج بواسطة ارقام.rar
  5. السلام عليكم اسمحو لى بتوضيح بسيط: من المعروف أن الأكسس يحتوى على جداول يحتفظ بها لنفسه تسمى جداول النظام وهذه الجداول لا يمكن للمستخدم التحكم بها بل يتحكم بها الأكسس بشكل آلى تماما وهذه الجداول أى خلل بها يؤدى لتلف قاعدة البيانات - وهذه الجداول يبدأ أسم كل جدول بها بالبادئة "MSys" والآن أرجو أن يكون اتضح كلام استاذ رمهان بأنك تحاول حذف علاقة نظام. هذه واحدة والأخرى: وضع هذه العبارة on error resume next بالكود لن يستثنى أو يثبت شىء وانما هذه الجملة لتجاوز الخطأ عند حدوثه وعدم اظهار مثل رسائل الخطأ السابقة وفى النهاية جرب كود أخينا شيفان بهذا التعديل Option Compare Database Option Explicit Public Function DeleteAllRelationships() On error goto erDletRl Dim db As Database Dim rex As Relations Dim rel As Relation Dim iKt As Integer Set db = CurrentDb() Set rex = db.Relations iKt = rex.Count Do While rex.Count > 0 rex.Delete rex(0).Name Loop Exit Function erDletRl: if Err.Number = 0 then MsgBox " تم حذف العلاقات بين الجداول بنجاح ", vbInformation, "العلاقات" elseif Err.Number = 3033 then Resume Next else msgbox Err.Number & VbCr & Err.Descrption End if End Function وفي زر حذف العلاقات اكتب Call DeleteAllRelationships تمنياتى بالتوفيق
  6. السلام عليكم جرب هذا لعله يوافق مطلبك ajazat.rar
  7. ملاحظة على كود الأخ أبو ابراهيم - والذى كما قال أ/ رمهان يستحق خبير من الآن - بل هو خبير فعلا عند تغير الصفحة الفارغة "ABOUT:BLANK" بأى شىء آخر يظل الزر الأيمن يعمل وبدون مشاكل
  8. هذا بالتأكيد على حد علمى. اليك هذا المثال العملاق كصاحبه وبه شرح ومثال https://www.google.com/url?q=https://www.officena.net/ib/topic/60235-%D9%87%D8%AF%D9%8A%D8%A9-%D8%B1%D8%A8%D8%B7-%D8%A7%D9%84%D8%B5%D9%88%D8%B1-%D9%88%D9%85%D9%84%D9%81%D8%A7%D8%AA-pdf-%D8%A8%D8%A7%D9%84%D9%86%D9%85%D9%88%D8%B0%D8%AC%D8%8C-%D9%88%D8%AA%D8%B4%D8%BA%D9%8A%D9%84-%D8%A7%D9%84%D9%85%D8%A7%D8%B3%D8%AD-%D8%A7%D9%84%D8%B6%D9%88%D8%A6%D9%8A/&sa=U&ved=0ahUKEwj53_if94jSAhXhd5oKHfOFAA4QFggFMAA&client=internal-uds-cse&usg=AFQjCNHbxJA4PZBUuJBUSOx6yYossFq4QA أقصد تاريخ البدأ بالجدول لا تاريخ البدأ بالنموذج لاحظى الصورة جيدا الجدول بالخلف بالصف الذى به رقم الموظف 222 به تاريخ انتهاء 11/11/2016 وليس به تاريخ ابتداء تمنياتى بالتوفيق
  9. أعتقد أنه طالما سندخل البيانات من نموذج بشروط معينة للحفظ فمن الأفضل أن لا يكون الفورم مرتبط هذه واحدة والثانية وجود المرفقات داخل قاعدة البيانات - مما يقصر العمر , عمر القاعدة يعنى - وسوف يؤدى لتضخمها بشكل كبير جدا جدا فى وقت قصير جدا جدا لذا نصيحتى أن تكون المرفقات بفولدر مستقل ويتم حفظ الرابط الخاص بها بالجدول بدلا منها هل وضعت كود فحص الأجازات خلف مربع النص الخاص بالأجازة الزمنية كما هو الحال بالأجازة الاعتيادية - أعتقد أن الجواب لا - جربى التغير وموافتنا بالنتائج. مع ملاحظة تغير مسميات عناصر التحكم داخل الكود لأ الاعتراض لم يكن من أجل تعارض التاريخ لموظف آخر وانما ولا دققنا قليلا بالصورة للاحظنا أن تاريخ البدأ فارغ وهذا مما جعل الكود يبحث فى الفترة ما بين 1/1/1900 وحتى تاريخ الانتهاء المحدد لهذا الموظف. جربى ادخال تاريخ بدأ والمحاولة مجددا.
  10. السلام عليكم انظر النتيجة بالاستعلام هل هى موافقة لمرادك ان كانت نعم حولنا الاستعلام الى تحديث أو الحاق كما تريد ووافنا بالنتائج New تطبيق Microsoft Office Access.rar
  11. وعليكم السلام ورحمة الله قومى بحذف هذا السطر من الكود فلا حاجة له فقد قمت بالتعديل على كود الحفظ ولم يعد لهذا السطر حاجة الآن وكذلك ستجدين هذا السطر فى زر جديد قومى بحذفه أيضا فقد تم تعديل الكود كذلك.
  12. يبقى المؤشر على text تاريخ بدء الاجازة ولا يمكن تغيير مكانه حتى لو قمنا بتغيير التاريخ آسف - خطأ غير مقصود وتم التعديل تاريخ طلب مستخدم سابقاً لأجازة اعتيادية او مرضية لايعترض البرنامج الكود يبحث فقط عن تاريخ بدأ وانتهاء الأجازة فقط ولم نلتفت الى تاريخ طلب الأجازة وعلى كل تم تدارك هذا أرجو التجربة وموفاتى بالنتائج الاجازات.rar
  13. جرب هذا ووافنا بالنتائج عدد الأسر وعدد الأفراد.rar
  14. السلام عليكم جربى هذا المرفق ووافنا بالنتائج الاجازات.rar
  15. السلام عليكم ماذا تقصد بالمجموعات التى تريد التجميح وفقا لها