كل الانشطه

اساتذي الفضلاء ممكن على نفس المرفق والفورم A1 عند النقر على اسم الزوجة يظهر الميساج "هذه الزوجة متوفية" وكذا الزوج علما ان الكود موجود ولكن عند التنفيذ يتجاهله

فيه شي طريقة لتغيير واجهة موقع اوفسينا الى العربية

السلام عليكم يا اصدقائي الاعزاء عندي نموذجين كالتالي FINISHED CAED TEMPLATE نموذج رئيسي افتحتة للعرض FINISHED CAED نموذج صغير يفتح فقط عند فتح الرئيسي ولكن صادفتني مشكلة انه يفتح النموذج الصغير في الخلف وليس في الامام انا اريدة عند فتح النموذج الرئيسي يفتح النموذج الصغير في الامام سويت كود له ولكن لم يفتح - مرفق لكم الكود الكود معمول عند الفتح الفتح للنموذج الرئيسي Private Sub Form_Open(Cancel As Integer) Dim db As DAO.Database Dim rst As DAO.Recordset Dim expiredCount As Long Dim activeCount As Long Set db = CurrentDb ' عد البطاقات المنتهية Set rst = db.OpenRecordset("SELECT COUNT(*) AS ExpiredCount FROM Table11 WHERE Expiry_Date < Date()") expiredCount = rst!expiredCount rst.Close ' عد البطاقات النشطة Set rst = db.OpenRecordset("SELECT COUNT(*) AS ActiveCount FROM Table11 WHERE Expiry_Date >= Date()") activeCount = rst!activeCount rst.Close Set rst = Nothing Set db = Nothing ' افتح النموذج المصغر الصغير DoCmd.OpenForm "FINISHED CAED", acNormal ' مرر البيانات إلى الحقول في النموذج المصغر FORMS("FINISHED CAED").Controls("EXP").Value = expiredCount FORMS("FINISHED CAED").Controls("FAL").Value = activeCount ' تشغيل المؤقت المؤقت لتقديم النموذج المصغر للأمام بعد الفتح Me.TimerInterval = 100 ' 100 مللي ثانية ' يمكنك تعليق رسالة MsgBox لأنك تعرض البيانات في النموذج الصغير ' MsgBox "لديك " & expiredCount & " من البطاقات المنتهية." & vbCrLf & _ ' "ولديك " & activeCount & " من البطاقات النشطة في النظام والان يتم عرض المنتهية فقط.", vbInformation, "حالة البطاقات" End Sub

الله يبارك بيك استاذي وكثر الله من امثالك وفي ميزان حسناتك

ابشر انشاء الله بعد صلاة المغرب بكمل الموضوع وبعرضه لأاني بدأته بالفعل وباق اللمسات الأخيرة .. كما بالصورة .

الحمد لله على انقضاء الحاجة فائدة : يمكن توظيف المتغير هذا .. بحيث يمكن تضمينه قيمة نصية صريحة

نساله تعالى ان يعافيه ويذهب عنه السوء انه هو سبحانه الشافي لا اله إلا الله - الشافي - المعافي

حياكم الله بالملف المرفق ممكن جمع اوقات - وممكن تكون النتيجة كما مكتوبة سلمتم - واي استفسار للوصول النتيجة يرجى التواصل مجموع المدة كاوقات.xlsx

شكرا استاذي على التعديل الجميل اي تم الاستغناء عن 0 & 1=testTypeGender

استاذ @mohamed_ets اولا كنا منتظرين اجابنك على اسئلة أستاذ @Foksh كي نساعدك . المهم 1- من تحليل الصورة الاولى :- حل مشكلة عدم القدرة على حفظ التغييرات في Microsoft Accessيبدو أنك تواجه مشكلة في حفظ التغييرات في قاعدة بيانات Access بسبب أن الملف مفتوح من قبل مستخدم آخر. إليك بعض الحلول الممكنة: الحلول المباشرة: إغلاق جميع نسخ Access وإعادة فتح الملف بحقوق حصرية: أغلق جميع نسخ Access المفتوحة افتح الملف مع الضغط على زر Shift أثناء الفتح أو استخدم خيار "فتح بحقوق حصرية" من قائمة File إعادة تشغيل الكمبيوتر: أحيانًا يعالج هذا المشكلة إذا كان هناك قفل على الملف بسبب عملية سابقة حلول أخرى: إنشاء نسخة جديدة من الملف: استخدم "Save As" لحفظ الملف باسم جديد أو استخدم "Compact and Repair Database" من قائمة Tools فحص وجود ملف .lck: ابحث عن ملف بنفس اسم قاعدة البيانات ولكن بامتداد .lck في نفس المجلد واحذفه إذا كنت تعمل على شبكة: تأكد من عدم وجود مستخدم آخر يصل إلى الملف تحقق من أذونات المجلد للتأكد من أن لديك حقوق الكتابة 1- من تحليل الصورة الثانية :- حل مشكلة "You do not have exclusive access to the database" في Access هذه المشكلة شائعة في Microsoft Access وتحدث عندما يحاول عدة مستخدمين تعديل التصميم في نفس الوقت، أو عندما يكون الملف مقفولاً. إليك الحلول التفصيلية: الحلول الفورية: إغلاق جميع نسخ Access وإعادة الفتح بحقوق حصرية: أغلق جميع نوافذ Access المفتوحة اضغط بزر الماوس الأيمن على ملف قاعدة البيانات اختر "فتح باستخدام" → Microsoft Access أثناء الفتح، اضغط مع الاستمرار على مفتاح Shift لفتحه في وضع الحصرية استخدام خيار "فتح بحقوق حصرية": شغّل برنامج Access أولاً (بدون فتح الملف) اذهب إلى File → Open حدد ملف قاعدة البيانات انقر على السهم الصغير بجوار زر Open واختر "Open Exclusive" حلول متقدمة: إصلاح قاعدة البيانات: من قائمة File اختر "Info" انقر على "Compact & Repair Database" احفظ نسخة جديدة من الملف حذف ملف القفل (.lck): اذهب إلى مجلد قاعدة البيانات ابحث عن ملف بنفس الاسم ولكن بامتداد .lck احذف هذا الملف (تأكد من عدم وجود أحد يستخدم قاعدة البيانات عند القيام بذلك) نسخ التقرير إلى قاعدة بيانات جديدة: أنشئ قاعدة بيانات جديدة فارغة استخدم خيار "Import" لاستيراد التقرير من القاعدة القديمة إلى الجديدة إذا كنت تعمل على شبكة: طلب من المستخدمين الآخرين الإغلاق: تأكد من عدم وجود مستخدمين آخرين يعدلون التصميم اطلب من الجميع إغلاق قاعدة البيانات مؤقتًا فحص أذونات الملف: تأكد أن لديك صلاحيات الكتابة على الملف والمجلد اضغط بزر الماوس الأيمن على الملف → Properties → Security نصائح وقائية: احفظ نسخة احتياطية من قاعدة البيانات بانتظام تجنب فتح قاعدة البيانات للتصميم من خلال الشبكة، انسخها محلياً أولاً استخدم "Split Database" إذا كان عدة مستخدمين يحتاجون الوصول جرب هذه الحلول بالترتيب، وعادةً ما يحل أحدها المشكلة. إذا استمرت المشكلة، قد تحتاج إلى فحص إضافي لإعدادات الشبكة أو أذونات الملفات. لاحظ بالتحليلين وجود عامل مشترك هو وجود ملف بنفس الاسم ولكن بامتداد .lck احذف هذا الملف (تأكد من عدم وجود أحد يستخدم قاعدة البيانات عند القيام بذلك)

مشكور

تفضل استاذ @RAIANESAMI اليك المرفق بعد التعديل وبه طلبك . جرب ووافني بالرد . واذا كان هذا طلبك لا تنسى الضغط على تمت الاجابة حتى يستفيد غيرك من هذا العمل . DDFinding Differences-EmpIDtxt.rar

اخي احمد اولا : لم توفق باختيار عنوان مناسب للموضوع يوافق ما عرضته ثانيا : ومن شرحك .. طريقتك في تصميم مشروعك غير صحيحة الصحيح ان تكون جميع اسماء المعلمين ( ابتدائي / متوسط / ثانوي ) ضمن جدول واحد فقط ، وتعمل حقل يبين مرحلته كذا ومن خلال التصفية في الاستعلام يمكنك حصر معلمي كل مرحلة وعرضهم لوحدهم والتعامل معهم

EmpID

تفضل استاذ @dd13901390 طلبك . ووافني بالرد . Lists.rar

أي حقل أذكر اسمه ؟؟؟؟

ازاي ممكن اجعل اسم معلم مسجل بياناته علي قوة المرحلة الابتدائية في جدول باسم Data_Tech ومنتدب لمدرسه اعداي يظهر اسمه فقط في المدرسة الاعدادي بدون ما يكون ضمن اعداد مدرسين الاعدادي في جدول Data_Tech2

بعد التدقيق في فكرة أستاذي ومعلمي @ابوخليل ، تبين لي ان المتغير لا يتم حجزه بشكل مناسب قبل فتح التقرير ، وهنا خطر لي تعديل بسيط بحيث نعتمد على قيمة CheckBox في النموذج A1 والذي هو مفتاح الربط في فكرتي ، بحيث اذا كان فارغاً يتم تعديل القيمة كما فعل أستاذي في فكرته ، وإلا فيتم عرض النص الأصلي ( بين عرض اسم الزوج أو الزوجة ) جرب تعديل حدث عند التحميل للتقرير بهذا الأسلوب :- Private Sub Report_Load() Me.Rep1.Value = Rept1 Me.Rep2.Value = Rept2 'المعلومات الشخصية Me.Nom.Value = TempVars("Nom") Me.Prenom.Value = TempVars("Prenom") Me.Date_Naiss.Value = TempVars("Date_Naiss") Me.Lieu_Naiss.Value = TempVars("Lieu_Naiss") Me.Nom_Per.Value = TempVars("Nom_Per") Me.Nom_Mer.Value = TempVars("Nom_Mer") Me.CheckBox.Value = TempVars("CheckBox") Me.Prenom1.Value = TempVars("Prenom1") Me.ep = IIf(([CheckBox]) = 0, "أرملة", "حرم") 'الشاهد الاول Me.C1.Value = TempVars("C1") Me.N1.Value = TempVars("N1") Me.d1.Value = TempVars("D1") Me.L1.Value = TempVars("L1") 'الشاهد الثاني Me.C2.Value = TempVars("C2") Me.N2.Value = TempVars("N2") Me.D2.Value = TempVars("D2") Me.L2.Value = TempVars("L2") ''السكن وبلدية الاقامة Me.N4.Value = TempVars("N4") Me.N5.Value = TempVars("N5") If Not IsNull(Forms!a1!CheckBox) Or (Forms!a1!CheckBox) <> "" Then text1 = [Prenom] & " " & [Nom] & " " & [ep] & " " & [Prenom1] Else text1 = [Prenom] End If End Sub

تمت الإجابة بكل التفاصيل في هذه المشاركة ، في الموضوع : عمل كشفين لجنة

الخلل عندي استاذ سأتمعنه غدا خطوة بخطوة بحول الله

شكرا كثيرا يا مهندس اريده ان يكون نوع الحقل نصي

لا اعلم اين المشكلة ، ولكن انظر النتيجة من مرفق الأستاذ @ابوخليل

تم الأمر بنجاح بعد توضيحك لجميع المعطيات ,, شكراً لك سعة صدرة وتحملي في اسئلتي أخي @2saad الآن بالنسبة للإحصاءات ، فقد تمت كالآتي :- أولاً، انشاء استعلام الإحصائيات (qry_LagnaStats) :- SELECT Tbl_student.id_lagna, Sum(IIf(gender=1,1,0)) AS بنون, Sum(IIf(gender=2,1,0)) AS بنات, Count(*) AS العدد, Min(Tbl_student.Stugalos) AS من, Max(Tbl_student.Stugalos) AS إلى FROM Tbl_student WHERE (((Tbl_student.alsaf_Id)=[Forms]![frm_Reports]![ComboSaf])) GROUP BY Tbl_student.id_lagna; ثم تعديل الإستعلام الرئيسي "QQQR_STU" ( مصدر التقرير ) ، كالآتي :- SELECT Tbl_student.id_student, Tbl_student.Studentname, Tbl_student.Stucod, Tbl_student.Stugalos, Tbl_student.gender, Tbl_eldina.eldina, Tbl_student.id_lagna, Tbl_saf.saf, Tbl_lagna.ellagna, Tbl_school.moder, Tbl_school.masolelhasab, Tbl_school.raeselcontrol, Tbl_lagna.almoraqeb FROM Tbl_school, Tbl_gender INNER JOIN ((Tbl_saf INNER JOIN (Tbl_student INNER JOIN Tbl_lagna ON Tbl_student.id_lagna = Tbl_lagna.id_lagna) ON Tbl_saf.saf_id = Tbl_student.alsaf_Id) INNER JOIN Tbl_eldina ON Tbl_student.eldina_id = Tbl_eldina.eldina_id) ON Tbl_gender.gendr_id = Tbl_student.gender WHERE Tbl_student.alsaf_Id = [Forms]![frm_Reports]![ComboSaf] ORDER BY Tbl_student.Stucod, Tbl_student.id_lagna; ثم نقس عناصر الإحصاءات الى الجزء "Group Footer لـ id_lagna" ، لتظهر تحت كل لجنة بشكل منفصل ومستقل . ثم تعديل قيم مربعات النص الخاصة بالأعداد والإحصاءات لتكون كالآتي :- عدد الذكور: =DLookup("بنون", "qry_LagnaStats", "id_lagna=" & [id_lagna]) عدد الإناث: =DLookup("بنات", "qry_LagnaStats", "id_lagna=" & [id_lagna]) العدد: =DLookup("العدد", "qry_LagnaStats", "id_lagna=" & [id_lagna]) من: =DLookup("من", "qry_LagnaStats", "id_lagna=" & [id_lagna]) إلى: =DLookup("إلى", "qry_LagnaStats", "id_lagna=" & [id_lagna]) أما فيما يخص نقطة تسلسل الترقيم لكل لجنة ليبدأ من 1 فقط ما تم هو تغيير ما في الصورة أدناه :- وعليه ، يصبح الملف بعد التعديلات = Data20.zip

نعم تم الحجز استاذي ولكن بدون نتيجة صحيحة علما اني نسخت الفورم A1 والتقرير Face5 في ملفي وبقيت النتيجة على حالها علما ان تعديل الاستاذ ابوخليل على المرفق صحيح 100% مانعرف اين يكمن المشكل

شكرا أخي الفاضل علي تعبك وسعة صدرك بالنسبة للترقيم تمام ( هو المطلوب ) ولكن أنا محتاج الدباجة السفلية تظهر تحت كل لجنة ( يعني تظهر تحت لجنة 1 ولجنة 2 وهكذا .... ) عايز زي كده نموذج.pdf بحيث عدد التلاميذ للجنة نفسها بنون بنات بداية رقم الجلوس نهاية رقم الجلوس ومسئول الحاسب ورئيس الكنترول زي pdf المرفق