صباح حسين

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

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

للرفع

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

شكرا لك اخي ابوخليل لتجاوبك معي سوف ارفق الملف بعد ادخال بيانات بها اجازات.rar اجازات.txt

السلام عليكم اخزاني الاعزاء . في البدء اود ان اشير باني قد تعلمت البرمجة من خلال منتداكم واتمنى ان اجد الحل عندكم كما عوتمونا احتاج الى انشاء استعلام يقوم بجلب بيانات من جدول الاجازات ويدرجها بشكل اعمدة على ايام الشهر وقد ارفقت قاعدة بيانات مع ملف نصي اشرح فيها مشكلتي وادعو الله ان اجد الحل عندكم اجازات.rar اجازات.txt

حسب خبرتي البسيطة تستطيع ذلك عن طريق انشاء قاعدة بيانات اكسس ومن داخل هذه القاعدة تعمل (link) للجداول الموجودة في SQL وتعمل الاستعلامات والنماذج وحسب احتياجك لادخال او استفسار عن البيانات وقد تكون هنالك طريقة اخرى ولكني جربت هذه الطريقة ونجحت معي واذا كانت هنالك طريقة اخرى من الممكن ان تحصل عليها من الاخوة المشرفين

شكرا لكم اخواني وصلت الفكرة ان شاء الله

السلام عليكم . في البداية اقدم شكري لجميع الاخوة وبالاخص ل(ابو ادم وابو ياسر ) لاهتمامها بالموضوع . لقد جربت طريقة الاخ ابو ادم وقد نجحت في تغير حجم الورقة حسب عدد السجلات ولكن ظهرت لدي مشكلة عدم ظهور (الحقول) في نفس الاماكن عند اختيار حجم A5 اي ان التقرير يظهر بشكل غير منسق ومرتب كما في A4 . هل من طريقة لتلافي هذه المشكلة بعد اذن اخونا ابو ادم ارجو من الاخ ابو ياسر طرح طريقته

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

السلام عليكم . شكراً لك اخي ابو ادم على تجاوبكم مع الموضوع واعتذر لعدم تمكني من ان ارفق ملف لانه كبير ويحتوي على بيانات . وقد وجدت حل وقتي وهي كالاتي 1-انشاء استعلام يحتوي على حقل(re_count) محسوب يقوم بحساب عدد السجلات لكل موظف 2-انشاء استعلام يحتوي على الحقول المطلوبة بالاضافة الى الحقل (re_count)اعلاه مع وضع شرط معايرة (اصغر او يساي 10) وانشاءت تقرير يعتمد على هذا الاستعلام وخترت حجم الورقة A5 3- نسخت الاستعلام في الفقرة 2 مع تغير شرط المعايرة الى ( اكبر من 10 ) وانشاءت تقرير على هذا الاستعلام واخترت حجم الورقة A4 4- صممت مايكرو يقوم بعرض التقريران في ان واحد وفي الختام اكرر اعتذاري لعدم ارفاق الملف وارجو ان يكون لديكم حل اخر لنني بهذه الطريقة سوف اضطر الى اعادة انشاء اكثر من 10 استعلامات مما يؤدي الى كبر حجم القاعدة

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

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

السلام عليكم . اخواني الاعزاء لقد صادفتي مشكلة لا اعرف كيف اجد الحل لها لذا التجئت اليكم . لدينا قاعدة بيانات محملة على السيرفر (sql) وقد عملت (link) بين الجداول السرفر وبين قاعدة جديدة قي اكسس وتمت العملية بشكل جيد ولكن عندما حاولت ان انشاء استعلام جديد مبني على الجدوال تظهر لي اسماء الجدوال لكن من دون ان تظهر اسماء الحقول . ومن ثم جربت ان انشاء استعلام جديد في اي قاعدة اكسس تظهر لي نفس المشكلة . مع ظهور الرسالة التالية (error in loading dll ) علما باني استعمل اوفيس 2033 مثبت على نظام تشغيل ويندوز( 7) . وعند المحاولة يصورة متكررة . تظهر لي رسالة تفيد باني بحاجة الى تحديث ملفات (microsoft jet) علما باني متصل بالنت ويتم تحديث النظام بشكل مستمر . ارجو ان تساعدوني لانه لدي اعمال يجب انجازها على برامج تعمل باكسس 2003 .

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

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

شكرا اخي ابو ابو خليل على تجاوبك مع الموضوع .وبارك الله بك وبجميع اعضاء هذا المنتدى الرائع. وابقاكم خير عون وسند للمبتدئين . واطال الله اعماركم .

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

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

السلام عليكم ز اخواني لقد اطلعت على الدالة (vlook2all) وقد اعجبت بها كثيرا واتمنى ان يقوم احد الاعضاء بالاجابة على بعض الاستفسارات . وان يتسع صدرهم لهذه الاسفسارات لانها صادرة من قبل مبتدء ويحب ان يتعلم منكم وخير وسيلة للتعلم السؤال من ذوي العلم 1- النطاق المستخدم(myrang) اين وكيف تم تعريفها او تحديد الخلايا المشمولة بالنطاق المذكور 2- كيف استطيع توسيع عدد الخلايا(الصفوف وليكن 500 صف) الني اكتب بها الدالة ( هل استعمل النسخ واللصق وكيفية عمل ذلك ) 3-كيفية زيادة عدد الاعمدة التي يطبق بها الدالة . اتمنى ان اجد الاجابة وبشكل عملي (مصور) فيديو

السلام عليكم . الف تحية تقدير واعجاب للاخوة (خبور و احمد ) على تجاوبهما السريع معنا . وفقكم الله واجازكم خير جزاء .

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

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

السلام عليكم . اخوني لقد جربت هذا الكود وهو لاحد الاخوان بالمنتدى . وهو كود جيد واستفت منه كثيرا ولكني حاولت التغير به لكي يقف عندما اطلب ذلك . اي عندما اجد الكلمة التي ابحث عنها باي صفحة ان يتوقف عن البحث عند ذلك الصفحة وذلك الضغط على (x ). او باي طريقةو اخرى لاني احتاج التوقف باي صفحة ليس الصفحة الاخيرة . اجو ان اكون وفقت بشرح ماطلبه . كود ممتاز للبحث فى كل الشيتات.zip كود ممتاز للبحث فى كل الشيتات.zip

اخي هذا كود نفلته من المنتدى وقد طبقته ونجح معي ارجو ان تستفاد منه .حيث عليك ان تغير نطاق الى الذي لديك Dim lastrow As Long Application.ScreenUpdating = False With Sheets(1) .AutoFilterMode = False lastrow = Range("a" & Rows.Count).End(xlUp).Row Range("A1:D22").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$D$22").AutoFilter Field:=4, 1 Criteria1:="راسب" .Range("a2:d" & lastrow).Copy Sheets("راسب").Range("a2") .AutoFilterMode = False End With Application.ScreenUpdating = True End Sub