AbuuAhmed

حاولت كثيرا وبدون فائدة ، ولكن أنا من طبعي أي تصميم لا أراه نموذجيا لا أشارك فيه ، على كل حال لكل مشكلة حلا وأنا صبري نفذ ، أنت الآن تحتاج إلى مبرمج صبور يشرح برنامجك تشريحا ويدرس سلوكه جيدا ويجيد التحايل كذلك حتى يبتكر لك حلا. موفق أخي.

وما عساي أن أفعل معك؟ .. تأكد من مسميات الصناديق ومصدرها وتنسيقها كذلك الصندوقين المطلوب لصقهما في نموذج التفاصيل وليس الأب/الرئيس. عند خروج رسالة الخطأ ، التقط صورة للشاشة وبها الرسالة ، كذلك بعد انهاء الرسالة وأنت واقف على السطر المظلل مرر الفأرة على المتغيرات لتعرف المشكلة في أي متغير. موفق أخي.

لم أنتبه أن لديك حقل الأيام في الفرعي .. أضفته لك "+1" ستعرف سببه عند مشاهدتك لسجل التفاصيل رقم 3 ، إذا أردته صفرا فعدل في استعلام مصدر النموذج بالتبديل في المعادلة من +1 إلى +0 الفرق بين تاريخين بالأيام_02.accdb

بالاكسل هذا مثال لتوزيع الملاحظين على الفترات أو الحصص ، ليس من تصميمي ولكني أصلحت فيه خلل وحسنت أداءه. ميزته اختيار أو توزيع الملاحظين عشوائيا. اطلع عليه يمكن يفيدك. توزيع الملاحظين عشوائيا

مثال آخر .. جربه مع الإعتذار للزملاء لأني لم أطلع على أمثلتهم ورفعت مثالي بناءً على مشاركة السائل الأخيرة. الفرق بين تاريخين بالأيام_01.accdb

الله يعزك استاذنا @ابو جودي ويرفع من شأنك. شكرا لكم

أعترض 🙂 ، لم أشارك ولم أقرأ التفاصيل ولكن لا أعتقد أن vba عاجز عن الحل، وشكرا لكم.

أعتذر، رفعت لك ملفا مختلفا بالخطأ ، الآن جرب بعد رفع المثال الصحيح.

جرب وخبرنا مثال للدائن والمدين_01.accdb

الغريبة لي مشاركتين في هذا الموضوع بس السائل يبدو نظره ضعيف وأعتقد أنه ما قرأهما أو قرأهما بس ما عجبه اسمي.

حياك الله أخي طلبت منك التحويل لأني لا أستطيع فتح قاعدة البيانات 🙂 ، يمكن أستطيع بس الصراحة مضيعة لوقتي لأني سأضطر أصمم النماذج والجداول لعمل التجارب، وموضوعك سهل. أعتقد الشباب بعد محاولتي التصدي لموضوعك ترددوا في الدخول، ومن جهتي أقول لهم يا جماعة "درعموا" و "افزعوا" مع الرجال. فأنا مكتف اليدين. من جهتي بدعو لك،

ممكن ترفع لي نسخة 2007 وأن تحدد لي الصناديق/المربعات المطلوب التعامل معها بشكل واضح؟

أعتذر أخي، أنا عملت لك المطلوب على مثالك. فقط افهم الفكرة وطبقها أو استعن بأحد الزملاء. سامحني

جرب ربما هو المطلوب. نموذج مصغر_02.accdb

شكرا لكم استاذ @husamwahab وشكرا لجهودكم، ياريت الجميع يفعل كما فعلت، فعلا الفحص يحتاج دائما إلى التنويع في البيانات. خيرا فعلت. تم التصحيح. تم تبديل المرفقات أكثر من مرة، العملية متعبة وخصوصا لما تقارن مع مخرجات الاكسل، وكما قلت سابقا في موضوع آخر أن الاكسل يستخدم نوع رقمي أوسع من النوع double الموجود في الفيجوال، وهذا يسبب فقدان جزء ضيل جدا من قيمة الكسر وهذا ما يسبب الفروقات. لو نهمل المقارنة مع الاكسل الأمور تكون أسهل ولا تحتاج إلى مزيد من المعالجات والتحايل أحيانا. CeilingFunction4Access_03.xlsm 4ExcelFunctions4Access_03.xlsm

آمل تجربتهم بشكل مكثف والرجوع لنا بنتائج التجارب. خوفي أن هذه الدوال موجودة في الأكسس وأنا لا أعلم بها ويذهب تعبي سدى. تم تبديل المرفق في مشاركة لاحقة بعد تصحيح اخفاق في دالة Ceiling اكتشفه الاستاذ @husamwahab فشكرا له.

أخي، بعد فحص جديد انتبهت أن عملية القفز مطلوبة لاختيار ملاحظ عشوائيا. ولكن قمت بالتعديل على الشرط ليكون كالتالي: - ابقاء أحد الشرطين القديمين وهو منع تكرار الملاحظ لنفس الفترة. - منع دخول الملاحظ لفترتين متتاليتين. - أن لا يزيد عدد حضوره عن 3 على أساس أن حصة الملاحظ من الفترات = 26 فترة مقسومة على 10 ملاحظين لتكون النتيجة 2.6 فترة لقد قمت بتعطيل جزء في آخر الكود ، افحص النتائج أولا، وإذا وجدت أي ملاحظات وقبل أن ترجع لي فعل الجزء المعطل وافحص النتائج من جديد. موفقين ملاحظة_03.xlsm

يبدو أنك لم تنتبه إلى ملاحظتي ، أنا مشاغلي كثيرة وهذه المواضيع متعبة وتحتاج إلى تركيز وأنا مصاب بالتشتت. لماذا لا تطلب ممن كتب الكود بمراجعته فهو أدرى بداهليزه. على كل سوف القي نظرة عليه الليلة وإن شاء الله خير.

لقد قمت بالتالي: - الإجراء مكرر مرتين وقد قمت بحذف أحدهما - تم تنظيم الكود شكلا. - حذف سطر يمنع مقاطعة الكود أثناء المعالجة، لا أرى له فائدة سوى عرقلة المبرمج لكشف أي تكرار بلا نهاية، كما حصل معي 🙂 . - تعديل عدد الأعمدة بطرح 2 - تعطيل عملية قفز "GoTo 1" ، لا أرى أي فائدة لها، وبسببها يدخل الكود في تكرار بلا نهاية. لا أعرف صحة النتائج فلم ولن أدخل في صحة معالجتها. نصيحة للمبرمجين، تخلصوا من عملية القفز بقدر المستطاع، فعملية القفز بات حل قديم ومصدي. ملاحظة_02.xlsm

أنا لا أحتفظ بأكوادي ، فكتبت لك الدالتبين من جديد. Sub HijriYearTest() Dim Hyy As Integer Dim Days As Long Dim Greg As Long Dim Hijri1 As Long Dim Hijri2 As Double For Hyy = 1 To 9666 Greg = Hijri2Greg(Hyy, 1, 1) For Days = Greg - 1 To Greg Hijri1 = Left(Greg2Hijri(CDate(Days)), 4) 'Hijri2 = (Days + 466580.47) / 354.366666666667 + 1 Hijri2 = (Days + 466581 - 0.53) / (10631 / 30) + 1 If Hijri1 <> Fix(Hijri2) Then Debug.Print CDate(Days), Hijri1, Hijri2 End If Next Days Next Hyy Debug.Print "Done" End Sub Function Hijri2Greg(yy As Integer, mm As Integer, dd As Integer) As Long Dim DefCal As VbCalendar DefCal = Calendar Calendar = vbCalHijri Hijri2Greg = DateSerial(yy, mm, dd) Calendar = DefCal End Function Function Greg2Hijri(DtSerial As Long) As String Dim DefCal As VbCalendar DefCal = Calendar Calendar = vbCalHijri Greg2Hijri = Format(DtSerial, "yyyy/mm/dd") Calendar = DefCal End Function

شكرا لشيخ المنتدى جعفر 🙂 لفتح الموضوع وشكرا لكم جمعيا لتفاعلكم. أنا أوافق بشدة في مراجعة القوانين والتوجيهات والاقتراحات. وفقكم الله تعالى. فقط ملاحظة إضافية وهي الانتباه إلى الخبراء الجدد، فبصمة الخبير تظهر من أول مشاركاته، فاستقطبوه ولا تنتطروا ولا تنظروا إلى عدد مشاركاته أو إلى عمره في المنتدى.

نعم يتم تحديثها عند زيادة أو نقص المواد قم بزيادة مادة ثم اضغط زر "تنفيذ" من صفحة المسودة ثم احذف المادة الزائدة واضغط زر "تنفيذ" مرة أخرى. تم التعديل ، الآن يتم تحديث الأسماء بدون زيادة أو حذف مواد. كذلك تمت بعض التنقيحات البسيطة. توزيع القرار لمدارس العراق_03.xlsm

النسخة الثانية تم تبديل الكود الأساس بالكامل وتم بناءه من جديد. النتائج الآن أفضل والخيارات أوسع. وشكر خاص للاستاذ سعد @saad 77 لتقديمه المعلومات المطلوبة لانهاء المشروع. توزيع القرار لمدارس العراق_02.xlsm

تم التعديل حسب تركيبة الجداول من قبلك باسم Type1 حسب تركيبة الجداول من قبلي باسم Type2 getValue_04.rar