Gamal.Saad

كده هتكون بداية الفترة  Date()-120    ونهايتها Date()

(Day([StartDate])=26 Or Day([StartDate])=1) And >=Date()-120 And <=Date()

استنادا لقيمة ثابتة :

Me.Recordset.FindFirst "[id] = 3"

واستنادا لمتغير :

Me.Recordset.FindFirst "ID=" & Me.Text1

طيب جرب الملف بعد التعديل

DATA- 4.rar

4 ساعات مضت, AboBahaa said:

أعترف حاولت وفشلت علما بأن نسخة الاوفيس عندي 2019

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

على العموم هذه طريقة آخرى باستخدام مربع نص مخفي التي ذكرتها لك في المشاركة السابقة

DATA- 2.rar

2 ساعات مضت, khasem said:

اذا تركنا شرط المادة هل يتم التوزيع بشكل منتظم

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

أنا بس أحب أنبهك لشيئ إن كنت تتحمل المسئولية أن تضع نفس مكان الطالب و مكان كل مشارك بالامتحانات عند التعامل مع نتيجة التوزيع تجنباً لحدوث مشاكل واستياء من برنامجك

استخدم OR لاضافة شرط آخر

(Day([StartDate])=26 Or Day([StartDate])=1)

واستخدم AND لاضافة شرط ثاني للتاريخ  ليتحقق الشرطان معاً :
مثلاً   التحقق من أن يكون التاريخ المدخل أقل من 120 يوم قادمة :

(Day([StartDate])=26 Or Day([StartDate])=1) And < Date()+120

التحقق من أن يكون التاريخ المدخل في فترة قبل 120 يوم سابقة : وهذا معناه أنه لن يقبل فترة حالية أو مستقبلية

(Day([StartDate])=26 Or Day([StartDate])=1) And < Date()-120

1 ساعه مضت, AboBahaa said:

- عند إختيار المحافظة مثلا (مسقط) هنا تظهر المشكلة حيث تختفي كافة البيانات بالنموذج الفرعي وكأنه لا توجد بيانات أبدا مخزنة

قيمة المحافظة من Combo Box  هي قيمة العمود الأول المختفي وهي قيمة رقمية ويظهر العمود الثاني من مربع combo box  به اسم المحافظة 

وفي حقل الاستعلام  توجد قيمة نصية بها اسم المحافظة وليس قيمة رقمية كما بالنموذج

وفي استعلامك فأنت تضع شرط ِ ب AND  تقارن بين رقم المحافظة وهو = 1 وبين اسم المحافظة من الجدول وهي = مسقط وبالتالي لا تظهر بيانات لعدم تحقق الشرط

وهناك طريقتان :

إما أن تعدل الاستعلام  وتضع به حقل كود المحافظة وتضع بها المعيار

وأما أن تنشي مربع نص مخفي وتضع مصدر التحكم Control Source ثم تجعل شرط المحافظة في الاستعلام مستندا إلى اسم مربع النص هذا
 

=[MOhafazh].[column](1)

DATA- 1.rar

بعد اذن أخي وزميلي أستاذ فايز..

شوف أستاذ khasem  : 

هناك فكرة وهي :

1 - توزيع نصف الطلاب سواء تم الترتيب حسب الاسم أو حسب المادة على المقعد الأول بكل صف

2 - استخدام طريقة المرور على السجلات مع شرط المادة و الصف  حتى يتم تسكين هذا الطالب بالسجل بالمقعد الثاني  وهكذا حتى تنتهي السجلات

أو تستخدم طريقة الدالة العشوائية أيضا مع نفس الشروط دون الحاجة للمرور على السجلات

3 - في نهاية التوزيع نقوم بترقيم القاعة حسب العدد المطلوب وهذه النقطة بسيطة

لكن القصور في تلك الفكرة  أن نصف الطلاب يتم تسكينهم على المقعد الأول بكل صف و تطبق الشروط على المقعد الثاني فقط بمعنى :

اذا كان لديك 50 طالب منهم 20 بالصف الأول والقاعة تتسع لعدد 15 مقعد  فسوف تجد أن معظم طلاب الصف الأول تتركز في القاعة الأولى بينما باقي الصفوف تتوزع على القاعات حسب الشرط

والفكرة الثانية هي نفس السابقة لكن يتم التوزيع واختبار الشرط على كلا المقعدين بكل صف

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

كل عام وأنتم بخير
وهذة هدية ووسام شرف غالي من منتدى عظيم مليئ بالأستاذة الكبار علماً وخلقاً والتزاماً
فكل الشكر والتقدير لفريق الموقع ولأساتذتي وزملائي على هذه الثقة وأتمنى أن أكون عند حسن الظن

تقصد هذا :

مثال للتعديل4.accdb

برغم أن جميع الحلول السابقة ممتازة ومناسبة لكن أحببت المشاركة في اختصار الكود :
 

في ٢٢‏/٥‏/٢٠٢٠ at 07:05, عبدالعزيز محمد said:

وقد وجدت كود يقوم بنفس العمل وهو مكتوب في سطر واحد فقط 
     SUDENT_ID = (DLookup("code", "Tabunits", "units = '" & CLASSE & "'") * 1000) + Right(Nz(DMax("sudent_id", "TabSudents", "classe = '" & CLASSE & "'"), 0) + 1, 3)

أوك . ما رأيك بهذا السطر :

Me.ID = GENRE & Format(Right(Nz(DMax("id", "TabTeachers", " Left([id],1) = " & GENRE & ""), 0) + 1, 3), "000")

Auto serial with creteria.accdb

تفضل
تم توحيد اسم الحقل المخصص لكود الموظف إلى emp_id  بالجداول الثلاثة للتسهيل فقط.

وبهذه الاحصاءات في تقريرك المطلوب لا تحتاج إلى مصدر بيانات للتقرير ولا استعلام ولا علاقات 

Dsum_Dcount_in rpt_creteria.accdb

9 ساعات مضت, kha9009lid said:

نعم رحلة طويلة قبل حتى اقراص 5.25 كانت الاقراص 8.25 ثم بعد فترة نزلت اقراص 5.25 ثم 3.5

ما اشرت اليه كانت بدايتي مع انظمة ميكروسوفت واجهزة البي سي الشخصية

ولدي قبلها تجربة مع اجهزة Mainframe وكذلك نظام UNIX وهو الاساس للانظمة الحديثة من اصدارات Linux ومشتقاته

ياااااااه سيادتك  محظوظ أنك كنت في البدايات دي وتاريخ لا ينسي
 

9 ساعات مضت, kha9009lid said:

الان التقنية تطورت بشكل كبير ومثل ما اختفت الاقراص المرنة سوف تختفي اقراص hd خصوصا ان اسعار ssd و m.2 اصبحت في متناول العديد من المستخدمين

أهم شيئ عندي في وسائط التخزين مش مساحة تخزينهم وإنما عددهم ههههه
وكل ما تزيد النسخ الاحتياطية عندي على اقراص التخزين تقل الكوابيس الليلية
لأن عندي عقدة من فقدان الداتا 
  

9 ساعات مضت, jjafferr said:

الظاهر انكم موديل قديم وما ادري 

اما انا فمن جماعة Amiga 1000 ، يعني ايام 286

هههههه سيادتك أقدم برضو ، أنا حضرت 486 
 

والله سعيد وتشرفت بمعرفتكم استاذ kha9009lid  واستاذ jjafferr  

المشكلة في المعادلة لاجمالي الكسور الموجودة كمصدر بيانات بمربع النص (نص35) المفروض تكون :

=([tt1]-[نص33])

وبعدين من خصائص مربع النص Properties ومن تبويب تنسيق Format اجعل : 

المنازل العشرية Decimal Places = Auto    أو = 2  حسب ما ترعب

مثال للتعديل 3.accdb

في ٢١‏/٥‏/٢٠٢٠ at 21:12, kha9009lid said:

من اصدار دوس3 الى دوس5 ثم ويندوز1 و 3 و3.1 و3.11 و95 و98 كلا الاصدارين وملينيوم و2000 و2003 ستاندر اديشن واكس بي وفيستا و7 و8 و8.1 واخيرا 10

لم اجد افضل من 10

أنا بدأت بعدك مع Dos5  وعلى ما أتذكر كانت هناك أقراص 5.25 المرنة للتخزين ثم كانت الثورة التكنولوجية بأقراص 3.5 المرنة 
 ورحلة طويلة مع أوامر وبرمجة واستخدام لم يكن معروفاً وقتها للغة العربية في تلك البيئة 
وبالفعل win10 64bit المفضل لدي ، لكن  متعود على وجود أكثر من جهاز كمبيوتر بالمنزل وبعضها به  أكثر من HD وقد يحتوى الهارد ديسك على نظام أو أكثر.

Storing_Pictures.accdb

2 دقائق مضت, أحمد الفلاحجى said:

جزاك الله خيرا اخى جمال @Gamal.Saad واخى @ابو تراب 💐

وهذه طريقه اخى باستخدام نماذج فرعيه كنت اعمل عليه

وجزاكم أخي

أعتقد أن طريقتك هذه أسهل وفكرة جميلة

بعد إذن الاستاذ ابو تراب والاستاذ أحمد الفلاحجي

هذه فكرة للحل

Dlookup_row Num in qry.accdb

في ١٦‏/٣‏/٢٠٢٠ at 09:29, jjafferr said:

هذه جميع مكتبات مايكروسوفت ، بصيغة نواة 32bit ومقابلها نواة 64bit ، في ملف Win32API_PtrSafe.TXT

تسلم استاذ jjafferr بارك الله فيك

التغيير باللون الأحمر  حيث ستكتب اسم الدالة واسم الحقل المطلوب للجمع ؟

=DSum("Fine";"cargoo";" [startdate] Between [forms]![copy_ff]![startdate] AND [forms]![copy_ff]![enddate]")

dcount_where_date_time(2).accdb

هناك فرق شاســــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــع بين الدالتين والنتيجة تختلف والاستخدام يحدده هدفك وما تريد فعله

على سبيل المثال لو عندك ثلاثة محاضر  :

المحضر الأول :  الرقم : 1    الغرامة : 20

المحضر الثاني :  الرقم : 2    الغرامة : 30 

المحضر الثالث:  الرقم : 3    الغرامة : 40

لو تريد عدد المحاضر بدلالة رقم المحضر أو بدلالة الغرامة فهنا يستخدم Dcount ويكون الناتج = 3

ولو تريد جمع اجمالي قيمة الغرامة لجميع المحاضر فهنا تستخدم DSum ويكون الناتج = 90

أما لو استخدمت DSum  لتجمع ارقام المحاضر فستظهر لك القيمة = 6 وطبعا هي مجموع قيم ارقام المحاضر وليس عدد المحاضر

تسلم يا غالي

والشكر موصول للأستاذ/ ابو تراب صاحب فكرة الحل منذ البداية

وتكفينا دعواتك و سعادتك ما تم حله بالبرنامج من مشكلات

بارك الله فيك وزادك من العلم

هذه مشكلة تقريب ، وبالمناسبة فهي مشكلة غريبة جدا للدالة Round 
المفترض أن :

Round(82.5, 0) 

تساوي 83 لكن الدالة تعطي 82 في مشكلة غير مفهومة للأرقام الزوجية التي يصاحبها رقم خمسة بعد العلامة العشرية

على العموم تم الحل باضافة 0.1+
 

Dynamic Array and form controls up 2.accdb

جميل جدا بارك الله فيك