اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

بناء قاعدة بيانات عهدة أجهزة من الصفر(الجداول)


samisalim

الردود الموصى بها

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

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

1312532345_Screenshot2022-01-13140524.png.224cc217ef8a7d6a8603d841703926dd.png

 

 

 

 

devicesdb3_0.7z

رابط هذا التعليق
شارك

تمام .. عمل جميل .. والى الاحتراف

انا عدلت تعديل طفيف على حقل المكتب

1- جعلته لا يكون متاح حتى تختار المدرسة

2- حولت الحقل في نموذج العرض الفرعي الى نصي بدلا من مربع التحرير

3- ايضا وضعت رسالة خلف زر جديد اذا لم يتم اختيار جديد

 

devicesdb4_0.rar

رابط هذا التعليق
شارك

4 ساعات مضت, ابوخليل said:

تمام .. عمل جميل .. والى الاحتراف

انا عدلت تعديل طفيف على حقل المكتب

1- جعلته لا يكون متاح حتى تختار المدرسة

2- حولت الحقل في نموذج العرض الفرعي الى نصي بدلا من مربع التحرير

3- ايضا وضعت رسالة خلف زر جديد اذا لم يتم اختيار جديد

 

devicesdb4_0.rar 92.03 kB · 0 downloads

ما شاء الله لمسات جميله جزاك الله خيرا 

أستاذ أبو خليل بعد تحويل حقل المكتب من مربع تحرير إلى نصي ظهرت معي مشكلة عند صرف جهاز للموظفين لا تظهر بياناتهم1455370089_Screenshot2022-01-13201550.png.32725edd8a1e4da3e0f04ea95bd5b19c.png في نموذج الفرعي وعندما بحثت عن المشكلة تبين لي 

585108252_Screenshot2022-01-13200934.png.0173671ca40c1ce2691ba7429c74ee8f.png

1455370089_Screenshot2022-01-13201550.png.32725edd8a1e4da3e0f04ea95bd5b19c.png

رابط هذا التعليق
شارك

لم يظهر لان ليس له مقابل في جدول المكاتب

وبما ان الموظفين ليس لهم مكاتب فنعوض عن القيمة بصفر

اضف صفر الى جدول المكاتب tblSchoolOffice  كما في الصورة

 

 

Untitled.jpg

  • Like 1
رابط هذا التعليق
شارك

1 ساعه مضت, ابوخليل said:

لم يظهر لان ليس له مقابل في جدول المكاتب

وبما ان الموظفين ليس لهم مكاتب فنعوض عن القيمة بصفر

اضف صفر الى جدول المكاتب tblSchoolOffice  كما في الصورة

 

 

Untitled.jpg

تم اضافة الصفر وانحلت المشكلة 

بارك الله فيك استاذ أبو خليل 

رابط هذا التعليق
شارك

بقي شيء يجب ضبطه .. بعد اضافة الصفر في عمود الرقم سيبقى اسم المكتب خالي

وحين تنقر على مربع التحرير (المكتب ) في النموذج الفرعي لتختار المكتب سيظهر لك في اسفل القائمة سجل خالي .. وطبعا يجب الا يظهر 

ومعالجته هو ان تضع معيارا في الاستعلام الذي هو مصدر الصف تحت عمود الاسم

العبارة التالية :  Not Is Null

ارفقت لك المثال بعد التعديل للاطلاع

 

devicesdb4_0.rar

  • Like 1
رابط هذا التعليق
شارك

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

1450533583_Screenshot2022-01-15004608.png.28cf6c4a5b1edc515efaf93e1bde2bf6.png

 

 

 

‏‏devicesdb5_0.7z

رابط هذا التعليق
شارك

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

ماذا عن نظام الإعارة هل ندمجه مع حركة الأجهزة او يكون في نموذج جديد

رابط هذا التعليق
شارك

اولا يوجد ثغرة عند نقر زر جديد ، والجهاز جديد فعلا

حيث يطالب بادخال التاريخ واذا ادخلت التاريخ يتم الحفظ على حقول خالية سوى التاريخ

والمفروض ان يتم فتح الحقول المغلقة  بمجرد النقر اذا كان الجهاز جديد

 

بالنسبة للاعارة فانا ارى او بمعنى اصح لو كنت اعمل على البرنامج لجعلت الاعارة ضمن هذا الفورم

 

استدراك مع الاعتذار ... عند الضغط على زر حفظ وليس زر جديد

  • Like 1
رابط هذا التعليق
شارك

تصوري لعملية لاعارة :

1- نضيف كلمة اعارة لجدول نوع الوظيفة ، من اجل تظهر  ضمن مربع التحرير

2- نظيف اسم المستعير وبياناته ضمن جدول الاسماء

3- تجرى على المستعير عملية تسليم الجهاز كغيره من الموظفين والمدارس

4- عند اختيار اعارة واختيار اسم المستعير يتم اظهار حقلين للتاريخ  من / الى

5- نضيف في جدول العمليات الحقلين المشار اليهما

هذا كل شيء

بحيث تكون جميع عملياتك ضمن مكان واحد

تصور تم استلام جهاز من مستعير ونريد تسليمه لجهة اخرى سواء كانت ضمن الدائرة او اعارة اخرى .. ستتم العملية حسب طريقتنا بكل يسر 

رابط هذا التعليق
شارك

8 ساعات مضت, ابوخليل said:

اولا يوجد ثغرة عند نقر زر جديد ، والجهاز جديد فعلا

حيث يطالب بادخال التاريخ واذا ادخلت التاريخ يتم الحفظ على حقول خالية سوى التاريخ

والمفروض ان يتم فتح الحقول المغلقة  بمجرد النقر اذا كان الجهاز جديد

 

بالنسبة للاعارة فانا ارى او بمعنى اصح لو كنت اعمل على البرنامج لجعلت الاعارة ضمن هذا الفورم

 

استدراك مع الاعتذار ... عند الضغط على زر حفظ وليس زر جديد

بالفعل لاحظت هذه الثغرة

معذور أطال الله في عمرك أستاذ خليل 

 

8 ساعات مضت, ابوخليل said:

يجب ان يكون السطر الاول هكذا

If IsNull(Me.receiveDate) And Not IsNull(Me.users) Then

 

راح استبدله بهذا الكود 

7 ساعات مضت, ابوخليل said:

تصوري لعملية لاعارة :

1- نضيف كلمة اعارة لجدول نوع الوظيفة ، من اجل تظهر  ضمن مربع التحرير

2- نظيف اسم المستعير وبياناته ضمن جدول الاسماء

3- تجرى على المستعير عملية تسليم الجهاز كغيره من الموظفين والمدارس

4- عند اختيار اعارة واختيار اسم المستعير يتم اظهار حقلين للتاريخ  من / الى

5- نضيف في جدول العمليات الحقلين المشار اليهما

هذا كل شيء

بحيث تكون جميع عملياتك ضمن مكان واحد

تصور تم استلام جهاز من مستعير ونريد تسليمه لجهة اخرى سواء كانت ضمن الدائرة او اعارة اخرى .. ستتم العملية حسب طريقتنا بكل يسر 

فهمت تصورك استاذ أبو خليل سوف اشتغل عليه اليوم بإذن الله تعالى

رابط هذا التعليق
شارك

أستاذ أبو خليل قمت بإضافة نموذج الإعارة frmHired 

وحقلي تاريخ بداية الإعارة dateHireStart و تاريخ انتهاء الإعارة dateHireEnd 

وإضافة الإعارة في جدول نوع المستخدم

ولكن واجهتني مشكلة في إخفاء وإظهار حقلي تاريخ بداية الإعارة dateHireStart و تاريخ انتهاء الإعارة dateHireEnd 

كذلك في زر الحفظ في كتابة الكود

وهل يمكن الاستغناء من نموذج الإعارة frmHired ونكتفي بنموذج الموظفين frmEmployee  لان إعارة جهاز سوف تكون لموظفين المديرية وهي بنفس بيانات جدول الموظفين مثل الاسم ورقم الوظيفي

599489351_Screenshot2022-01-17004115.png.0bf1587762d328589d425d7add36e624.png

 

 

‏‏devicesdb6_0.7z

رابط هذا التعليق
شارك

نعم كلامك صح .. يكونوا مع الموظفين بشرط اضافة نوع الوظيفة  

ولو جعلتهم في فورم خاص يكون ابعد عن احتمال الخطأ

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

 

دعني اطلع على الملف .. وقد اقوم ببعض التعديلات .. ولكن كما اتفقنا ، العمل فقط على ملف واحد

عندما انتهي منه اسلمه لك .. وانت كذلك ... وهكذا

  • Like 1
رابط هذا التعليق
شارك

10 ساعات مضت, ابوخليل said:

نعم كلامك صح .. يكونوا مع الموظفين بشرط اضافة نوع الوظيفة  

ولو جعلتهم في فورم خاص يكون ابعد عن احتمال الخطأ

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

 

دعني اطلع على الملف .. وقد اقوم ببعض التعديلات .. ولكن كما اتفقنا ، العمل فقط على ملف واحد

عندما انتهي منه اسلمه لك .. وانت كذلك ... وهكذا

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

رابط هذا التعليق
شارك

تم التعديل على الملف

احيي فيك محاولاتك لصنع الكود بنفسك

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

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

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

تم نقل زر الحفظ الى الفورم الرئيسي من اجل سهولة التحديث وضمان عمل الكود على اكمل وجه

تم صياغة الاحداث واكوادها من جديد

تم عمل لمسات على واجهة الفورم .. لاني رأيت البيانات الثابتة تشد الانتباه وليس بينها وبين الحقول المحررة فرق فأحببت تمييزها وخفض الضوء

الآن فورم حركة العهدة يعمل على اكمل وجه

جرب جميع الطرق ووافني بالنتيجة

‏‏devicesdb7.rar

  • Like 1
رابط هذا التعليق
شارك

12 ساعات مضت, ابوخليل said:

تم التعديل على الملف

احيي فيك محاولاتك لصنع الكود بنفسك

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

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

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

تم نقل زر الحفظ الى الفورم الرئيسي من اجل سهولة التحديث وضمان عمل الكود على اكمل وجه

تم صياغة الاحداث واكوادها من جديد

تم عمل لمسات على واجهة الفورم .. لاني رأيت البيانات الثابتة تشد الانتباه وليس بينها وبين الحقول المحررة فرق فأحببت تمييزها وخفض الضوء

الآن فورم حركة العهدة يعمل على اكمل وجه

جرب جميع الطرق ووافني بالنتيجة

‏‏devicesdb7.rar 145 kB · 1 download

جزاك الله خيرا استاذ ابو خليل 

بإذن الله بشتغل عليه واخبرك بالمستجدات 

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

رابط هذا التعليق
شارك

ما شاء الله أبدعت يا أبو خليل في التصميم وكتابة الكود سلمت يداك واطال الله في عمرك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

ما شاء الله لا قوة الا بالله 

بقي لمسة لعلها تكون الاخيرة

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

عملتها لك فاستبدل كود الحفظ عندك بالكود التالي

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

 

رابط هذا التعليق
شارك

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

 

919065302_Screenshot2022-01-20195707.png.dfabeb5e1763449e1d38aabe64f6c6b2.png

‏‏‏‏devicesdb8.7z

تم تعديل بواسطه samisalim
رابط هذا التعليق
شارك

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

If Forms!frmDevDetails!frmDetails!userType = 4 And IsNull(Forms!frmDevDetails!frmDetails!dateHireEnd) Then
MsgBox "لطفاً أدخل تاريخ نهاية الإعارة"
Else
DoCmd.Close
End If

 

رابط هذا التعليق
شارك

تمام  ..  احسنت في عملك

حدث الاغلاق يمكننا تنفيذ امر معين قبل الاغلاق ، ولكن الاغلاق سوف يتم

بمعنى سيتم الاغلاق سواء تحقق الشرط ام لا

ولا نكتفي عند زر الاغلاق بشرط واحد وانما نطبق جميع الشروط عليه وهي الموجودة في زر الحفظ

تم التعديل

واليك المرفق

 

‏‏‏‏devicesdb10.rar

  • Like 1
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

تمام  اخوي سامي

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

واصبحت اكثر احكاما واتقانا

80% من العمل سيكون على هذا النموذج

هل لاحظت اننا لم نعمل او نحتاج لأي استعلام خارجي

 

يمكننا ايضا ان نختزل النماذج المساعدة ( المتشابههة في عدد الحقول) 

ذكرت لك هذا لاني رأيتك طالب علم شغف بالتعلم

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information