ابو عارف

'للملف وورد 2003 او اقدم ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.doc" ActiveControl.Hyperlink.Follow 'للملف وورد 2007 او احدث ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.docx" ActiveControl.Hyperlink.Follow 'للملف اكسل 2003 او اقدم ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.xls" ActiveControl.Hyperlink.Follow 'للملف اكسل 2007 او احدث ActiveControl.HyperlinkAddress = "D:\Myfolder\Testfile.xlsx" ActiveControl.Hyperlink.Follow ضع كود مناسب في حدث عند نقر لزرالأمر غير مسار الى مسار ملف لديك

بصراحة انا احب النقاش و اشكر كل من ينبهني على الخطاء و خاصتا املاء كتابتي لانني لا اجيد في كتابة لغة العربية ، و هذا الملف بعد اصلاح الخطاء attendance (1).zip

حياك الله و نحن دائما في خدمة و الحمد لله على وصول الحل

شكرا على تعليق استاذ ابا جود ، صحيح كان هناك خطاء بسبب كتابه كلمة Hour في مكان غير مناسب و لتصحيح تلك الخطاء اضطرت معالجتها بالفنكشن في وحدة النمطية و ذالك لزيادة طول في التعبير . اخي SANDA NET جرب التعديل و لك حرية اختيار التعديل من ثلاثة ، التعديل في مشاركتي الثانية او تعديل الحالي او تعدبل على طريقة استاذ "بحار الاكسس" و طريقة بحار الاكسس تحسب حتى ثواني اوقات و من وجهة نظري طريقة جيدة ، و للحل مشكلة ثواني اجعل قيم اوقات افتراضية في كل جدولين "Short Time" او Format(Date(),"nn" بالتوفيق،، attendance (1).zip

تفضل اخي الصق هذالعبارة في مربع اجمالي في تقرير دون اي استعلام اضافي =Hour(DSum("([time2]-[time])";"time_attendance")) & ":" & Format(Minute(DSum("([time2]-[time])";"time_attendance"));"00") attendance.zip

السلام عليكم و رحمة الله و بركاته اخي العزيز! حاولت تنفيذ دوال على الاستعلام و لكن لم ينجح حبذا لو ارفقت المثال لان دالة Int يرجع رقم الصحيح من الكسور ولاتصلح للتاريخ و الوقت و الشيء الثاني لماذا ضرب ناتج طرح وقتين في 24 ! هذا لتحويل ايام الى ساعات ، جمع 24 مع ساعت في حالة دوام شفتات ممكن ، لان وقت شفت ليلى تمتد الى يوم التالي و يرجع عدد ساعات مدومة سلبي و تعالج بـ جمع 24 . على كل حال لمعرفة تحويل دقائق الى ساعات في جدول record2 قم بتغير وقت مغادرة لمؤظف "اوس علي" مقابل تاريخ 2016/06/29 الى 2:50 ومقابل تاريخ 2016/06/30 هلى 1:40 ثم افتح التقرير لشهر 6 اذا مجموعة ساعات "اوس علي" 8:90 خطاء و الصحيح 9:30 بالتوفيق،،،

و بارك الله فيك ايضا اخي الكريم وجدت الملفك لايزال بحاجة لتعديل الا و هو تكوين ساعات من دقائق الاضافية و اضافتهم الى اجمالي ساعات مثلا مجموعة ساعات العمل 80:90 (ثمانون ساعة و تسعون دقيقة) هذا غير منطقي طبعا و الصحيح هو 81:30 كما هو في المرفق الجديد بعد تعديل attendance.zip

السلام عليكم و رحمة الله و بركاته اخي جرب هذا تعديل ب استعلام الاضافي TimeCount attendance.zip

اخي حسين والله جربت المثال على 2010 و 2007 و 2003 و شغال في جميع النسخ على طباعة عادية ،اما في 2003 لا ظهر خطاء بس يطبع صفحات فارغة لان اداة باركود غير مسجل و اكواد ازرار : Private Sub أمر4_Click() If IsNull(BR) Or BR = "" Then MsgBox "ادخل عدد النسخ": Exit Sub DoCmd.OpenReport "Rp1", acViewPreview, , "[ID]=5068", acHidden DoCmd.SelectObject acReport, "Rp1" DoCmd.PrintOut , , , , [BR] DoCmd.Close acReport, "Rp1" End Sub و الثاني Private Sub أمر36_Click() DoCmd.OpenReport "Rp1", acViewNormal End Sub

حياك الله استاذنا الغالي اساسا الفكرة مأخوذة من برنامج الاكسل اصلاً من المعلوم في الاكسل 3 نوع من دوال راوند، 1- Round هذا الدالةتهمل الكسور اقل او يساي 5 بعد مرتبة محددة و اكثر من 5 تقرب الى الاعلى، مثلا 5.333 الى 5.33 و 5.336 الى 5.34 2- RoundUp هذا تقرب الى الاعلى من اول كسر اضافي مثلا 5.333 الى 5.34 3-RoundDown هذا تهمل جميع الكسور من اول رقم اضافي بعد مرتبة محددة كما تفضلت بإنشاء تلك الدالةفي ردك الاخير يعني بعد اختصار في اسطر دالة من النوع 3 ، تكرمنا بإختصار دالتي 1 و 2 و لك تحية استاذي،،،

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

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

اخي حسين الملف اساسا بصيغة 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