jjafferr

تقدر ترفعه على موقع خارجي ، ثم ترفق لنا الرابط هنا جعفر

نعم ، لوسمحت أرفق برنامجك ، وأخبرنا اسم الحقل ، والنموذج ، والتقرير جعفر

عفوا أخي محمود ، هناك ملاحظة يجب ان تنتبه لها: البرنامج يعمل على ان فترة الاجازة شهر او شهرين فقط ، يعني مثلا: 1-1-2006 الى 25-1-2016 او 5-1-2016 الى 23-2 2016 ولكنه لن يعمل على فترة اجازة اكثر من شهرين ، يعني مثلا: 1-1-2016 الى 3-3-2016 او 2-2-2016 الى 4-4-2016 للعلم جعفر

السلام عليكم أخي الفاضل ، انت مسكت الموضوع من طرفة ، ولم تكمل مشوار الموضوع الذي تحدثت عنه ، وهو: http://arabteam2000-forum.com/index.php?/topic/282771-استيراد-البيانات-من-صفحة-ويب/ اقرأ الموضوع بالكامل ، وانزل المرفقات حسب ملاحظات كل مشاركة ، وستصل الى الحل ان شاء الله جعفر

حياك الله اخوي محمود جعفر

نعم أخوي أبوخليل ، احاول اطوّع التالي لخدمة المطلوب: http://lebans.com/autosize_textbox.htm و http://lebans.com/textwidth-height.htm بس ما ادري شو الممكن وعليكم السلام أخي أبو إبراهيم ، وحياك الله في المنتدى للأسف مافهمت قصدك ، ولا يمكن انزال المرفق . جعفر

حيا الله أخي محمد انا اعمل على الاكسس 2010 ، واليك نسخة اخرى ، وان شاء الله تعمل معك بوجه عام ، البرنامج فيه فقط اسم الموظفق ، بداية تاريخ الاجازة ، ونهاية تاريخ الاجازة ، وهكذا ننادي الوحدة النمطية من الاستعلام: . جعفر 513.MM.accdb.zip

وهل عرض الصفحة A4 بالطول؟ كُلٌ له ذوقه في الاصدار أخي أبوخليل صامد مع الاصدار 2003 ، بينما انا على الاصدار 2010 ، وفي شباب على الاصدارات الاجدد ، وكُلٌ له اسبابه جعفر

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

تفضل تختار الشهر من النموذج ، وتفتح التقرير: . واذا لا تريد الايام التي لا علاقة لها بالشهر الذي تم اختياره ، فما عليك إلا وضع الشرط التالي في الاستعلام Q: . والعقل المدبر للعملية كلها هي هذه الوحدة النمطية: Function Count_Days(S As Date, E As Date, M As Date) As Integer 'S = Det_A = Start Date 'E = Det_B = End Date 'M = Month of Report Dim LastDay_S, FirstDay_E, LastDay_M As Date LastDay_S = DateSerial(Year(S), Month(S) + 1, 0) FirstDay_E = DateSerial(Year(E), Month(E), 1) LastDay_M = DateSerial(Year(M), Month(M) + 1, 0) If Month(S) = Month(M) And Month(E) = Month(M) Then 'M month = month for both S and E Count_Days = DateDiff("d", S, E) + 1 ElseIf Month(S) = Month(M) And Month(E) <> Month(M) Then 'M month = month for S only Count_Days = DateDiff("d", S, LastDay_S) + 1 ElseIf Month(S) <> Month(M) And Month(E) = Month(M) Then 'M month = month for E only Count_Days = DateDiff("d", FirstDay_E, E) + 1 Else 'out of boundries Count_Days = 0 End If End Function . جعفر 513.MM.mdb.zip

السلام عليكم وبعد إذن اخوي أبوخليل ، أرجو من اخي سامي إرفاق برنامجه ، وخلينا نشوف كيف نقدر نطبق فكرة اخوي أبوخليل ، بالتنسيق والمسافات اللي تريدها جعفر

هاي مب مشكلة ، ولكن يجب ان نعرف تسلسل الصورة ، وإلا كيف يمكن ان نعطيها رقم!! اذا ممكن ان تعمل نموذج في الاكسس ، مثل اللى عملته في الشرح ، فيه اسماء الصور ، فعليه الموضوع بيكون اسهل ، لي وللمسؤول جعفر

وضحت الفكرة ، اعطني شوية وقت وارجع لك ان شاء الله جعفر

اشكرك على كلماتك الرقيقة الظاهر المعلومة بيننا لم تصل بالطريقة الصحيحة ، لي او لك احاول شرح طريقتي مرة ثانية: نستطيع ان نستخدم مسار حقل الصورة ، من الجدول ، او من الكود (لأن المسار واسم الصورة لن يتغير بالخطوات التالية) ، عند تغيير الصورة (لاحظ لم اقل عند تغيير اسم الصورة او المسار) : يختار المسؤول اسم الصورة اللي يريد تغييرها ، فلتكن لحم5 مثلا ، والتي تتواجد الان في المجلد icons ، فتنفتح له نافذة تصفح الملفات/المجلدات ، ويستطيع المسؤول اختيار اي صورة من اي مجلد ، فيختار مثلا الصورة New_BBQ.jpg في مجلد Downloads ، فيقوم الكود بـ: حذف الصورة لحم5 الموجودة حاليا في المجلد icons ، نسخ الصورة New_BBQ.jpg من مجلد Downloads ، إلى المجلد icons ويغير اسم الصورة الى لحم5 . بهذه الطريقة ، الخطوة #1 اعلاه ، لم تتغير ، وانما تم تغيير الصورة فقط ، وبقيت جميع الصور بأسمائها في المجلد icons ان شاء الله اكون وُفقت في الشرح هذه المرة جعفر

وعليكم السلام ترتيب التنقل من حقل الى آخر في الحقل ، مرتبط بقيمتين لكل حقل: Tab Index ، اي تسلسل اي حقل تقف عليه الايقونه عند الضغط على Tab/Enter ، والتسلسل يبدأ بالرقم 0 ، Tab Stop ، وفيه خيار نعم اذا اردت الايقونه التوقف على هذا الحقل ، او لا ، . عادة ، جهاز الباركود يُدخل قيمة الباركود في الحقل ، وبعدها وتلقائيا يعطي امر Tab/Enter ، حتى تنتقل الايقونه الى الحقل التالي ، لذلك ، يجب ان تكون Tab Index الحقول مرتبه تصاعديا ، ابتداء من حقل الباركود ، واذا اردت الانتقال من حقل الباركود الى سجل جديد لحقل الباركود (يعني لا تتوقف الايقونه على اي من الحقول الاخرى) ، فاجعل Tab Stop حقل الباركود نعم ، وجميع الحقول لا. جعفر

وعليكم السلام اخوي وائل ماشاءالله عليك ، شرح كافي ووافي ، وياريت كل اللي يضعون اسئلتهم في المنتدى يشرحوها مثلك ، لو لقوا الاجابة اسرع عندي التعليق التالي على شرحك: - في أي حال ، اذا أردت إضافة صورة رابعة ، فيجب عليك دخول التصميم ، - إذن نحن لا نتكلم عن الإضافات المستقبلية ، وإنما نتكلم عن تغيير الصورة فقط ، - في هذه الحالة ، انا اقترح ان نعمل نموذج خاص لتغيير الصور ، ويختار المسؤول اسم الصورة اللي يريد يغيرها ، ثم تفتح له نافذة تصفح مجلدات/ملفات الوندوز ، ويختار الصورة الجديدة ، فيقوم البرنامج بنسخ الصورة وتغيير اسمها إلى المجلد icons ، ويحذف الصورة القديمة. شو رايك؟ جعفر

وين يا سلمان ، ننتظر المرفق نشتغل عليه جعفر

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

السلام عليكم اخي الغائب محمود وحشتنا يا راجل ، وحتى البدر له طلّه مرة في الشهر ، بس انت بقيت اغلى منه ، ولك طلّه متى ما تحب طبعا ممكن عمل اللي تريده بالكود ، بس عندي لك حل تاني اسهل: ايه رايك في تقريرك الحالي ، نعمل خانه "عدد ايام الإجازة" لكل سجل ، وتحت ، نعمل مجموعهم جعفر

السلام عليكم احببت المشاركة في هذا الموضوع ، لأني قمت بمثل هذا العمل مسبقا في بعض برامجي طبعا قمت بعمل بعض التغييرات في الجداول!! النموذج التالي يقوم بكل العمل: . عمل النموذج اسهل من شرحه 1. حقل تاريخ الاجازة ، 2. حقل سبب الاجازة ، 3. حقل نوع الاجازة ، 4. زر لتصفية البيانات 1 و 2 و 3 و 6 ، 5. الخورج من النموذج ، 6. في جدول Emp ، اضفت حقل اسم القسم الذي يشتغل فيه الموظف ، لذا هنا نستطيع ان نختار القسم ، 7. وعند الضغط على الزر عرض ، فسترى اسماء جميع موظفي القسم في الحقل 9 ، 8. زر تصفية الاسماء التي تم اختيارها ، 9. يمكن اختيار كل موظف على حدة ، بكتابة اسمه ، وتلقائيا سترى القسم الذي يعمل فيه (فقط لعدم اختيار الموظف الخطأ) ، 11. يمكن حذف اي سجل من السجلات المختارة ، 10. فقط عند الضغط على هذا الزر ، يتم ادخال الاجازات الى جدول الاجازات ، وإلا ، فجميع السجلات تظل في الجدول المؤقت tbl_Temp ، والذي تُحذف سجلاته تلقائيا عند الخروج من النموذج ، جعفر 510.اضافة اكثر من موظف في ان واحد.accdb.zip

وعليكم السلام تفضل هذا الرابط: http://www.vbaexpress.com/kb/getarticle.php?kb_id=468 و نفس الحل ، ولكن بشرح اكثر https://support.microsoft.com/en-us/kb/291295 جعفر

وعليكم السلام قمت بالاجابة على هذا السؤال في منتدى الفريق العربي للبرمجة سابقا ، وهذا هو الرابط: http://arabteam2000-forum.com/index.php?/topic/292971-هل-من-طريقة-لإدراج-صورة-بدون-خلفية-في-التقرير/ جعفر

حياك الله أخوي صالح واااااااااااااااااااااااااااااااااااااااااااااو جد رهيبه القاعده من 36 ميقا الى 5 وحياك الله أخوي بدر والميزة الموجودة في هذا البرنامج ، هو انك تستطيع ان تجعل البرنامج يشتغل: 1. بأمر من سطح المكتب والبرنامج مغلق ، حيث تعطي الامر من Commandline بفتح الاكسس على الماكرو Execute مباشرة ، او 2. بأمر من اي من برامج الاكسس ، او 3. تستطيع ان تضع وقت معين في Windows Schedule ، بحيث يشغل البرنامج في وقت معين ، تلقائيا ، كل يوم بس اولا يجب تعديل الماكرو Execute في البرنامج اعلاه ، حتى يغلق البرنامج تلقائيا بعد الانتهاء من عمله جعفر

على العموم ، اذا الله كتب لنا بالأخرى ، بنحتاج لكم شباب تشاركونا في الفرحة