برنامج متابعة اوامر الشراء بين ادارتي

أخى العزيز محمد فؤاد تركي

عمل رائع فعلاً ويستحق التقدير

فكرة البحث وعرض التقرير ممتازة

عمل رائع ومتميز ونرجو المزيد من الابداع..

ملحوظة بسيطة : إذا قمت بكتابة اسم المستخدم خطأ وحاولت الخروج لن يسمح لك بالخروج.

بارك الله فيك وجزاك الله خير

ونفع الله بعلمك

برنامج رائع

وهدية مقبوله

شكرالك

وفقك الله

بارك الله فيك خبرينا العبقري : محمد فؤاد

هدية مقبوله

وعمل رائع

هناك ملاحظة بسيطة :

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

الآن اضغط على زر امر الحذف

ستظهر لك رسالة " هل تريد حذف السجل الحالي " ( طبعا لايوجد اي سجل اساسا ) لأن النموذج خالي من البيانات

لهذا يفضل ان لا يتم تفعيل زر الأمر حذف البيانات إلا اذا كانت الحقول جميعها في النموذج بها بيانات ظاهره

اعتقد ان الفكره وصلت الآن .

وعموما مشكور وما قصرت ويعطيك ألف عافية

أخي الغالي

hongylover

بارك الله فيك

ملاحظاتك علي العين والراس

تم تعديل الكود حسب رغبتك ونقل التركيز الي زر الخروج من البرنامج بدلاً من تركيز المؤشر في نفس الحقل ليكون لك مطلق الحرية في الخروج من البرنامج او اعادة المحاولة

وهذا هو الكود المضاف

Me.Command1.SetFocus

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

مرورك علي الموضوع فخر لي

فما بالك بالتعليق ابداء رأيك وكمان ملحوظات فأنا فعلاً في غاية السعادة

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

Me.Command43.Enabled = False

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

ليصبح الكود كالتلي

Me.Command43.Enabled = True

شكراً الاخوة الزملاء علي المتابعة وابداء رأيكم وملاحظاتكم علي البرنامج مرة أخري

Purshasing__followup.rar

أخي محمد فؤاد .. الله الله ماهذا الإبداع

لا ..... لا .... هذا شغل محترفين .. :thumb_up:

الله ينور عليك .. ويزيدك كما وكمان .. أنت تستاهل كل خير

لي فقط ملاحظة بسيطة :

بخصوص الكوماند ( زر أمر الحذف ) أنت جعلت اخفائه في حدث عند فتح

النموذج .. وربطته بالحقل PR_ID .. طيب ماذا لو فتحت النموذج وتم تفعيل مربع التحرير

والسرد اللي هو رقم طلب الشراء سيتم تفعيل زر الحذف .... ثم استعرضت جميع السجلات الى الوصل

الى السجل الفارغ أو ( NewRecord ) اذا هنا لايزال الكوماند مفعلا ؟ اذا لم تحل المشكلة السابقة التي أشارت اليها

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

لقاعدة IF ان كان الفورم يحوي سجل أو أكثر يتم التفعيل والا فلا ........ مع تقديري واعجابي الشديد بلمساتك

هناك شيء أخر ( همسة فقط )

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

شكرا وسلمت أناملك أخي محمد باشا فؤاد ( نص مقتبس من حبيبنا إيهاب عثمان )

أخوك : إكسير الحياة

أخي ومعلمي أكسير الحياة

بارك الله فيك

علي نصائحك الغالية وهمساتك الجميلة

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

Private Sub Form_Current()
If IsNull(PR_ID) Then
Me.Command43.Enabled = False
Else
Me.Command43.Enabled = True
End If
End Sub

ويتم عدم تفعيل زر حذف اذا وصلنا الي سجل فارغ أو ( New Record) وغير ذلك يتم تفعيلة

ثم تم حذف كود

Me.Command43.Enabled = True

فلم يصبح له استخدام الان لإن الاجراء الاول قد وفي بالغرض تماماً

شكرا لكً مرة أخري علي ملحوظاتك الغالية

مرفق الملف بعد التعديل

Purshasing__followup_UP.rar

استاذي العزيز محمد فؤاد تركي

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

شكرا

مبتدئ أكسس

أخي الغالي

بارك الله فيك

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

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

بسم الله الرحمن الرحيم

بارك الله فيك اخي الكريم وسلمت ايديك فعلا شغل ممتاز

محمد فؤاد تركي كتب:

أخي الغالي

بارك الله فيك

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

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

استاذي الكبير

اولا اشكرك على اهتمامك وردك

لكن لما بضغط على shift بيفتحلي نافذة قاعدة البيانات لكن كل الجداول والاستعلامات والنماذج فارغة او مختفية

فهل ده ممكن يكون مشكله عندي

مع العلم جهازي عليه اوفيس 2007 مع اوفيس 2003

شكراً

أخي الغالي

تفضل البرنامج مفتوح تماماً ولا يوجد به اي استعلامات او نماذج او تقارير او وحدات نمطية او جداول مخفية

كل القاعدة ظاهرة امامك تمام التمام

Purshasing__followup_UP.rar