محمود بن عوض

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

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

أخى الكريم ..... سلام الله عليك ورحمته وبركاته الحمد لله تم تنفيذ المطلوب ولكن فيما يخص رسالة خانة رقم الفاتورة فقط ولم يتم تنفيذه فى خانة إسم العميل والتالريخ مع الكود If IsNull(Me.Customer_Name) Then MsgBox "Insert Customer_Name", vbInformation Me.Date.SetFocus Me.Customer_Name.SetFocus End If وبالمناسبة وزيادة فى كرمك هل هناك طريقة أو شرح معين يوضح كيف أترجم ما أحتاجه من عمليات مطلوب تنفيذها إلى أكواد أى يفسر كيف أكتب الكود أو أكون مفردات الكود للوصول إلى ما أريد شاكراً لك سعة صدرك ولك خالص تحياتى

الأخوة الكرام .... السلام عليكم ورحمة الله معذرة لغيابى فترة وذلك بسبب عطل الجهاز بالنسبة لرسالتى الأخيرة للأخ محمد أيمن بتكرار الرسالة عند الخروج من نموذج الفاتورة فقد أرفقت صورة لها لعلها تفى بالغرض وشاكراً للأخ موسى مشاركته أقول بالنسبة للإستفسار الأول والذى رد عليه الأخ محمد فأنا لاحظتها منذ بداية التعديل على الجدولين فى بداية طرح الموضوع وقمت بتعديلها ولم أشأ أن أزعج أخى محمد أما بالنسبة لجدول المشتريات فشكر الله لك أخى على هذه الملاحظة فكنت إنشغلت بعمل خلفيات للنماذج وشاشات الدخول وتركت مراجعة الجدوال والتقارير للنهاية وهذا ما جعلنى أتعرض لأكثر من مطب وأطرح بعضها على أخى محمد الآن عند نقل الأكواد من الملف الذى نعمل عليه بالمشاركة mawad إلى الملف الذى أجهزه فى صورته النهائية فبعضها لا يستجيب منها 1 - كود طباعة الفاتورة أو معاينة الفاتورة بالنموذج فكان الأخ محمد صممه لفتح التقرير invoice head على نفس رقم الفاتورة الموجود فى النموذج وبعد نقله لا يعمل وتظهر الرسالة القديمة مطالبة برقم الفاتورة" رغم أنه يعمل بكفاءة فى الملف الذى نتشارك عليه mawad" 2- كان كذلك كود تكرار رقم الفاتورة ولكن الحمدلله بعد محاولات إستطعت أن أنفذه وأنا مستمر فى عمل الملف بمشيئة الله ولكن تواجهنى مشكلة كبر حجمه ولا أستطيع رفعه مرة أخرى وعند الإنتهاء منه بفضل الله وبدعمكم سأحاول رفعه على رابط لأخذ رأيكم به ... أترككم فى رعاية الله وأمنه ولاتنسونا من صالح دعائكم وعظيم نصائحكم... رد.rar

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

أخى الكريم ...... السلام عليكم أشكرك على الرد رغم أنى لم أفهم علاقة رقم العميل بعدم تكرار الفاتورة فى الكود الذى وضعته ولكنه يفى بالغرض ولكن بالنسبة للطلب الاول لا أعلم كيف يتم تطبيق ذلك ولكن هل يفيد نموذج فواتير العملاء الموجود فعلا فى ذلك ومدى إمكانية إستخدام دالة VLookup او DLookup شكرا لك والى لقاء قريب بمشيئة الله

أخى الكريم ......... السلام عليكم ورحمة الله وبركاته بالنسبة للإستفسار الاول فأنا لا أريد الرسالة التلقائية الخاصة بالأكسس فى الظهور عند تكرار رقم الفاتورة وأريد رسالة مختصر تفيد بذلك مع إمكانية الخروج من النموذج فى حالة عدم إستكمال بيانات الفاتور عند تكرار الرقم. أما الإستفسار الثانى فأنا فعلاً قبل أن الجأ إليك وضعت الكود فى حدث عند الفتح وغيرت إسم الخلية إلى Invoic_No ورغم ذلك لم تفلح ففكرت أن تكون القيمة الإفتراضية للحقل ( صفر ) هى السبب فغير خاصية الخلية فى تصميم الجدول إلى فارغة ولكن أيضاً دون جدوى. أرجو أن أكون وصلت لك المعلومة مع خالص تقديرى invoic.rar

شكر الله لك أخى الكريم ومتواصل معك بمشيئة الله ولكن معذرة سأعود بك للخلف قليلاً أولاً أريد كود أضعه فى خانة رقم الفاتورة فى نموذج الفاتورة InvoiceEnter يفيد فى حالة تكرار رقم الفاتورة بأن الرقم سبق إدخاله أما النقطة الثانية فهى أنى حاولت تجربة كود الإفادة بأن هذا الرقم غير موجود عند فتح نموذج بيان فاتورة بعد أن نجحت فى تطبيقه على نماذج أخرى لم يفلح ذلك ويفتح النموذج بدون بيانات إذا كان رقم الفاتورة غير صحيح ( أقصد هذا الكود ) If IsNull(Me.Code) Then MsgBox "رقم الصنف غير صحيح , أدخل رقما آخر", vbCritical DoCmd.CancelEvent End If فى إنتظار إفادتك بمشيئة الله

أخى الكريم : عودُُ حميد أشكرك على المرفق ولكن كما تعودت منك فأنا أحتاج لشرح الطريقة والكود حتى يمكننى إستخدامه بنفسى شاكراً لك فضلك والى الملتقى

شكر الله لك أخى الكريم وأنا فى إنتظارك تاركاً إياك فى رعاية الله وأمنه

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

أخى الكريم . علوش جزاك الله خير الجزاء على هذه السلسلة ولو أنى لم أراها إلا الآن

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

أخى الكريم ... مساك الله بالخير شكراً على ردك ولكن سقط سهواً " أين أضع الكود وكم يمثل الرقم 7500 أو 4000 بالسنتيمتر أو المللى متر" وهل هذا الكود يُحجم حجم النموذج كإطار خارجى أم يحافظ على حجم عرض العناصر وخانات البيانات بالداخل " أى يقوم بعمل إستريتش لحجم البيانات الداخلية حسب الحجم الخارجى ؟" وسوف أقوم بمشيئة الله بمراجعة الرابط الخاص بشريط القوائم وأفيدك بعون الله أتركك فى رعاية الله وأمنه

أخى الكريم : محمد ..........السلام عليكم ورحمة الله وبركاته كيف حالك ؟ ......معذرة للتأخر عنك ولكن عساك أن تكون بأتم صحة وأحسن حال الحمدلله جربت العنوان وشغال تمام وبدأت أعمل نماذج كشاشات للإنتقال بها بين عناصر البيانات ولكن كعادة المبتدئين ظهرت بعض المشاكل أولا لقد قمت بفتح الملف على جهاز آخر بنفس إصدار الاوفيس مع ضبط ريزوليشن الشاشة على نفس الذى كنت أعمل عليه وقت التصميم (1024-768) ولكن لاحظت إختلاف فى شكل النموذج وخاصة فى نماذج شاشات الإنتقال كأن يظهر بحجم عادى للإطار الخارجى ولكن غير مستوعب المحتويات الداخلية فأضطر إلى تكبيرحدوده (عرضه - إرتفاعه ) ليظهر بصورة طبيعية فهل هناك من طريق لتثبيت الاحجام مهما إختلف ريزوليشن الشاشة . النقطة الثانية هل ممكن عمل قائمة مختصرة كما هو الحال فى أوفيس (ملف - تحرير - إدراج ..) أم ترى أنه لاداعى لها لعدم وجود مايستدعى وجودها ؟ يهمنى رأيك. خالص تحياتى وأرجو ألا تكون قد أغلقت الموضوع mahmoudawad90@yahoo.com للتواصل إن أحببت ذلك