samisalim قام بنشر يناير 13, 2022 الكاتب قام بنشر يناير 13, 2022 أستاذ أبو خليل @ابوخليل قمت بدراسة نموذج حركة الأجهزة والحمد لله كله تمام ولكن ينقصه عند صرف جهاز الى المدرسة نقوم باختيار المكتب الذي سوف يتم صرف الجهاز له بهذه الطريقة أنا أضفت حقل جديد باسم المكتب المدرسي هل صحيح كذا ولا توجد طريقه أخرى devicesdb3_0.7z
ابوخليل قام بنشر يناير 13, 2022 قام بنشر يناير 13, 2022 تمام .. عمل جميل .. والى الاحتراف انا عدلت تعديل طفيف على حقل المكتب 1- جعلته لا يكون متاح حتى تختار المدرسة 2- حولت الحقل في نموذج العرض الفرعي الى نصي بدلا من مربع التحرير 3- ايضا وضعت رسالة خلف زر جديد اذا لم يتم اختيار جديد devicesdb4_0.rar
samisalim قام بنشر يناير 13, 2022 الكاتب قام بنشر يناير 13, 2022 4 ساعات مضت, ابوخليل said: تمام .. عمل جميل .. والى الاحتراف انا عدلت تعديل طفيف على حقل المكتب 1- جعلته لا يكون متاح حتى تختار المدرسة 2- حولت الحقل في نموذج العرض الفرعي الى نصي بدلا من مربع التحرير 3- ايضا وضعت رسالة خلف زر جديد اذا لم يتم اختيار جديد devicesdb4_0.rar 92.03 kB · 0 downloads ما شاء الله لمسات جميله جزاك الله خيرا أستاذ أبو خليل بعد تحويل حقل المكتب من مربع تحرير إلى نصي ظهرت معي مشكلة عند صرف جهاز للموظفين لا تظهر بياناتهم في نموذج الفرعي وعندما بحثت عن المشكلة تبين لي
ابوخليل قام بنشر يناير 13, 2022 قام بنشر يناير 13, 2022 لم يظهر لان ليس له مقابل في جدول المكاتب وبما ان الموظفين ليس لهم مكاتب فنعوض عن القيمة بصفر اضف صفر الى جدول المكاتب tblSchoolOffice كما في الصورة 1
samisalim قام بنشر يناير 13, 2022 الكاتب قام بنشر يناير 13, 2022 1 ساعه مضت, ابوخليل said: لم يظهر لان ليس له مقابل في جدول المكاتب وبما ان الموظفين ليس لهم مكاتب فنعوض عن القيمة بصفر اضف صفر الى جدول المكاتب tblSchoolOffice كما في الصورة تم اضافة الصفر وانحلت المشكلة بارك الله فيك استاذ أبو خليل
ابوخليل قام بنشر يناير 14, 2022 قام بنشر يناير 14, 2022 بقي شيء يجب ضبطه .. بعد اضافة الصفر في عمود الرقم سيبقى اسم المكتب خالي وحين تنقر على مربع التحرير (المكتب ) في النموذج الفرعي لتختار المكتب سيظهر لك في اسفل القائمة سجل خالي .. وطبعا يجب الا يظهر ومعالجته هو ان تضع معيارا في الاستعلام الذي هو مصدر الصف تحت عمود الاسم العبارة التالية : Not Is Null ارفقت لك المثال بعد التعديل للاطلاع devicesdb4_0.rar 1
samisalim قام بنشر يناير 14, 2022 الكاتب قام بنشر يناير 14, 2022 وضعت لمسات بسيطة في واجهة نموذج حركة الأجهزة تنظيم فهرسة الحقول وكذلك عند الضغط على زر جديد وظهور نافذة يجب اختيار جهاز اخر يتم الرجوع إلى مربع البحث مرة أخرى تحديث عملية اختيار اسم المستخدم متاح غير متاح في حقل المكتب إضافة حقل حالة الجهاز يعمل لا يعمل في جدول الأجهزة devicesdb5_0.7z
samisalim قام بنشر يناير 14, 2022 الكاتب قام بنشر يناير 14, 2022 أستاذ أبو خليل ارشدني ماهي الخطوة التالية بعد انتهاء من تصميم نموذج حركة الأجهزة ماذا عن نظام الإعارة هل ندمجه مع حركة الأجهزة او يكون في نموذج جديد
ابوخليل قام بنشر يناير 14, 2022 قام بنشر يناير 14, 2022 اولا يوجد ثغرة عند نقر زر جديد ، والجهاز جديد فعلا حيث يطالب بادخال التاريخ واذا ادخلت التاريخ يتم الحفظ على حقول خالية سوى التاريخ والمفروض ان يتم فتح الحقول المغلقة بمجرد النقر اذا كان الجهاز جديد بالنسبة للاعارة فانا ارى او بمعنى اصح لو كنت اعمل على البرنامج لجعلت الاعارة ضمن هذا الفورم استدراك مع الاعتذار ... عند الضغط على زر حفظ وليس زر جديد 1
ابوخليل قام بنشر يناير 14, 2022 قام بنشر يناير 14, 2022 يجب ان يكون السطر الاول هكذا If IsNull(Me.receiveDate) And Not IsNull(Me.users) Then
ابوخليل قام بنشر يناير 14, 2022 قام بنشر يناير 14, 2022 تصوري لعملية لاعارة : 1- نضيف كلمة اعارة لجدول نوع الوظيفة ، من اجل تظهر ضمن مربع التحرير 2- نظيف اسم المستعير وبياناته ضمن جدول الاسماء 3- تجرى على المستعير عملية تسليم الجهاز كغيره من الموظفين والمدارس 4- عند اختيار اعارة واختيار اسم المستعير يتم اظهار حقلين للتاريخ من / الى 5- نضيف في جدول العمليات الحقلين المشار اليهما هذا كل شيء بحيث تكون جميع عملياتك ضمن مكان واحد تصور تم استلام جهاز من مستعير ونريد تسليمه لجهة اخرى سواء كانت ضمن الدائرة او اعارة اخرى .. ستتم العملية حسب طريقتنا بكل يسر
samisalim قام بنشر يناير 15, 2022 الكاتب قام بنشر يناير 15, 2022 8 ساعات مضت, ابوخليل said: اولا يوجد ثغرة عند نقر زر جديد ، والجهاز جديد فعلا حيث يطالب بادخال التاريخ واذا ادخلت التاريخ يتم الحفظ على حقول خالية سوى التاريخ والمفروض ان يتم فتح الحقول المغلقة بمجرد النقر اذا كان الجهاز جديد بالنسبة للاعارة فانا ارى او بمعنى اصح لو كنت اعمل على البرنامج لجعلت الاعارة ضمن هذا الفورم استدراك مع الاعتذار ... عند الضغط على زر حفظ وليس زر جديد بالفعل لاحظت هذه الثغرة معذور أطال الله في عمرك أستاذ خليل 8 ساعات مضت, ابوخليل said: يجب ان يكون السطر الاول هكذا If IsNull(Me.receiveDate) And Not IsNull(Me.users) Then راح استبدله بهذا الكود 7 ساعات مضت, ابوخليل said: تصوري لعملية لاعارة : 1- نضيف كلمة اعارة لجدول نوع الوظيفة ، من اجل تظهر ضمن مربع التحرير 2- نظيف اسم المستعير وبياناته ضمن جدول الاسماء 3- تجرى على المستعير عملية تسليم الجهاز كغيره من الموظفين والمدارس 4- عند اختيار اعارة واختيار اسم المستعير يتم اظهار حقلين للتاريخ من / الى 5- نضيف في جدول العمليات الحقلين المشار اليهما هذا كل شيء بحيث تكون جميع عملياتك ضمن مكان واحد تصور تم استلام جهاز من مستعير ونريد تسليمه لجهة اخرى سواء كانت ضمن الدائرة او اعارة اخرى .. ستتم العملية حسب طريقتنا بكل يسر فهمت تصورك استاذ أبو خليل سوف اشتغل عليه اليوم بإذن الله تعالى
samisalim قام بنشر يناير 16, 2022 الكاتب قام بنشر يناير 16, 2022 أستاذ أبو خليل قمت بإضافة نموذج الإعارة frmHired وحقلي تاريخ بداية الإعارة dateHireStart و تاريخ انتهاء الإعارة dateHireEnd وإضافة الإعارة في جدول نوع المستخدم ولكن واجهتني مشكلة في إخفاء وإظهار حقلي تاريخ بداية الإعارة dateHireStart و تاريخ انتهاء الإعارة dateHireEnd كذلك في زر الحفظ في كتابة الكود وهل يمكن الاستغناء من نموذج الإعارة frmHired ونكتفي بنموذج الموظفين frmEmployee لان إعارة جهاز سوف تكون لموظفين المديرية وهي بنفس بيانات جدول الموظفين مثل الاسم ورقم الوظيفي devicesdb6_0.7z
ابوخليل قام بنشر يناير 17, 2022 قام بنشر يناير 17, 2022 نعم كلامك صح .. يكونوا مع الموظفين بشرط اضافة نوع الوظيفة ولو جعلتهم في فورم خاص يكون ابعد عن احتمال الخطأ كما ذكرت انت انهم موظفون ولكن الفرق في ان الاعارة محددة بزمن دعني اطلع على الملف .. وقد اقوم ببعض التعديلات .. ولكن كما اتفقنا ، العمل فقط على ملف واحد عندما انتهي منه اسلمه لك .. وانت كذلك ... وهكذا 1
samisalim قام بنشر يناير 18, 2022 الكاتب قام بنشر يناير 18, 2022 10 ساعات مضت, ابوخليل said: نعم كلامك صح .. يكونوا مع الموظفين بشرط اضافة نوع الوظيفة ولو جعلتهم في فورم خاص يكون ابعد عن احتمال الخطأ كما ذكرت انت انهم موظفون ولكن الفرق في ان الاعارة محددة بزمن دعني اطلع على الملف .. وقد اقوم ببعض التعديلات .. ولكن كما اتفقنا ، العمل فقط على ملف واحد عندما انتهي منه اسلمه لك .. وانت كذلك ... وهكذا بإذن الله تعالى
ابوخليل قام بنشر يناير 18, 2022 قام بنشر يناير 18, 2022 تم التعديل على الملف احيي فيك محاولاتك لصنع الكود بنفسك الاكواد تبنى على الفكرة واحدة واحدة ، قد تجد صعوبة في تشغيل بعض الجزئيات خاصة في النماذج المرتبطة فهنا انت بحاجة الى مساعدة صديق بالنسبة لفورم الاعارة فاتركه كما هو ، حيث وجدتك طبقت فكرة الحذف تماما تم حذف حقل بداية الاعارة من الجدول ومن الفورم لانه تحصيل حاصل حيث ان حقل الاستلام يقوم مقامه تم نقل زر الحفظ الى الفورم الرئيسي من اجل سهولة التحديث وضمان عمل الكود على اكمل وجه تم صياغة الاحداث واكوادها من جديد تم عمل لمسات على واجهة الفورم .. لاني رأيت البيانات الثابتة تشد الانتباه وليس بينها وبين الحقول المحررة فرق فأحببت تمييزها وخفض الضوء الآن فورم حركة العهدة يعمل على اكمل وجه جرب جميع الطرق ووافني بالنتيجة devicesdb7.rar 1
samisalim قام بنشر يناير 19, 2022 الكاتب قام بنشر يناير 19, 2022 12 ساعات مضت, ابوخليل said: تم التعديل على الملف احيي فيك محاولاتك لصنع الكود بنفسك الاكواد تبنى على الفكرة واحدة واحدة ، قد تجد صعوبة في تشغيل بعض الجزئيات خاصة في النماذج المرتبطة فهنا انت بحاجة الى مساعدة صديق بالنسبة لفورم الاعارة فاتركه كما هو ، حيث وجدتك طبقت فكرة الحذف تماما تم حذف حقل بداية الاعارة من الجدول ومن الفورم لانه تحصيل حاصل حيث ان حقل الاستلام يقوم مقامه تم نقل زر الحفظ الى الفورم الرئيسي من اجل سهولة التحديث وضمان عمل الكود على اكمل وجه تم صياغة الاحداث واكوادها من جديد تم عمل لمسات على واجهة الفورم .. لاني رأيت البيانات الثابتة تشد الانتباه وليس بينها وبين الحقول المحررة فرق فأحببت تمييزها وخفض الضوء الآن فورم حركة العهدة يعمل على اكمل وجه جرب جميع الطرق ووافني بالنتيجة devicesdb7.rar 145 kB · 1 download جزاك الله خيرا استاذ ابو خليل بإذن الله بشتغل عليه واخبرك بالمستجدات استفسار ما اللغة البرمجيه التي احتاجها لكي اتعلم كتابة الكودات هل لغة c++ او لغة أخرى
ابوخليل قام بنشر يناير 19, 2022 قام بنشر يناير 19, 2022 اللغة في اكسس هي فيجوال بيسك مع اختلافات طفيفة ان اردت الخروج عن بيئة اكسس فالبحر واسع 1
samisalim قام بنشر يناير 19, 2022 الكاتب قام بنشر يناير 19, 2022 ما شاء الله أبدعت يا أبو خليل في التصميم وكتابة الكود سلمت يداك واطال الله في عمرك أنا أضفت شيء بسيط فني نموذج حركة الأجهزة أتمنى أكون وفقت في ذلك عند صرف جهاز جديد يتم تعطيل حقل تاريخ التسليم وذلك بإضافة الكود بعد التحديث في حقل نوع المستخدم 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 1
ابوخليل قام بنشر يناير 19, 2022 قام بنشر يناير 19, 2022 ما شاء الله لا قوة الا بالله بقي لمسة لعلها تكون الاخيرة وهي عند الحفظ اذا كان المستخدم مستعيرا يجبره على كتابة تاريخ نهاية الاعارة عملتها لك فاستبدل كود الحفظ عندك بالكود التالي If IsNull(Forms!frmDevDetails!frmDetails!receiveDate) And Not IsNull(Forms!frmDevDetails!frmDetails!users) Then MsgBox "لطفاً أدخل تاريخ التسليم" ElseIf Forms!frmDevDetails!frmDetails!userType = 4 And IsNull(Forms!frmDevDetails!frmDetails!dateHireEnd) Then MsgBox "لطفاً أدخل تاريخ نهاية الإعارة" Exit Sub End If Dim i As Integer i = Me.id Me.Requery Me![coSearch] = i Call coSearch_AfterUpdate
samisalim قام بنشر يناير 20, 2022 الكاتب قام بنشر يناير 20, 2022 (معدل) 17 ساعات مضت, ابوخليل said: تم استبدال الكود في زر الحفظ If IsNull(Forms!frmDevDetails!frmDetails!receiveDate) And Not IsNull(Forms!frmDevDetails!frmDetails!users) Then MsgBox "لطفاً أدخل تاريخ التسليم" ElseIf Forms!frmDevDetails!frmDetails!userType = 4 And IsNull(Forms!frmDevDetails!frmDetails!dateHireEnd) Then MsgBox "لطفاً أدخل تاريخ نهاية الإعارة" Exit Sub End If Dim i As Integer i = Me.id Me.Requery Me![coSearch] = i Call coSearch_AfterUpdate بعد التحري والتجربة وجدت وجود مشكلة بسيطة وهي عند صرف جهاز معار وعدم إضافة تاريخ نهاية الإعارة والخروج من البرنامج بالضغط على زر X والدخول مرة ثانية في البرنامج تحدث مشكلة عدم القدرة على تسليم جهاز الإعارة بسبب تعطيل حقل تاريخ نهاية الإعارة وتم معالجة المشكلة بإضافة زر إغلاق وتعطيل زر X من النموذج If Forms!frmDevDetails!frmDetails!userType = 4 And IsNull(Forms!frmDevDetails!frmDetails!dateHireEnd) Then MsgBox "لطفاً أدخل تاريخ نهاية الإعارة" Else DoCmd.Close End If devicesdb8.7z تم تعديل يناير 20, 2022 بواسطه samisalim
samisalim قام بنشر يناير 20, 2022 الكاتب قام بنشر يناير 20, 2022 حاولت كتابة الكود في في حدث عند الاغلاق في النموذج الرئيسي لكن لم أنجح في ذلك وتطرقت إلى إضافة زر إغلاق If Forms!frmDevDetails!frmDetails!userType = 4 And IsNull(Forms!frmDevDetails!frmDetails!dateHireEnd) Then MsgBox "لطفاً أدخل تاريخ نهاية الإعارة" Else DoCmd.Close End If
ابوخليل قام بنشر يناير 20, 2022 قام بنشر يناير 20, 2022 تمام .. احسنت في عملك حدث الاغلاق يمكننا تنفيذ امر معين قبل الاغلاق ، ولكن الاغلاق سوف يتم بمعنى سيتم الاغلاق سواء تحقق الشرط ام لا ولا نكتفي عند زر الاغلاق بشرط واحد وانما نطبق جميع الشروط عليه وهي الموجودة في زر الحفظ تم التعديل واليك المرفق devicesdb10.rar 1
samisalim قام بنشر يناير 21, 2022 الكاتب قام بنشر يناير 21, 2022 22 ساعات مضت, ابوخليل said: تمام .. احسنت في عملك حدث الاغلاق يمكننا تنفيذ امر معين قبل الاغلاق ، ولكن الاغلاق سوف يتم بمعنى سيتم الاغلاق سواء تحقق الشرط ام لا ولا نكتفي عند زر الاغلاق بشرط واحد وانما نطبق جميع الشروط عليه وهي الموجودة في زر الحفظ أحسن الله إليك تم إضافة شرطين آخرين في زري الحفظ والإغلاق 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
ابوخليل قام بنشر يناير 21, 2022 قام بنشر يناير 21, 2022 تمام اخوي سامي اعتقد اننا استوفينا حركة العهد بالكامل ، واختزلناها في واجهة واحدة واصبحت اكثر احكاما واتقانا 80% من العمل سيكون على هذا النموذج هل لاحظت اننا لم نعمل او نحتاج لأي استعلام خارجي يمكننا ايضا ان نختزل النماذج المساعدة ( المتشابههة في عدد الحقول) ذكرت لك هذا لاني رأيتك طالب علم شغف بالتعلم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.