يوسف أحمد

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

اود المساهمة في حل بعض النقاط بعد الاذن من الجميع النقطة الاولى : تم عمل كود بحدث عند فقدان التركيز لمربع النص الخاص بمجموع الغياب وبالامكان رؤية هذا الكود من محرر الفيجوال بيسك. النقطة الثانية : تم الاستعانة بطريقة جميلة جداً للاستاذة زهرة العبدالله جزاها الله خير في ايقاف عجلة الماوس وقد قمت باستيراد الوحدة النمطية الى البرنامج ويوجد هناك كود تم وضعه في حدث عند الفتح للنموذج الرئيسي الذي يتم فتحه عند ابتداء البرنامج كما يوجد ملف مرفق يجب نسخه بعد فك ضغطه بـ C:\WINDOWS\system32 حتى تنجح العملية. اما بالنسبة للنقطة الثالثة فإنني لم اجد الوقت الكافي لظروف العمل وارجو من الاخوة الكرام التكرم بالمساهمة في ذلك مشكورين وبالله التوفيق db1111.rar MouseHook.rar

يعطيك العافية اخي الكريم على هذه المشاركة الجميلة

اخي / فرقدي إذا امكن ان تضع مثالاً لما تريد ليتم التعديل عليه وكحل سريع بإمكانك وضع المعيار التالي [فضلاً ادخل الرقم المطلوب] سيمكنك ذلك من ادخال قيمة معلمة والحصول على ناتج القيمة التي تقوم بإدخالها في كل مرة وبإمكانك وضع زر امر على النموذج يقوم بتشغيل هذا الاستعلام.

استاذنا ومشرفنا العزيز / منذر عساج الف شكر لك على مرورك وعلى هذه الإضافة الجميلة فوالله لقد اثريت الفكرة ولا أملك الا الدعاء لك بأن يحفظك الله ويزيدك من فضله وعلمه . وهذا المرور والتجاوب منك هو بمثابة تشجيع لنا وحافز فلا حرمنا الله من كرمك وجعل ما تبذلونه من جهد انت وجميع المسؤلين بهذا المنتدى الرائع لنشر العلم بيننا في موازين حسناتكم. شكراً لك مرة اخرى استاذي العزيز وتقبل مني فائق التقدير والاحترام تلميذك / Yousef

اخي السائل / فرقدي إضافة إلى ما تفضل به استاذنا ومشرفنا العزيز منذر عساج مشكوراً اود اضافة طريقة لعمل ذلك وارجو من استاذنا منذر واخواننا واساتذتنا بهذا المنتدى مشكورين ابداء الرأي والتوجيه. db123.rar

شكراً لك استاذ امير عاطف على هذا البرنامج الاكثر من رائع بارك الله فيك وجزاك خير االجزاء

اخي / هاوي في حدث enter لمربع النص ضع الكود التالي Me.a.BackColor = 16763904 وفي حدث exit لمربع النص ضع الكود Me.a.BackColor = 16777215 حيث me تشير الى النموذج الحالي و a هو اسم مربع النص والرقم 16763904 يشير إلى اللون الازرق الفاتح و الرقم 16777215 يشير الى اللون الابيض ومعنى الكود هو تغيير لون مربع النص a إلى الازرق عند الدخول اليه وتغيير لون مربع النص a إلى اللون الابيض عند الخروج منه وتم نقل التركيز بداية إلى مربع النص الاول المسمى b بالكود me.b.setfocus في حدث الحالي للنموذج واليك مثال على ذلك db10.rar

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

اخي / ماجد جلال لقد قمت بتطبيق طريقة جميلة للبحث بإنشاء نموذج اسمه form بدون مصدر بيانات وبه قائمة اسمها searchlist ومربعي نص txtsearch و txtsearch2 والآخر يكون مخفي وتم عمل إستعلام ليكون مصدر للقائمة هذه الطريقة تمكنك من البحث في جميع الحقول التي تختارها للقائمة وهي لأمانة النقل طريقة لواحدة من عمالقة البرمجة وهي الاستاذة زهرة العبدالله وقد قمت بتطبيقها على مثالك لما فيها من تطوير لعملية البحث . بالتوفيق اخي ماجد phon_book.zip

اخي نبيل يبدو انني لم استوعب الموضوع بداية واعتذر عن ذلك فمحدثك لم يخرج من المكتب إلا قبل نصف ساعة تقريباً منذ الصباح بسبب أعمال موكلة اعان الله الجميع ولكنني رأيت النداء واحببت ان اساعدك واختصاراً للوقت ولفائدة اكبر ارجو ان تنظر الى الرابط ادناه به حلول وتطوير افضل للفكرة حاول ان تطبق ذلك وتستفيد منه وإذا واجهتك أي مشكلة فأنا تحت أمرك اتمنى لك التوفيق http://www.officena.net/ib/index.php?showtopic=1459

اخي / NABEELKO قمت بعمل بيان القيمة الصغرى والقيمة الكبرى لحقل التاريخ بمربعي النص لما هو موجود بالتقرير ارجو ان تفي بما تبحث عنه 001.rar

اخي / NABEELKO المعيار : - [forms]![frm1]![a] معناه أن الاستعلام سيعمل فقط او يلحق السجل الظاهر بمربع النص المسمى a بالنموذج المسمى frm1 بالنسبة لشرط تساوي الحقول فإنه لا يشترط ذلك وهذا يعود إلى الغرض من البرنامج ولكن يشترط تكافؤ نوع الحقول حيث لا يمكن ان تدرج او تضيف حقل نصي إلى حقل رقم او تاريخ مثلاً . وبالنسبة لمثالك فأنت تريد ان تتفادى التكرار في الكتابة ولكن لا بد ان تتأكد ايضا من عدم التكرار في البيانات بالجداول حتى تحصل على قاعدة بيانات اقوى لذا ارجو منك ان ترفق مثالك ليتم التعامل معه لأن المثال الذي شرحته لا يحتاج إلى تكرار الاسم والرقم وبامكانك عمل جدول لبيانات الموظف وجدول للراتب وتضع فيه رقم الموظف وتقوم بعمل علاقة بين الجدولين .

اخي الفاضل / NABEELKO تم عمل استعلام الحاق ولكن بمعيار ليتم الحاق السجل الحالي بالنموذج انظر المرفق dbttt.rar

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

اخي ابو راكان سعدت كثيراً بأنك وجدت ما كنت تبحث عنه يبدو انك لم تر المرفق الأخير عموما ... الإستعلام الذي قمت بعمله لك بالمرفقات السابقة هو إستعلام تحديد وبإمكانك التعامل معه كالجداول تماماً من حيث عمل استعلام عليه نفسه وكذلك عمل نماذج .... الخ ولا يوجد لديك أي مشكلة في ذلك فهو نسخة مسترجعة من الذاكرة أو dynamicset من الجدول tblemp بكل الحقول المختارة منه . اخيراً بقي نقطة في الموضوع وهي اذا اردت الحصول على النتيجة إلى أقرب عدد صحيح فإن ذلك يتم بإضافة الدالة int في بداية المعادلة. وإليك المرفق بعد آخر تعديل وبالتوفيق ان شاء الله اخي الكريم dbdatediff.rar

بارك الله فيك استاذنا العزيز rudwan

وهذه المعادلة كاملة في حقل واحد dbdatediff.rar

اخي ابو راكان شكراً لك وبالمناسبة سؤالك الجيد جعلني افكر في طريقة للحل والحمد لله توصلت لطريقة ارجو ان تعجبك وهي استخدام نفس الدالة ولكن للسنوات لحساب السنوات اولا ثم ضرب الناتج في العدد 5 وبعد ذلك عمل المعادلة في حقل آخر لحساب الأيام وطرح الناتج السابق من المعادلة الجديدة مرفق المثال بعد التعديل واتمنى ان يكون هو الحل المطلوب وبالله التوفيق dbdatediff.rar

اخي outnet بالنسبة لتفريغ الحقول عند فتح النموذج فأنا استخدم كود اضافة سجل جديد خصوصاً إذا كان الغرض هو إضافة سجل جديد عند فتح النموذج. وبالنسبة لنقل التركيز إلى خانة البحث فعند اضافة سجل جديد وعند الانتهاء من تسجيل اخر حقل يتم نقل التركيز إلى خانة البحث أي عند حدث فقدان التركيز لآخر حقل يتم وضع الكود Me.c1.SetFocus على اعتبار ان اسم خانة البحث هو c1 . وقد قمت بعمل مثال لك وبإمكانك رؤية الأكواد من محرر الفيجوال بيسك. ارجو ان يفي ذلك بما تبحث عنه dbcods.rar

اخي ابو راكان ارجو ان يفي المرفق بما تبحث عنه الحقل الثالث هو لإسم الموظف ولكن بالخطأ تم كتابة ذلك بالتسمية التوضيحية dbdatediff.rar

استاذنا / rudwan يعطيك الف عافية على هذه المعلومات القيمة اخي ToMix عمل الضغط والإصلاح بعد الإنتهاء افضل حسب معلوماتي المتواضعة وهناك طريقة لعمل الضغط والإصلاح عند كل إغلاق للبرنامج وهي كالآتي : اذهب إلى قائمة ادوات - خيارات ثم ومن التبويب عام قم بتفعيل ضغط عند الإغلاق. هذا وبالله التوفيق

استاذنا التقني يعطيك الف عافية على هذا المثال الرائع بخصوص مثال الاخ ماجد فهو مضغوط ببرنامج Winzip والذي لا يبدو موجود بجهازك لقد قمت بضغطه ببرنامج Winrar حتى تتمكن من التعامل معه . اخي ماجد طهور ان شاء الله تقبلوا اجمل تحية 145.rar

بارك الله فيك اخي نبيل * تم عمل استعلام qry1 كما طلبت * بخصوص الدالة nz هي دالة تقوم بإرجاع قيمة null بمعنى قيمة خالية للتمكن من التعامل مع الحقول في العمليات لأن وجودي لا شي بالحقل يعتبر مشكلة شهيرة للقيام بالعمليات الحسابية والمعادلات واستخدام هذه الدالة يساعد في تخطي هذه المشكلة حيث نستطيع باستخدامها عمل ما نريد من عمليات على القيم الخالية دون اخطاء وبالنسبة للمعادلة التي استخدمناها في مثالك وهذا جزء منها (([a])-(nz()+nz([c])= تم وضع الدالة قبل مربعات النصوص او الحقول كل على حدة حتى تنجح المعادلة عليه حتى ولو كان يحمل القيمة null الأقواس المربعة هي ما يحيط باسماء الحقول لتمثلها اما الاقواس الاخرى () فهي للفصل بين العمليات كأي معادلة. وهناك مستند خاص بالدوال كنت قد حصلت عليه من منتدى الفريق العربي للبرمجة لاحد الاساتذه لا يحضرني اسمه ولكنني ادعو له بظهر الغيب ارفقته لك لتستفيد منه وايضا يوجد بهذا المنتدى الكثير من المواضيع التي تشرح الدوال لا تحضرني روابطها وما عليك الا ان تبحث وستجد كل ما تريد بإذن الله. * لك منى اجمل تحية وأغلى تقدير من اخيك Yousef فكلنا تلاميذ في هذا المنتدى الرائع. ___________.rar abc.rar

بارك الله فيك اخي بو دبي لطباعة التقارير كل ما عليك القيام به هو الذهاب الى الماكرو الخاصة بعرض التقارير وتغييرها وذلك من عرض التصميم الى طباعة بدلاً من معاينة قبل الطباعة. والتوفيق اخي الكريم