osama ababneh

اخواني اود ان اقدم لكم وعلى طبق من ذهب هذا الملف مفتوح المصدر وذلك للاستفادةطبعا فكرة الظهور والشفافية منقولة للامانة لتغيير الشفافية ادخل على الكود وغير القيمة المقابلة ل sam وهي حاليا 80 ولزيادة الشفافية يتم انقاص هذة القيمة وهذا الملف واكتشفوا بانفسكم search.rar

اشكركم اخواني على التشجيع واليكم بعض الكودات المهمة في البرمجة الوظيفة <<==========================الكود اصدار صوت<<====================DoCmd.Beep اغلاق النموذج او التقرير<<=============DoCmd.Close تكبير النموذج او التقرير<<===========DoCmd.Maximize تصغير النموذج او التقرير<<===========DoCmd.Minimize الخروج النهائي من قاعدة البيانات<<========DoCmd.Quit

مشكور اخي على هذا الموضوع المفيد جدا

السلام عليكم اخواني اليكم هذه المشاركة التي اتمنى ان يستفيد منها اي اخ وخصوصا المبتدئين والذين لا يعرفون عن الكود اولا : انشئ قاعدة بيانات جديدة ثم انشئ فيها نموذج جديد عن طريق انشاء نموذج في طريقة عرض التصميم ثم اضف الية مربعي نص و تسمية وزر امر كما في الصورة التالية الخطوة الثانية هي تسمية مربعي نص و التسمية وزر الامر وذلك عن طريق النقر بزر الماوس الايمن واختيار خصائص ومثلا انا اخترت box1 و box2 لمربعي النص و txt1 للتسمية و do لزر الامر ثم نضغط بزر الماوس اليمين ثم نختار (حدث) كما يلي فتفتح لنا الشاشة الخاصة بادخال الكودات الان وبعد ان وصلنا الى هذه الشاشة بقي ان نعرف كيف ندخل الكود وبعض الكودات الضرورية التي ممكن ان نحتاجها في اي برنامج والملف المرفق فية نفس المثال السابق وتكون فية وضيفة زر الامر do هي الحصول على ناتج ضرب box1 * box2 وانشاء الله اذا وجدت اهتمام في هذا الموضوع ساقوم بوضع بعض الكودات الضرورية وارجو الاستفادة Ex.rar

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

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

اخواني تقبلو مني هذه المداخلة اولا يجب ان نعرف الهدف من تصميم البرنامج فهل هو مثلا الوصول الى التكلفة الفعلية حسب نظام ABC لتوزيع التكاليف ام الوصول الى التكلفة الفعلية بالطريقة التقليدية ام ان هناك هدف اخر؟؟؟؟ واعتقد ان هذه هي البداية وسامحوني على المداخلة

يكون ذلك من خلال خصائص النموذج وهذة صورة مرفقة لما يجب فعلة

اخي هذا الملف بعد التعديل وبطريقة اخرى حاول تطبيق الفكرة لعلك تستفيد Osama.rar

اخواني اسف للتاخرولكن حتى جهزت مثال على ذلك ارجو الاستفادة Osama.rar

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

سهله اخي الكريم 1- صمم استعلام جديد يكون نوعة استعلام حذف 2- اضف زر امر في النموذج تكون وضيفتة فتح الاستعلام السابق

بارك الله فيك وبرنامج ممتاز ويستحق التثبيت!!! افكار جديدة وتصميم جيد وللارتقاء اكثر واكثر اذا امكن تعديل التقارير من حيث المجاميع على مختلف المستويات اي طلب تقرير على مستوى معين

مشكور اخي الكريم

اخي الكريم اليك ما يلي 1- تم ربط اسم المخبز مع المواطنين التابعين لهذا المخبز 2 - تم وضع رقم البطاقة بحيث لا يمكن تكرارة اي ان المواطن الواح لا يمكن ان يتكرر في اكثر من مخبز بالنسبة للكلبات الاخرى فارجو توضيح ما يلي: 1- كم هي حصة الدقيق للفرد الواحد و للاسرة الواحدة 2- كم هي حصة الدقيق التي يستلمها المخبز هل هي ** حصة الدقيق اليومية** كما انني لا اعرف الية توزيع الخبز في مصر لذلك اعذرني ووضح اكثر وهذا الملف بعد التعديل في المرفق وارجو ان اكون وفقت في المساعدة m7__abz.zip

اخي الكريم لو توضح اكثر لاني الصحيح ما فهمت طلبك ؟؟؟؟

جميل جدا ..... سلمت يمناك

اخواني رايت اكثر من استفسار عن check box واليكم هذا المثال بالمرفقاتcheck_box.rar

اخي الكريم طلبك غير واضح ارجو التوضيح اكثر لعل من الممكن مساعتدك

اخواني اليكم هذه الطريقة البسيطة لوضع تاريخ لانتهاء صلاحية لبرنامجك ولنفرض مثلا تاريخ 5\5\2008 نقوم بوضع الكود التالي في النموذج الرئيسي في البرنامج ( عند الفتح) Dim dt1, dt2 As Date dt1 = Date dt2 = "5 / 5 / 2008" if dt1 > dt2 Then msgbox "انتهت صلاحية البرنامج" docmd.Quit Else If dt1 = dt2 Then msgbox "غدا تنتهي صلاحية البرنامج" End if

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

اخي قم بالاتي" 1- افتح نموذج جديد في عرض التصميم 2- اضف الية مربع نص وسمية (month1) ثم اضف زر امر وسمية كما تريد 3- في التقرير سمي مربع النص الخاص بالتقرير ب (month) 4- على اعتبار ان اسم التقرير هو rep اليك هذا الكود DoCmd.OpenReport "rep", acViewPreview, , "month = '" & month1 & "'" حيث ان rep= اسم التقرير month= يدل على مربع نص الشهر في التقرير moth1=يدل على مربع نص الشهر في النموذج ارفقت لك الكود في ملف تكست حتى يكون لديك بتنسيقة الصحيح وانشاء الله ان اكون وفقت في الرد عليك _____.txt

اخي الكريم بعد ان تقوم بانشاء التقرير ويكون فية التجميع حسب التاريخ اذهب الى مربع انص ( تاريخ) الموجود في التقرير وادخل على خصائص واكتب في التنسيق mm هنا يتم تحويل الشهور الى ارقام 1,2,3.... ثم اعمل نسخ لنفس مربع النص والصقة بجانب الموجود حاليا وغير التنسيق الى mmmm ثم اعمل اخفاء لمربع النص الاول وانشاء الله تشوف النتيجة

عفوا اخي ولكن سؤالك غير واضح حسب ما فهمت: الكود هو كودات برمجية توضع في ملفات اكسس وذلك لتحقيق شروط او تنفيذ اوامر او ...........الخ اي انه يحول ملف الاكسس الى برنامج ويمكن وضعة في النموذج او في التقرير او الاثنين معا

Dim dt1, dt2, dt3 As Date dt1 = Date dt2 = "4 / 4 / 2009" dt3 = "3 / 3 / 2009" If dt1 > dt2 Then MsgBox "late"" Else If dt1 = dt2 Then MsgBox " too late" End If End If اخي الكريم هذا مثال على تاريخين هما dt2 &dt3 فاذا تجاوز التاريخ (dt1) اي من التاريخين السابقين فانة سيعطبنا رسالة معينة اخي هذا مثال صغير حاول الاستفادة منه..... وارجو ان اكون وفقت في الشرح