نجوم المشاركات

السلام عليكم بناءا على طلب احد الاخوة المتابعين تطبيق عملي لطريقة عمل فلتر بحث في كافة الاسماء بطريقة احترافية الشرح على قناتي على اليوتيوب search.accdb

وعليكم السلام ورحمه الله وبركاته تفضل اخي هانى Unique.xlsb

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

ربنا يديك طولة العمر فى صحه وسعاده وهنا

بسيطة ، لها أكثر من حل إن شاء الله ، ولكن خليها في البال ليوم غد إن كان هناك في العمر بقية

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

بصراحه الاستاذ@Foksh تعب معايا جامد من امبارح وانا هرياه اسأله والله بجد لو مين كان هيذهق بس انتو بجد جروب من كوكب تانى انتو ناس محترمه اوى وبشكركم بجد على اهتمامكم ومساهمتكم لإيجاد حلول لكل الاعضاء انا مش عارفه ازاى الناس الاونر فى الجروب دا بيلاقو وقت ازاى لكل اللى بتعملوه معانا والغريب أن مفيش حد بيسأل سؤال ومش بيتجاوب

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

جزاك الله كل خير أستاذ @عبد اللطيف سلوم ، شرح كافي و وافي

أخي الكريم لم انسى ، ولكن لانه اليوم الخميس نهاية الاسبوع يكون عندي ضغط في العمل ، لكني سأعمل على طلبك

وعليكم السلام ورحمة الله وبركاته أخي @hanafymahmood 🙂 خذ نسخة من البرنامج (مهم) .. واحذف منها جميع السجلات ما عدا 10 تقريبا تضعها كنموذج للتجربة عليها .. وأرفق البرنامج في موضوع جديد مستقل ( مهم ) .. ثم أشر لهذا الموضوع بوضع الرابط الخاص به في موضوعك الجديد .. ونتمنى لك التوفيق 🙂

جزاك الله خير على تعبك معى استاذ محمد هشام ربنا يجزيك كل خير تمام ياستاذ محمد هشام هو ده المطلوب

وعليكم السلام ورحمة الله تعالى وبركاته ربما هدا ما تقصد https://streamable.com/lrih4i في الخلية B5 =A2 في الخلية B6 مع السحب للاسفل للحصول على التواريخ =IF(ROW(B1)>=$B$2;"";EDATE($B$5;ROW(B1)*12)) وفي الخلية A5 مع السحب للاسفل للحصول على التسلسل =IF(B5<>"";ROWS($B$1:B1);"") توزيع التاريخ 2.xlsm

وعليكم السلام ورحمة الله تعالى وبركاته ربما تقصد جمع قيم العمود بشرط الخلفية الزرقاء تفضل جرب وضع هدا لكود في موديول Function TotalRng(SumRange As Range, SumColor As Range) Dim SumColorValue As Integer Dim SumRng As Long SumColorValue = SumColor.Interior.ColorIndex Set b = SumRange For Each b In SumRange If b.Interior.ColorIndex = SumColorValue Then SumRng = SumRng + b.Value End If Next b TotalRng = SumRng End Function وفي الخلية H17 =TotalRng(البيانات!$H$2:$H$80;K1) مع تلوين الخلية K1 باللون الهدف فرز بيانات ذات اللون 2الازرق.xlsm

ربما يفيدك هذا الموقع https://www.arabic-names.com/arabictoenglish

من الافضل اخي محاولة تصميم يوزرفورم والاشتغال عليه لتتمكن من الاستفادة من عدة مميزات سواءا في البحث او الاظافة او التعديل

تفضل جرب test.xlsm

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل في هذا الموضوع أريد حساب التأخرات اليومية للموظفين كما يلي: 1- في النموذج fm_info_fonctionnaire عند الضغط على زر "إظهار جميع الموظفين "يتم عرض جميع الموظفين الموجودين في جدول tbl_info_fonctionnaire وبشكل نماذج مستمرة. 2- بعدها أقوم بادخال التاريخ 3- بعدها أقوم بادخال وقت الدخول لكل موظف و وقت الخروج لكل موظف أريد أن يكون حساب تلقائي لحساب التأخر للموظف إذا كان جاء متأخر عن وقت بداية العمل وكذلك حساب مدة خروج الموظف عن وقت نهاية العمل الحالة = حضور معناه الموظف حاضر في هذا التاريخ وأستطيع كتابة وقت دخوله وخروجه الحالة = غياب معناه الموظف غائب في هذا التاريخ ولا أستطيع كتابة وقت دخوله وخروجه (الحقول غير ممكنة). بارك الله الرجاء المساعدة والتوجيه وربي يجازيكم خير الجزاء BASET.accdb

هذه طريقتي في إعادة تسمية العناصر الكثيرة دفعة واحدة في النموذج بأسماء متسلسلة مثل : ( Box2 , Box1 , ... ) هو كود وقد عملت له نموذج لتسهيل العمل .. 🙂 الكود يقوم أيضا بترتيب وتنسيق العناصر في شكل منتظم لتسهيل عملية التصميم 😊 إقرأ الملاحظات جيدا قبل أن تطبق 😉👌🏻 النموذج : النتيجة ستكون هكذ : ( من >>>> إلى ) >>>> >>>> للاستفادة من هذا النموذج .. قم بنقل النموذج لقاعدة البيانات عندك وسيتعرف تلقائيا على النماذج التي عندك 🙂 ملف التحميل : إعادة تسمية العناصر مع الترتيب بواجهة مرنة.accdb

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

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

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

السلام عليكم خاص لقاعدة البيانات المنقسمة قد يحدث مشكلة لقاعدة بياناتك على الخادم وحينها تضطر الى الدخول للموقع وعمل ضغط واصلاح يدويا في هذا الموضوع ارفقت نموذج ووحدة نمطية تقوم نيابة عنك وبضغطة زر باخذ نسخة اولا ثم الضغط والاصلاح نسختين .. mdb و accdb انقل لبرنامجك النموذج والوحدة النمطية غير اسم الجدول المحاط بالمربع الأحمر الى احد جداولك المرتبطة Private Sub zer1_Click() Call BKUpdb Call CompactSer End Sub نسخة جداول واصلاح.rar

هذا المثال مبسط لفهم الفكرة ..... Fatoorh2000.mdb

السلام عليكم بعد إذن أخي الغالي سليم تفضل الكود التالي (تعديلا علي الكود الذي أرسلته) يتم تفعيل الكود بالضغط علي الزر بعد تغيير الخليتين الحمراوين Sub FilterData() Dim jobs As String, cycl As String jobs = [B1].Value: cycl = [I1].Value On Error Resume Next ActiveSheet.AutoFilterMode = False With [B3:O999] .AutoFilter Field:=13, Criteria1:=cycl .AutoFilter Field:=14, Criteria1:=jobs End With End Sub تفضل الملف أيضا عمل SORT بناء على إختيارين.rar

السلام عليكم و رحمة الله و بركاته هل من يريد كل الأعداد بين عددين (حسب الاختيار) موزّعة عشوائياً دون تكرار ؟؟ انظر الى الملف المرفق توزيع عشوائي دون تكرار1.rar

السلام عليكم أخي الحبيب / ابو القبطان جزاك الله خيرا مرورك شرف كبير أخي الكريم / Ultimate Power تفضل المرفق به كل ماطلبت لاحظ الآتي: في ورقة الموظف ستجد زر أصفر يرجعك للورقة DailyDatabase عند الضغط علي الزر الأحمر (Delete + Shift to Monthly) سيحذف البيانات بعد أن يرحلها للتقرير الشهري في ورقة (Main) ستجد زر (تحديث القائمة) لانشاء وتحديث قائمة ارتباط باسماء الموظفين New2_sample.rar

السلام عليكم مرفق الملف مع أول طلبين إستحداث صفحات الموظفين والترحيل إليها بالضغط علي زر Shift مع امكانية حذف البيانات بعد الترحيل بالضغط علي الزر الأحمر تفضل المرفق New_sample.rar