محمد ايمن

فكرة جميلة طالما انها لا تجبر المستخدم على انشاء حساب جديد ولا مشكلة من تنصيب outlook وطبعا جزاك الله خير فقد اتعبتك معي اكثر من اخينا الشاعر ( اخي الشاعر لا تأخد من كلامي فأنا لا اقصد الإساءة أبدا ) اسأل الله العلي العظيم ان يجعل مثواك الجنة

اخي الكريم عليك ملاحظة مايلي : البلاغ يتضمن : اسم المبلغ - تاريخ البلاغ - رقم البلاغ - نوع الحادثة ..... الخ و المجموع الآن هو 4 حقول و بالتالي لايمكن وضع حقل وحيد للبحث و انما يجب وضع حقل لكل عملية بحث ( اي يجب وضع اربع حقول ) اذا اعجبتك الفكرة فلدي روتين جاهز لعمليات البحث المعقدة و للحديث تتمة إن شاء الله

وضعت الكود في وحدة نمطية ولكن ظهرت لي رسالة الخطأ Expected variable or procedure, not module مالسبب ؟ منع تكرار القيمة في نفس السجل 6.rar

اصدقائي الاكارم السلام عليكم و رحمة الله و بركاته جميعنا يعلم هذا الكود form_invoice.price1=form_item.price وهو ينسخ قيمة الحقل ( price ) من النموذج ( items ) الى الحقل ( price1 ) في النموذج ( invoice ) السؤال هل يمكن استبدال اسم الحقل بقيمة متغير المرفق ربما يوضح اكثر مني يوجد في النموذج خمسة قوائم منسدلة و خمسة مربعات نص اريد من الكود بعد اختيار اسم المادة ان يدخل سعر المادة في حقل السعر ولكن بشرط تطابق رقم حقل اسم المادة مع رقم حقل سعرها يعني عند اختيار item1id يكون الحقل price1 وعند الحقل item2id يكون الحقل price2 اعتذر على الاطالة ولكن لم اعرف كيف سابدأ في الموضوع نسخ الحقول.rar

اخي ابو خليل يعجز اللسان عن شكرك جزاك الله كل خير و جزاك الجنة و جمعك مع حبيبه محمد صلى الله عليه و سلم

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

الفكرة اخي نارت هي عدم اجبار المستخدم على اختيار نوع واحد فقط من المخدمات كلامك صحيح انه لم يتم اخيتار gmail عبثا ولكن من نقطة اخرى لانريد اجبار المستخدم على انشاء حساب جديد ولكن الى الآن هناك ما يحيرني لمذا تظهر عندي رسالة خطا ( no internet connection ) ؟؟ والسؤال الأهم هل ارقام المنفذ و عناوين البريد الصادر صحيحة ؟؟

اخي ابو خليل جزاك الله كل خير فعلا عمل اكثر من رائع ولكن لي سؤال صغير كيف يمكنني القراءة من الباركود في مثالك ؟

أخي الكريم جربت المرفق والتقرير invoicehead يعمل بشكل سليم اعد التجربة ووافيني بالنتيجة MAWAD6.rar

اخي الكريم ارسل الملف الذي قمت انت بتعديله حتى ارى ماسبب تلف التقرير

السلام عليكم و رحمة الله و بركاته اخي نارت تحية طيبة و بعد التطبيق جميل جدا و لكن لم استطع تجربته ( لايوجد لدي حساب gmail ) وفي هذه الحالة كما قال اخينا احمد يجب الاختيار بين اكثر من مخدم قمت بتعديل بسيط ولكن في جميع الحالات كان هناك خطا في الارسال ( اعتقد من ضعف النت ) ورسالة الخطا كانت no internet connection بقي هناك سؤال يحيرني بالنسبة للبورت هل هو بورت الاستقبال ام الارسال اعتقد و الله اعلم انه بورت الارسال ارجو تجربة المرفق لاكتشاف الاخطاء NA_BackUpSendGmail2012 2.rar

اخي الكريم تم حل مشكلة الخطا في التقرير اما بالنسبة الى الرسالة هل تقصد الرسالة التي تظهر عند فتح التقرير اعتقد انه لا يمكن و لكن ساحاول وبالنسبة الى تقرير الارصدة افتح التقرير في عرض التصميم ثم اضغط على مربع نص الرصيد واختر تنسيق شرطي وقم بتغيير ما تشاء من هناك ثم اضغط موافق ملاحظة لا تقم بتغيير نص الشرط ابدا و للحديث تتمة إن شاء الله MAWAD5.rar

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

اخي الشاعر ادخل الى محرر الفيجوال بيسك واختر tools - references - ثم اضف المكتبتين microsoft office 11 object library microsoft ado 2.8 for ddl and security ملاحظة قد تجد المكتبة microsoft office 12 object library عوضا عن المكتبة microsoft office 11 object library جرب ووافينا بالنتيجة

جرب المرفق التالي اخي الكريم 222.rar

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

اخي الكريم في البداية لاشكر على واجب و كلنا هنا اخوة ان شاء الله اخي الكريم تم تنفيذ الطلب الثالث و الخامس والشرح كالآتي اولا كود عدم وجود بيانات نفتح التقرير في طريقة عرض التصميم و نختار ( حدث ) ثم نختار ( عند عدم وجود بيانات ) ( تنفيذ حدث ) وقمت بوضع رسالة تفيد بعدم وجود بيانات طبعا تم التنفيذ على كافة التقارير وبالمناسبة لقد عدلت التقرير invoiceheade كما كان في الملف الاصلي ( عند فتحه يطالبك برقم الفاتورة ) ( لانني حذفت الشرط و نسيت اعادته عن طريق الخطا ) ثانيا كود اظهار رصيد الاصناف بلون آخر ندخل الى التقرير في طريقة عرض التصميم ننقر بالزر الايمن على مربع النص المراد تنفيذ شرط عليه و في مثالنا هنا هو ( الرصيد ) ونختار من القائمة ( تنسيق شرطي ) تظهر نافذة جديدة لضبط اعدادات التنسيق الشرطي و قد ضبطت الاعدادات على ( تعبير هو ) ([الرصيد]=[order_point]) حيث عند تساوي قيمة الحقلين يظهر حقل الرصيد باللون الازرق اضفت شرطا جديد و ضبطت الاعدادات على ( تعبير هو ) ( [الرصيد]<[order_point] ) وهنا اذا كانت قيمة الرصيد اصغر من حد الطلب يظهر حقل الرصيد باللون الاحمر بقي عليك ان تجرب المرفق و توافيني بالنتيجة وللحديث تتمة ان شاء الله MAWAD4.rar

اخي الكريم اعذرني فقد جربت المرفق و لم افهم شيئ هل بالامكان بعض التوضيح !!!

اخي الكريم شغل نموذج البحث ( blag ) و جرب Accidents4.rar

:power: ونحن بانتظار المزيد ان شاء الله

شكله الموضوع رح يصير تحفة اخي ابو آدم اذا سمحت لي بالمشاركة المرفق التالي يقوم بانشاء نسخة احتياطية للجداول كل ساعتين و يتم الحفظ في المسار d:\backup ومما لا شك فيه و لا يقبل الجدال ان البرنامج من ابداعات اخينا الكبير ابو خليل و لمسات اخينا ابو آدم Backup_tables.rar

اخي ابو آدم هل انتهت السلسة ؟ ام ان هناك المزيد

اخي ابو آدم نورت الموضوع الفكرة لدي نموذج مبيعات و بعد ادخال اسم المادة و رقم العدد المطلوب بيعه يتم فحص الكمية الموجودة في المستودع و اعطاء رسالة عن الكمية الحالية ولكن اذا تكرر اسم المادة في الفاتورة الواحدة فلا يعطي الكود مجموع البندين بل بند واحد فقط مثلا تم تكرار مادة تجربة 1 في البند الاول و الثاني و مجموع المادة في البندين 10 ( كل بند 5 ) و كمية المادة الموجودة في المستودع 5 من المفترض ظهور رسالة بان الكمية الحالية هي اقل من الكمية المطلوب بيعها ولكن الكود يقارن كمية المادة الموجودة في المستودع مع كمية المادة المطلوبة في البند الحالي ( 1 او 2 ) لذلك خطرت لي فكرة منع تكرار اسم المادة في الفاتورة الواحدة

الكود السابق يعمل بشكل جيد ولكن هناك ما يعيبه وهو ان الكود يبدأ بالمقارنة من اول حقل الى آخر حقل مع قيمة كافة الحقول عند الاستدعاء كل مرة وبتفصيل اكثر لنفرض تم ادخال قيمة في الحقل الاول بدا الكود بمقارنة قيمة الحقل الاول مع الثاني فالثالث .... الخ ثم يبدا بمقارنة الثاني مع الاول فالثالث ... الخ ثم الثالث مع الاول فالثاني ... الخ ( دوخة ) وعند ادخال اي قيمة في اي حقل يتم تنفيذ الكود من البداية توصلت الى تعديل و الفضل لله عز وجل بحيث يقوم الكود بمقارنة قيمة الحقل الذي تم ادخال البيانات فيه مع باقي الحقول لنفرض تم ادخال البيانات في الحقل الخامس يبدا من الحقل الاول الى السابع و ينهي الحلقة ثم تم ادخال البيانات في الحقل السادس يبدا من الاول حتى السابع و ينهي الحلقة اي ان الكود ينفذ مرة واحدة فقط وانا مازلت بانتظار النتائج منع تكرار القيمة في نفس السجل 4.rar

ولا يهمك اخي الكريم اما بالنسبة الى الكود فكما قلت لك في المشاركة السابقة اضفت الوحدة النمطية و فعلت الكود بقي عليك التجربة و النتائج و بالنسبة الى الشرح فاعذرني نسيت ان اضع شرح و سأضعه في آخر المشاركة اما بالنسبة الى الطلبات فأنا اخالفك الرأي مارايك ان نكمل الطلبين 3 - 5 ( الاسهل فالاصعب ) حدد التقارير كما ارجو منك ان تشرح لي الطلب الخامس فلم تتضح الصورة لي كثيرا شرح الاكواد في الطبات السابقة اولا كود عدم ترك الحقول فارغة Private Sub Date_Exit(Cancel As Integer) If IsNull(Me.Date) Then MsgBox "أدخل التاريخ ", vbInformation Me.Invoic_No.SetFocus Me.Date.SetFocus End If وضعت الكود عند الخروج من حقل التاريخ If IsNull(Me.Date) Then MsgBox "أدخل التاريخ ", vbInformation Me.Invoic_No.SetFocus Me.Date.SetFocus اذا كان الحقل ( date ) فارغا يعطي رسالة ( ادخل التاريخ ) طبعا بقية الحقول تم تنفيذ الكود بنفس الطريقة مع مراعاة مايلي: 1 – تغيير اسم الحقل 2 – تغيير نص الرسالة ثانيا : حقل التفقيط يقوم الحقل باستدعاء كود تحويل الارقام الى حروف و اعطاء النتيجة في هذا الحقل =NoToTxt([نص17],"جنيه مصري","") & " فقط لاغير " وهذا الكود ينفذ بشكل دائم ( طالما ان النموذج مفتوح ) nototxt اسم الكود نص 17 اسم الحقل المراد تنفيذ الكود عليه ثالثا : تعطيل الانتقال بدولاب الفارة blRet = MouseWheelOFF تم وضع هذا الكود عند تحميل النموذج و هو يستدعي وحدة نمطية تعطل الانتقال بين السجلات بدولاب الفارة طبعا ستلاحظ التالي اذهب الى الوحدات النمطية و ستجد وحدتين نمطيتين الاولى باسم TotalToText و الثانية MouseOff الاولى لتحويل الارقام الى احرف ( تفقيط) الثانية لتعطيل الانتقال بدولاب الفارة اذكرك اخي الكريم انه في المرفقات ملف باسم std.dll هذا الملف يجب ان يتواجد دائما في فولدر البرنامج