مسفر

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

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

سيتم العمل على الملاحظات بإذن الله واعتذر عن التأخر فلست بالقرب من المنزل مسألة التقرير لا يعرض بيانات لأنك لم تسكن الأخ جعفر

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

ضع هذا الكود قبل الأكواد الموجودة بالزر وشكرا لك للتنبيه فقد نسيت الموضوع هذا If IsNull(ID_B) Then MsgBox "لا يوجد سرير " Exit Sub End If عند اختيار الطابق والغرفة تظهر الأسرة الموجودة بالغرفة وبما أن الثالث لا يوجد سرير فتظهر هذه الرسالة ونتفادها برسالة تخبر أنه لا يوجد سرير لأن التسكين مرتبط بوجود السرير لا بوجود الغرفة والطابق والله أعلم الملف بعد التعديل أتمنى التجربة وطرح الملاحظات لأني ربما نسيت الكثير من الأمور Askan.rar

هي محاولة سابقة لي مع أستاذي أبو خليل والذي استفدت منه أفكارا كانت غائبة عن ذهني لو لم يسعفني بها أطرحه بين أيدكم للاستفادة منه لأني سألت نفسي لماذا أحتفظ به وقد أنهيته فلا حاجة لي به فربما يحتاجه غيري ويضيف ويعدل ويطور هي محاولة مني والكمال لله سبحانه وتعالى Askan.rar

ارفق قاعدة تحتوي على الجدول المحول إليه الطالب أو الطلاب لنعمل عليها ما نستطيع عمله

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

نيابة عن أخي أبو خليل تجده في الاستعلام أخي qassim-t بهذا الشكل [forms]![frmain]![etar] بناء عليه يتم تغير الطوابق

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

نحن بالانتظار أستاذي العزيز كما أنني اكملت بعض النماذج لعلها تنال استحسان حلبي حلبي 3.rar

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

عن طريق مصدر الصف أخي العزيز كما في الصورة

حياك الله أخي العزيز الحمدلله الذي بنعمته تتم الصالحات

جرب هذا الكود في زر إضافة إذا كان حقل ( SuID ) نص وليس رقم If DCount("[SuID]", "[Contacts_T]", "SuID ='" & [Forms]![Contacts_T]![SupplierID] & "'") > 0 Then MsgBox "عذرا الاسم مكرر تاكد من عدم التكرار ", vbMsgBoxRight + vbCritical, "" Me.Undo Me![SupplierID].SetFocus Exit Sub End If

الشكر لله من قبل ومن بعد حياك الله

لعل هذا ما تريد School.accdb

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

تفضل 1 / 2 / 1140 yyyy/mm/dd ميلادي مثل ما قال الأستاذ جعفر dd/mm/yyyy توضع في تنسيق الحقل في الجدول النموذج والتقرير التاريخ.accdb

انا كانت فكرتي أبسط من هذا كله وكنت بحقق معه اشوي ( جمس بوند ) بعدين اتحول إلى ( المحقق كونن ) بعدين اعطيه اللي عندي فهو هذا المفترض أن الجداول الواحد لا يعطي نتيجة لابد من عدة اشياء تحدث حتى تستخرج النتيجة من المفترض الاتي : 1- جدول للمعلمين . 2- جدول للمعلم الغائب من خلاله حصر الغياب للمعلين ايام غيابهم وعدد الغياب بالتاريخ واليوم 3- جدول الانتظار مربوط بجدول المعلم الغائب من خلاله تسجيل المعلمين المنتظرين بالحصص والفصول والمادة وما تم عمله أثناء الانتظار ومن خلاله يستخرج عدد الانتظار لكل معلم بتقرير منفصل باليوم والتاريخ ومن خلاله أيضا يتم استخراج تقرير عام بالمعلمين المنتظرين وأمام كل واحد عدد ايام الانتظار لكن اختصرها لك الأستاذ البرفسور جعفر أطال الله بقاءه وأمده بالصحة والعافية

لماذا تعتمد على جدول واحد ؟

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

العفو أخي محمد هلا بك

Dim f As String Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount f = rst!Delchk For i = 1 To RC If f = "true" Then rst.Edit rst!Delchk = False rst.Update Else rst.Edit rst!Delchk = True rst.Update End If rst.MoveNext Next i rst.Close: Set rst = Nothing غير فقط Delchk= الحقل في الجدول هذا مسمى الحقل في الكود واترك الباقي كما هو طبقه على القاعدة كما هو ولن يحدث معك خطأ بإذن الله هذا في كود التحديد أما كود الإلغاء أعمل العكس true أجعلها false