واخيرا خلصت مرحلة طويلة من برنامجي

جميل ربنا يوفقك

انت شغال فى الشركة دى

شركة ممتازة بجد

بداية جيدة

بالتوفيق ان شاء الله

شكرا لكم على مروركم

بس ما لقيت اي تعليق عن البرنامج اخطاء نقد شي من هالقبيل

بالنسبة للاخ اللي سأل اي نعم اشتغل بالشركة دي

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

ما شاء الله بارك الله لك يا ابو الفوز

ولكن عندي سؤال ماشاء الله عليك ممكن تخبرني كيف

خليت الخلفية زرقاء وحجم الشاشةعلى الشاشة بالكامل

ولفت نظري شيء

أن ما عندك أزرار حفظ الله يحفظك

وأزرار حذف الله يحذف عنك الأذى

وأزرار تعديل على الركورد الله يجعل حياتك عدلة

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

والتنقل عبرالسجلات يكون( بالماوس سكرول ) أو البحث الذي قمت باضافته أنت

وأنا أنتظرد ردك بفارغ الصبر

programmer_prof

اهلا بك

منور الصفحة وشكر على ردك اللطيف

بالنسبة لاسئلتك انا اخذ كل يوم ما بين ساعه وساعتين لمدة اسبوع ونصف والحمدلله انجزت اللي تشوفه

أحمد بدوان

شكرا لك اخي الفاضل على ردك

وان شاء الله اجيب على اسألتك

كيف خليت الخلفية زرقاء وحجم الشاشةعلى الشاشة بالكامل؟

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

كليك يمين على النموذج بعدين تنسيق ولون الخلفية واختر ما تشاء من الالوان.

بالنسبة للشاشة كاملة

اول شي انشيء ماكرو وخلي الامر اللي فيه Maximize

بعدين غير خصائص التنسيق للنموذج كالتالي

أشرطة التمرير= لا هذا ولا ذاك

محددات السجلات = لا

ازرار التنقل = لا

الخطوط المقسمة = لا

تغيير حجم تلقائي = لا

نمط الحدود = بلا

مربع عنصر التحكم = لا

زرا التكبير والتصغير = بلا

زر الإغلاق = بلا

زر ماهذا = لا

وبعدين خصائص النموذج غير ذلك

منبثق = نعم

شكلي أو مشروط = نعم

السماح بتغييرات التصميم = طريقة عرض "التصميم" فقط

بعدين خصائص حدث في الحالي حط الماكرو Maximize

وامورك ان شاء الله بتمشي تمام

ولفت نظري شيء

أن ما عندك أزرار حفظ الله يحفظك

وأزرار حذف الله يحذف عنك الأذى

وأزرار تعديل على الركورد الله يجعل حياتك عدلة

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

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

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

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

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

وهذا هو الكود كالتالي

الكود هذا تضعه تحت التكست بوكس اللي تبي تسوي منه البحث طبعا الحدث رح يكون بعد التحديث

Private Sub textboxname_AfterUpdate()
   DoCmd.SelectObject A_FORM, "ضع هنا اسم الفورم" 
   DoCmd.GoToControl "اسم الحقل المراد البحث عنه" 
   DoCmd.FindRecord Me![ضع اسم التيكست بوكس] 
   DoCmd.GoToControl "اسم الحقل المراد البحث عنه" 
   textboxname.SetFocus 
   textboxname = "" 'لجعل مرع النص فارغا
End Sub

وهذا هو الكود الخاص بالزر

Private Sub command1_Click()
If command1.Caption = "Quick Search By Order No" Then
    textboxname.Visible = True
    textboxname_label.Visible = True
    command1.Caption = "Stop Searcing"
ElseIf command1.Caption = "Stop Searcing" Then
    command1.Caption = "Quick Search By Order No"
    textboxname.Visible = False
    textboxname_label.Visible = False
End If
End Sub

لكم مني خالص التحايا

بس ياليت اشوف انتقادات واكتشاف لاخطائي

اخي العزيز فواز

تحية طيبة

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

اتمنى لك التوفيق