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

ابوخليل

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    12671

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

  • Days Won

    234

كل منشورات العضو ابوخليل

  1. ابوخليل
    تشبيه حلو في محله من وجهة نظري .. مع تحفظي على منحي لقب لست اهلا له انتم مصابيح تنير الطريق وقريبة بين الأيدي واضحة وقوية والنجوم صحيح لامعة ولكنها ليست كالمصابيح في الإضاءة .. وتحجب غالبا من عوامل كثيرة كالغيوم مثلا وقفة : آفة العلم النسيان
  2. ابوخليل
    سبحان الله هذا ما يجول في نفسي واحببت كتابته ليه بس استاذ فادي ؟؟ نسخ لصق من افكاري 😕
  3. ابوخليل
    السلام عليكم ، واضافة الى ما تفضل به اخي خليفة غالبا مثل هذه المشكلة تحدث عند فقدان مكتبة راجع مكتبات البرنامج
  4. ابوخليل
    الآن : عالجت المشكلة في مسألة التكرار وعدلت حسب اقتراحي السابق ليصبح الكود هكذا : Dim i, ii As String Dim x As Integer i = Specialty ii = i & "000" x = Left(DMax("DoctorID", "tblDoctors", "[Specialty]='" & i & "'"), 5) + 1 Me!DoctorID = Format(Str(x), "00000") & "/" & ii الآن الترقيم اصبح مثل الترقيم التلقائي في اكسس : الرقم او السجل الذي يحذف يتم تجاهله و لا يدرج مرة اخرى .. الا اذا المحذوف هو السجل الأخير ترقيم تلقائي حسب الفرع3.rar
  5. ابوخليل
    مشاركة مع حبيبنا وأستاذنا ابا جودي قد اعددت الاجابة قبل الافطار ولم اتمكن من الرفع وقتها هذه محاولتي المختصرة وراعيت فيها لو تغير الرقم الذي يشير الى الفرع على اعتباره 1000 او 2000 او 3000 ... الخ شريطة ان يستمر على هذا النسق Dim i, ii As String Dim x As Integer i = Specialty ii = i & "000" x = DCount("*", "tblDoctors", "[Specialty]='" & i & "'") + 1 Me!DoctorID = Format(Str(x), "00000") & "/" & ii طبعا يوجد ثغرة فيما لو تم حذف سجل فعند الترقيم قد يتم تكرار رقم موجود ، وعادة يكون هو آخر رقم تم تسجيله وعلاجه ان يتم ضبط الحقل بحيث لا يقبل التكرار وقد يستمر هذا الخطأ لأن الكود يعد السجلات مارأي اخي محمد @ابو جودي هل نستخدم Dmax بدلا من ذلك ؟ ترقيم تلقائي حسب الفرع2.rar
  6. ابوخليل
    طريقتك في ادخال الغياب ضمن جدول الدرجات مقبولة بل جيدة .. وايضا تسهل عليك الرصد نأتي لشرح التعديل حسب طلبك فارجو القراءة بتمعن وحرص : اولا : 1- جدول Tbl_materil اساسي ومهم جدا ضبطه بالصورة الصحيحة وانا قمت بضبطه حسب اجابتك اعلاه فالمادة اما ان تكون خاصة بالصفوف العليا او خاصة بالدنيا او مشتركه بينهما ايضا الدرجة ستبقى كما هي عمود للعليا وآخر للدنيا 2- جدول الصف يتم ضبط النوع رقم 1 للدنيا ورقم 2 للعليا ثانيا : النماذج 1- نموذج الرأس : اظهرت لك الحقل المخفي safType من اجل تطلع على التغيير عند التغيير في مربع الصف 2- مربع الصف عند الاختيار يصبح قيمة safType تساوي 1 للصفوف الدنيا و 2 للصفوف العليا 3- حقل safType نستخدمه كمعيار في استعلام مربع المواد لعرض المواد الخاصة بالدنيا او العليا + رقم 3 لأن رقم 3 يمثل المواد المشتركة بينهما الى هنا اعتقد كل شيء واضح تماما . نأتي لشرط عدم ادخال قيمة اعلى من الدرجة المقررة تم الاعلان عن متغير رقمي عام varHiDarjh تجده في الوحدة النمطية في نموذج الرأس وعند حدث بعد التحديث لمربع المواد عملنا هذا If Me.safType = 1 Then varHiDarjh = Nz(Me.mater.Column(5), 0) Else varHiDarjh = Nz(Me.mater.Column(4), 0) End If المتغير يأخذ الدرجة من مربع المواد .. لأن الدرجات موجودة في الاستعلام مصدر المربع سواء الدنيا او العليا ، فالاولية في العمود الخامس بينما درجة الصفوف العليا في العمود الرابع الآن المتغير يحمل القيمة وجاهز لاستخدامه نذهب الى النموذج الفرعي والى حقل الدرجة deg لنطلع على الحدث قبل التحديث سنجده كالتالي : If deg.Value > varHiDarjh Then Beep MsgBox "القيمة اكبر من المقرر" واعتقد ان هذا واضح ولا يحتاج شرح البحث وتعديل درجات4.rar
  7. ابوخليل
    ملحوظة : يوجد في الاكواد شرط آخر لايعمل .. وهو للدرجة الدنيا .. اي اصغر من بمعنى شرطين .. لا يقبل اكبر من ولا يقبل اصغر من
  8. ابوخليل
    يمكن تغيير الشرط وتسهيله ولكن سؤالي ما الفائدة من عمود (درجات الصفوف الدنيا) مادام هناك عمود (الصفوف) يقوم بالمهمة في التوضيح هل هي دنيا ام عليا ام مشتركة بينهما ؟؟ واذا كان وجوده كعدمه المفروض تسمية حقل ( درجات الصفوف العليا ) بـــ الدرجات فقط واذا كانت الدرجات في عمود ( درجات الصفوف الدنيا صحيحة ) لماذا الملف المتعدد ليس له درجة وكذلك ايام الحضور وايضا اليس هناك مادة خاصة بالصفوف الدنيا لا تشاركها فيه الصفوف العليا ؟؟ فقط تساؤلات .. واعذرني هذه طريقتي
  9. ابوخليل
    تفضل تحويل مبلغ2.rar
  10. ابوخليل
    في الوحدة النمطية verccp غير سطر التحديث الموجود في الدالة الى هذا DoCmd.RunSQL "UPDATE Verment SET VermentMonth=#" & Format(txtDate, "yyyy/mm/dd") & "#,TheValue=" & totalBank & ", TheValueCcp=" & totalAmount & " WHERE Month(VermentMonth)=" & monthNumber & "And Year(VermentMonth)=" & Year(txtDate)
  11. ابوخليل
    نسيت اشرح ما تم عمله .. قد تكون عرفته من غير شرح مني .. ولكن التوضيح لمن يمر من هنا ويريد ان يفهم الحسابات .. الاستاذ / الرئيسي / الفرعي / التحليلي .. كلها ضمن حقل او عمود واحد .. وهو عبارة عن رقم 8 خانات مقسمة حسب هذا التفريع خانتين خانتين الاستاذ اول رقمين ثم الرقمين التاليين تخص الرئيسي ... وهكذا فانا جعلت معيار الرئيسي هو الرقمين الأولين ، ومعيار الفرعي هي اول اربعة ارقام ، ومعيار التحليلي هي اول ستة ارقام
  12. ابوخليل
    تفضل Database2.rar
  13. ابوخليل
    Private Sub Form_Open(Cancel As Integer) Dim i As Boolean i = Nz(DLookup("Name_ID", "Name_Tbl", "Name_ID=" & crMyfrmId), 0) If i = True Then DoCmd.GoToRecord , , , crMyfrmId Else DoCmd.GoToRecord , , acNewRec End If End Sub crMyfrmId هو متغير عام يحمل رقم السجل Tracking test to المنتدى.rar
  14. ابوخليل
    نعم صحيح لا حل إلا ان يكون مشروعك بين يدي خبير وليس مثالا كالذي رفعته ( المسألة صعبة ودقيقة) .. ويستبدل الترقيم التلقائي بترقيم عادي ويترتب على ذلك انشاء حقول اخرى .. خاصة في القاعدة الثانية وتغيير قيم المعرفات فيها .. بمعنى انها ستختلف الارقام في الجداول سوف يستعين الخبير باستعلامات التحديث من اجل ضبط المسألة اعانك الله ووفقك
  15. ابوخليل
    مشاركة مع اخي فادي للفائدة العامة مشروع تأجير المركبات : 1- تكون المركبة هي رأس الهرم في المشروع ، اما العميل فهو فرع سبب بسيط بديهي : المركبة يتناوب عليها الكثير من العملاء وقد يستأجرها عميل طارىء مرة واحدة فقط المركبة هي المصدر المالي للمشروع ويجري عليها العمليات المختلفة : تحصيل اجور/ نفقات صيانة / تأمين / مبالغ للوقود / اجرة سائق ان وجد ..... الخ
  16. ابوخليل
    اخي عند الإلغاء يكون الوقت متاحا مباشرة .. الم تجرب ؟ يعني ان ان السجل الملغى يكون وجوده كعدمه .. ويبقى في السجلات لاحتمال ضرورة مالية 1- عندما تستعرض الحجوزات (القائمة) في تقرير او نموذج عليك استثناء من يحمل اشارة الإلغاء 2- يمكنك استعراض السجلات الملغية فقط ( من اجل الشؤون المالية ) تفضل تم التحويل اتمنى ان يعمل عندك مواعيد دخول وخروج.rar
  17. ابوخليل
    كنت اظن ان هذا هو الحل المناسب ، حيث فهمت من مشاركتك الاخيرة الرضا الآن .. ما المشكلة وما المطلوب ؟
  18. ابوخليل
    الشاشة 32 100% 1680x1050
  19. ابوخليل
    خطأ خفي استنفد وقتا طويلا جميع محاولاتي باءت بالفشل ، حتى انني ابتعدت عن الحاسبة اتمشى واجدد افكاري وفي النهاية اكتشفته .. انت تكتب الابتدائي هكذا الابتدائى وهو خطأ حيث نهابة الكلمة ياء وليست ألف مقصورة المهم تم ضبط الاستعلام تجد نموذجا جديدا يشتمل على زر وخلفه كود يستند الى الاستعلام .. هذا الزر يحدث بيانات الجدول الجديدة والقديمة معا في اي وقت تريد يمكنك نقل الزر وكوده الى اي نموذج تريد ملحوظة : المدير والوكيل يجب ان تكتب في حقل المرحلة .. مدير او وكيل ولا تتركه خاليا .. طبعا من خلال تسجيل جديد سيقوم اكسس بكتابته جرب ووافني بملاحظاتك برنامج حساب الحافز 6.rar
  20. ابوخليل
    انا ما اعرف السجلات التي تلصقها الصق سجل او سجلين في المثال ( بالضبط كما فعلت ) . وارفعه من اجل اعمل لك هذا التحديث وسيكون هذا التحديث دائم في اي وقت يتم تشغيله .. بمعنى لا خوف منه
  21. ابوخليل
    ممكن وبكل سهولة نعمل استعلام تحديث وبضغطة زر يحسب مجموع الحصص ونسبة الحافز والحافز الفعلي للكل المهم تكون الوظيفة وعدد الحصص الاسبوعي موجودة
  22. ابوخليل
    انا مع هذا الرأي وسبب المشكلة السابقة عند الاستاذ عبداللطيف ويمكن ان يقع فيها البعض .. ان النتيجة تظهر في الاستعلامات ( معتمدة على السعر في جدول الاصناف) ولا يتم رصد السعر المسبق في جدول التفاصيل وفكرة الأخ gavan جيدة بعمل متوسطات للأسعار .. فإذا كانت نسبة الربح محددة يمكن ضبط متوسطات الشراء وايضا متوسطات البيع
  23. ابوخليل
    جرب الآن برنامج حساب الحافز4.rar
  24. ابوخليل
    طيب جرب هذا تعديل على السريع لا يوجد معلمين سجل جديد برنامج حساب الحافز3.rar
  25. ابوخليل
    لم افهم ؟ هل تقصد نتوقف ؟ بمعنى ان العمل الاخير لم يناسبك؟
×
×
  • اضف...

Important Information

  I accept