ابو عارف

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

الشكر موصول باذن الله ما فهمت ، هل تقصد استيراده من اكسل او الوورد!! او تزامن تغيراته مع المصدر مثلا لو غيرت او قمت اضافة مكتب او المدرسة يتغير البيانات تلقائي ملف الاكسس!!!

اخي حسين الملف اساسا بصيغة 2007 و ان تقصد على 2003 ، اليك الملف ملحوظة : قم بتشغيل نفس الملف دون نقل كائن منه او اليه اذا شتغل تمام، لعملت تعديل على برنامجك . بالتوفيق,,, BBarcode1.rar

وجزاك

تفضل ابو يوسف المثال حسب فهمي اختر اسم المكتب من القائمة للفتح تقرير اجمالي مدارس حسب مكتب المختار SchoolR.rar

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

تفضل اخي ابراهيم sum10.rar

السلام عليكم و رحمة الله اخي ابراهيم بعد اذن الاخ علي اليك احد الحلول sum10.rar

بارك الله بك استاذ اباجود على كلامك، اعجبني في الدالة :اختصار وصول الى الهدف و هذا ما يعجبني في البرمجة اكثر مع الملحوظة بسيطة الا و هي تنسيق رقم صحيح بدون كسور مختلف عن رقم صحيح ذو الكسور لاحظ الصورة والذي لم يعجبني: تسمية دالة Ramhan_Round و هي تقترب الى الادنى و نحن نريد عكس (اقتراب رمهان الى الاعلى) . حبذاً لو اخذت جولة اخرى للحصول على دالتين اخرى ، دالة تقريب اقل من النصف الى الادنى و اكثر الى الاعلى و الدالة تقريب جميع الكسور الى الاعلى بهذالطريقة. و بالاخص دالة نصفين ، لانها تحترم العدل بين طرفين و لك التحية.

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

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

السلام عليكم و رحمة الله و بركاته و تحية خاصة للاستاذ جعفر الأخ حسين : اضافة سطر بسيط في الكود السابق ستنحل المشكة ان شاء الله DoCmd.OpenReport "medicine", acViewPreview, , , acHidden DoCmd.SelectObject acReport, "medicine" DoCmd.PrintOut , , , , Me.t3 DoCmd.Close acReport, "medicine" بالتوفيق

بســــــــــــــــم الله الرحمــــــــــن الرحـــــــــــــــــــــــيم الســــــلام عليكــــــــــــــــم و حمة الله و بركاته اخواننا الكرام ، نظرا لكثرة المشاركات حول تقريب الكسور الارقام ، حبيت اشارككم الوحدة النمطية بـ 3 دوال (RoundUp) (RoundHalf) ( RoundDown) دالة : RoundUp([Number],3) للتقريب رقم 33.3333 الى 3.334 او 3.3331 الى 3.334 و هكذا دالة: RoundHalf([Number],3) للتقريب رقم 33.3336 الى 3.334 او 3.3335 الى 3.333 و هكذا و السبب تسمية الدالة بهذالاسم ، وجود دالة باسم Round في الاكسس و انا سميتها RoundHalf دالة: RoundDown([Number],3) للتقريب رقم 33.3336 الى 3.333 او 3.2231 الى 3.223 و هكذا و المرفق يحوي ملفين الاول للعرض ارقام مقربة حسب تنسيق مثلا: عند اختيار اربع منازل أعشار 5.4400 ، 5.4444 ,5.2000 و الثاني بدون تنسيق مثلا : 5.4444 ، 5.44 , 5.2 ابو عارف Round-RowndUp-RowndDown.rar

هذا للسهولة ادخال و توزيع بيانات عميل جديد و اليك المرفق الجديد حسب رغيتك ابو عارف كمبيالات.rar

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

السلام عليكم و رحمة الله و بركاته في المرفق تجد ملفين كل واحد منهما على فكرة مختلفة ابو عارف مثال2.zip

تفضل اخي سلمان رقم الصنف في tabl1 هو الباركود بالتوفيق برنامج المطاعم.rar

بارك الله فيك و في عيالك و في علمك و في بلدك و الف حمد لله على سلامة استاذنا الغالي. و ما يتعلق على دالة Round في الاكسس اعتقد انها مخلولة نوعا ما لاحظ الصورة: في سجل الاول والثاني كسور متساوي و الاختلاف في رقم صحيح ما لا علاقة له في تقريب و سجل الرابع و الخامس ، نرى 5 تقبل اقتراب الى 5 ولكن لا تقبل اقتراب الى 4 ولكن في الاكسل 3 نوع من دالة Round Round, RoundUp, RoundDoun و جميعهم يعمل بكفائة و دالة Format في الاكسس !!!! فكرة صحيحة للتخطي المشكلة و تحية للجميع

تفضل اخي ان شاء الله يكون حسب المطلوب tkweed.rar

تفضل اخي Hotel.rar

عليكم السلام تفضل =DCount("*","room","[Status]='شاغرة'") =DCount("*","room","[Status]='محجوزة'") =DCount("*","room","[Status]='في النظافة'") =DCount("*","room","[Status]='في الصيانة'")

الصورة توضح المطلوب و تعديل ولكن اين النقص!!! مرتبات 2016 - Copy.rar

اخي جعفر القيمة في سجل 13 لا في سجل 7 كما كتب أخ هاني و فعلا تم تقريبها الى 250.91 ابو عارف مرتبات 2016 - Copy.rar

السلام عليكم و رحمة الله و بركاته استاذ جعفر: حسب فهمي الاخ هاني يريد تقريب كسور الى الاعلى من عُشر الاول مثلا من 5.51 حتى 5.59 الى 5.6 و هكذا و المثال في المرفق

السلام عليكم و رحمة الله و بركاته استاذ جعفر: حسب فهمي الاخ هاني يريد تقريب كسور الى الاعلى من عُشر الاول مثلا من 5.51 حتى 5.59 الى 5.6 و هكذا و المثال في المرفق