samisalim

السلام عليكم @jjafferr استاذ جعفر عسى اكون قد وفقت في حل الواجب😃وإي ملاحظات أنا مستعد لتعديلها مرفق لكم ملف التعديل ‏‏‏‏devicesdb12 -9.rar

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

جزاك الله خير استاذ ابو خليل جربت المعيار والامور طيبة

السلام عليكم ورحمة الله وبركاته تم إضافة جداول مساعدة (للولاية - القرية - معالج الجهاز ) تم إضافة في جدول نوع المستخدم سجل (الإحلال والأقسام) تم إضافة نماذج (المستودع - معالج الجهاز) تم إضافة نموذج خاص لإضافة جهة التي سوف يتم صرف الأجهزة التعليمة عند صرف الاجهزة التعليمية مثل الطابعة - وآلة النسخ وتصوير - وغيرها ) إلى قسم معين تم دمج النماذج (بيانات الأجهزة - نوع الجهاز - الماركة - الموديل - نظام التشغيل - المعالج - المورد ) في نموذج واحد بأسم frmBasicDeviceInfrmation تم دمج النماذج (الموظفين - المدارس - اسم المستعير - الدوائر - الأقسام - القسم / المرفق المدرسي) في نموذج واحد بأسم frmBasicUserInfrmation تم إضافة التقارير التالية حصر بيانات أجهزة الحاسب الآلي بمكاتب المديرية(rptComputerDataInDirectorateOffices) حصر بيانات أجهزة الحاسب الآلي بمكاتب المدرسية(rptComputerDataInSechoolOffices) حصر بيانات الأجهزة التعليمية المديرية والمدرسية(rptEducationalDevicesDataInSechoolAndDirectorate ) استاذ @ابوخليلواجهتني مشكلة عند إرجاع جهاز أو مناقلة جهاز بين الموظفين أو المدارس أو الأقسام يظهر أكثر من سجل للجهاز في التقرير فما الحل لتفادي عملية التكرار . ‏‏‏‏devicesdb12 -6.rar

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

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

أحسنت استاذ أبو خليل وفكرة ممتازة في تجمبع النماذج طرأت على بالي فكرة في دمج حقول جدولي القسم والدائرة في جدول اسم المستخدم بعدهها نتخلص من جدولين ونموذجهما بحيث يكون ادخال البيانات عن طريق نموذج الموظفين مع استخدام خاصيةSELECT DISTINCT في حقلي الدائرة والقسم. هل ياتراه سوف تنجح الفكرة أو الاحسن في نظرك نحط الجدولي كما هما للخدمة.

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

أحسن الله إليك تم إضافة شرطين آخرين في زري الحفظ والإغلاق ElseIf IsNull(Forms!frmdevDetails!frmDetails!userType) And Not IsNull(Forms!frmdevDetails!frmDetails!receiveDate) Then MsgBox "لطفاً أدخل نوع المستخدم" ElseIf IsNull(Forms!frmdevDetails!frmDetails!users) And Not IsNull(Forms!frmdevDetails!frmDetails!receiveDate) Then MsgBox "لطفاً أدخل المستخدم" مرفق بعد التعديل ‏‏‏‏devicesdb11.7z

حاولت كتابة الكود في في حدث عند الاغلاق في النموذج الرئيسي لكن لم أنجح في ذلك وتطرقت إلى إضافة زر إغلاق If Forms!frmDevDetails!frmDetails!userType = 4 And IsNull(Forms!frmDevDetails!frmDetails!dateHireEnd) Then MsgBox "لطفاً أدخل تاريخ نهاية الإعارة" Else DoCmd.Close End If

بعد التحري والتجربة وجدت وجود مشكلة بسيطة وهي عند صرف جهاز معار وعدم إضافة تاريخ نهاية الإعارة والخروج من البرنامج بالضغط على زر X والدخول مرة ثانية في البرنامج تحدث مشكلة عدم القدرة على تسليم جهاز الإعارة بسبب تعطيل حقل تاريخ نهاية الإعارة وتم معالجة المشكلة بإضافة زر إغلاق وتعطيل زر X من النموذج If Forms!frmDevDetails!frmDetails!userType = 4 And IsNull(Forms!frmDevDetails!frmDetails!dateHireEnd) Then MsgBox "لطفاً أدخل تاريخ نهاية الإعارة" Else DoCmd.Close End If ‏‏‏‏devicesdb8.7z

ما شاء الله أبدعت يا أبو خليل في التصميم وكتابة الكود سلمت يداك واطال الله في عمرك أنا أضفت شيء بسيط فني نموذج حركة الأجهزة أتمنى أكون وفقت في ذلك عند صرف جهاز جديد يتم تعطيل حقل تاريخ التسليم وذلك بإضافة الكود بعد التحديث في حقل نوع المستخدم Me.returnDate.Enabled = False كذلك قمت بإضافة الكود بعد التحديث في حقل الاستلام للانتقال إلى زر الحفظ عند الضغط على انتر أو يتم انتقال إلى حقل نهاية الإعارة أذا كان الحقل ممكن If Me.dateHireEnd.Enabled = True Then Me.dateHireEnd.SetFocus Else Forms!frmDevDetails!zerSave.SetFocus End If في حقل تاريخ التسليم قمت بإضافة هذا الكود If IsNull(Me.userType) Then MsgBox "لاتوجد أجهزة لتسليمها الرجاء الضغط على زر جديد لصرف الجهاز" Me.returnDate = Null Else Forms!frmDevDetails!zerSave.SetFocus End If في زر حفظ تم إضافة كود تمكين تاريخ التسليم Forms!frmDevDetails!frmDetails!returnDate.Enabled = True أرفقت لكم ملف التعديل ‏‏‏‏devicesdb8.7z

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

بإذن الله تعالى

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

أستاذ أبو خليل قمت بإضافة نموذج الإعارة frmHired وحقلي تاريخ بداية الإعارة dateHireStart و تاريخ انتهاء الإعارة dateHireEnd وإضافة الإعارة في جدول نوع المستخدم ولكن واجهتني مشكلة في إخفاء وإظهار حقلي تاريخ بداية الإعارة dateHireStart و تاريخ انتهاء الإعارة dateHireEnd كذلك في زر الحفظ في كتابة الكود وهل يمكن الاستغناء من نموذج الإعارة frmHired ونكتفي بنموذج الموظفين frmEmployee لان إعارة جهاز سوف تكون لموظفين المديرية وهي بنفس بيانات جدول الموظفين مثل الاسم ورقم الوظيفي ‏‏devicesdb6_0.7z

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

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

وضعت لمسات بسيطة في واجهة نموذج حركة الأجهزة تنظيم فهرسة الحقول وكذلك عند الضغط على زر جديد وظهور نافذة يجب اختيار جهاز اخر يتم الرجوع إلى مربع البحث مرة أخرى تحديث عملية اختيار اسم المستخدم متاح غير متاح في حقل المكتب إضافة حقل حالة الجهاز يعمل لا يعمل في جدول الأجهزة ‏‏devicesdb5_0.7z

تم اضافة الصفر وانحلت المشكلة بارك الله فيك استاذ أبو خليل

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

أستاذ أبو خليل @ابوخليل قمت بدراسة نموذج حركة الأجهزة والحمد لله كله تمام ولكن ينقصه عند صرف جهاز الى المدرسة نقوم باختيار المكتب الذي سوف يتم صرف الجهاز له بهذه الطريقة أنا أضفت حقل جديد باسم المكتب المدرسي هل صحيح كذا ولا توجد طريقه أخرى devicesdb3_0.7z

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

في المرفق تم إضافة نموذج نوع الجهاز ونوع نظام التشغيل وإضافتهما إلى نموذج الأجهزة وحان الوقت والتعمق في اسرار نموذج حركة الاجهزة والنماذج المصاحبة لها☺️ devicesdb3.7z

بعد المعاينة الأولية على مرفق أستاذ أبو خليل اتضح لي كلام الأستاذ جعفر في 1)حقل: Auto_ID ونوعه ترقيم تلقائي..........> يكون متواجد في جميع الجداول 2)حقل: Auto_Date ونوعه رقم ، والقيمة الافتراضية فيه Now ............> نضعه في الجداول التي يوجد بها حقل التاريخ وهنا السؤال للأستاذ جعفر @jjafferr متى يستفيد المبرمج من الحقلين السابقين ؟