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

السلام عليكم أحبائى وأساتذتى أقدم لكم ملف للبحث عن بيانات شخص فى صفحة معينة من عدة صفحات بإستخدام المعادلات فبمجرد اختيار اسم الصفحة المراد البحث فيها من القائمة المنسدلة الموجودة فى الخلية C2 من صفحة البحث واختيار اسم الشخص المراد البحث به من الخلية B2 من نفس الصفحة يتم جلب بيانات هذا الشخص من الصفحة التى قمت بتحديدها جزاكم الله كل خير وبارك الله فيكم البحث عن بيانات من عدة صفحات بالمعادلات.xlsm

قصدت من كلامي لو اردت ان الرقم يبقى على القرن الحالي الافتراضي اللي هو 2000 فقط احذف (1-) الموجود في سطر الكود لن تتمكن من الحصول على نتيجتين مختلفتين في حقل واحد الا باستخدام واسطة لان اكسس حين تكتب الرقم ( 05) لا يعلم هل تريد 2005 أو 1905 لذا يجب ان تستخدم وسيطة مثلا : - تستخدم خانة خيار بجانب الحقل لتحديد القرن او - يتم ادخال رقم كعلامة على القرن مثلا الرقم 05 اذا ادخلته هكذا تكون النتيجة 2005 ولكن اذا اردت القرن السابق يجب ان تضيف صفرا بالبداية 005 لتكون النتيجة 1905 هذه الوسيطة يتم معالجتها داخل الكود باستخدام الشرط ( اذا كان عدد الارقام 3 اذن = 19 واذا 2 = 20 ) شي مشابه لهذا او اي وسيطة اخرى ترى انها مناسبة فالبرمجة فكر وطريقة كلمة اخيرة : كتابة اربعة ارقام اسهل من كل هذه الدوشة ..

السلام عليكم و رحمة الله تعالى وبركاته إخوتي الكرام حياكم الله. بعد نزع خاصية انشاء شريط القوائم بالأكسس في النسخ بعد 2003 أصبح هناك عائق كبير في إضافة هذه الأشرطة و لأنه يتوجب عليك العمل على ملف 2003 أو استعمال Ribbon بلغة Html و هي أصعب من الفكرة الأولى. مما جعلني أفكر في طريقة تجعلنا نستغني عن هذه الطرق المرهقة بعض الشيء. و قمت بتصميم برنامج يستطيع أن يضيف شريط قوائم للنموذج الرئيسي لقاعدة البيانات مهما كانت نسختها 2003 أو النسخ التي تأتي بعدها. نبدأ على بركة الله في شرح البرنامج: بعد فتح البرنامج نتبع الخطوات التالية: 1 - أكتب اسم القوائم التي تريد أن تضيفها مع وضع رقم كل قائمة بالترتيب (1,2,3,....و هكذا) 2- أضف العناصر أو الأوامر التي تندرج تحت كل قائمة في النموذج الفرعي رقم العنصر , تسمية العنصر ثم الكود الذي تريد أن ينفذه هذا العنصر 3- أختر قاعدة البيانات سواءا كانت 2003 أو ما بعدها ثم اختر اسم النموذج الذي تريد أن تضيف له الشريط 4- قم بالضغط على زر "إنشاء الشريط" 5- افتح قاعدة بياناتك و أنظر للشريط المضاف حتى لو كان النموذج منبثق و شاشة الأكسس مخفية سوف ترى الشريط شروط استخدام البرنامج: 1- قبل البدئ أحفظ نسخة إحتياطية من قاعدة بيانات 2- يجب أن لا يكون لديك في قاعدة بيانات نماذج بهذه الأسماء : list1,list2,list3..... و هكذا 3- يجب أن يكون حدث عن النقر للنموذج الرئيسي خال من أي كود 4-بعد الإنتهاء أدعولي و لوالدي و لعائلة بالخير و الصلاح. هذا هو البرنامج انشاء شريط قوائم.rar

السلام عليكم أعلم ان هناك طريقة لتعطيل مفتاح الشفت في الاكسس ولكن المطلوب: هل يمكن تنفيذ أمر تعطيل أو إخفاء زر الخيارات في الأكسس حتى في حالة الضغط على مفتاح الشفت عند فتح قاعدة البيانات وذلك لعدم السماح بإظهار الكائنات المخفية وعدم السماح بالعبث في خيارات قاعدة البيانات الحالية وشكراً

طلب الي أحد الأصدقاء ان أقوم بإدراج التاريخ 29 شباط في كل السنوات الكبيسة المحددة بين عامين فكان هذا الملف (ربما يكون في ذلك إفادة للبعض) Leap years.xlsx

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

وعليكم السلام اخي الكريم ادخل على رابط القناة هذا وستجد ما تريد انشاء الله https://www.youtube.com/channel/UCUW73_m7p6u3dRby74aboww

جرب هذا الملف الماكرو Option Explicit Sub del_row() Dim i%, k% Dim st$: st = "حذف" Dim Main As Worksheet: Set Main = Sheets("البيانات") Dim Source As Worksheet: Set Source = Sheets("المحذوف") Dim lrB% If ActiveSheet.Name <> Main.Name Then Exit Sub k = Main.Range("a1").CurrentRegion.Rows.Count For i = 2 To k lrB = Source.Cells(Rows.Count, 1).End(3).Row + 1 If i > k Then Exit For If Main.Cells(i, 5) = st Then Source.Cells(lrB, 1).Resize(1, 5).Value = _ Main.Cells(i, 1).Resize(1, 5).Value Cells(i, 1).EntireRow.Delete: i = i - 1: k = k - 1 End If Next End Sub الملف مرفق ترحيل و حذف salim.xlsm

طبعا كالعادة معادلة رائعة وادت كل مهامها على اكمل وجه ممتاز احسنت استاذى سليم -بارك الله فيك

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

تفضل جرب هذا حدث اليوم.xlsx

لا اعتقد يوجد شيئ مستحيل في عالم البرمجة ولدينا في هذا الصرح الشامخ اساتذة يشار إليهم بالبنان ::بالتوفيق ::

و أخيراً وجدت من يجيب شكراً شكراً أخي الفاضل بارك الله بك لقد وجدت الحل للأسئلة السابقة بعد التجريب و للأسف لم أجد شيئاً في الإنترنت بعد البحث سواء باللغة العربية أو الإنكليزية و المشكلة التي تبقت هي إمكانية التحديث المذكورة فإلم تكن ممكنة سأتوقف عن البحث و إن كانت سأضع نسخة مصغرة عن البرنامج و لكن من مكان آخر يتوفر به انترنت سريع لا يكون ٢٥٦ و بعد الحسميات بالكاد ٥٦ و سرعة الـ upload لا تزال أبطأ من الـ Download مما يضطرني إلى التصفح عبر الهاتف المحمول كونه أخف حملاً و أيسر مؤنة من الحاسوب . و سأحاول أن أرفع ملفاً طالما أن هناك من شرفني و أسعدني بالالتفات إلى منشوري هذا . و أعطاك الله على قدر نيتك . و شكراً لك و ليتك تفيدني إن كان هذا الطلب مستحيلاً مبدئياً .

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

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

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

فضلك الله وأنعم عليكم تمام بارك الله فيكم وجزاكم الله خيرا

تفضل أستاذى الكريم اكسل vba فتح شيت جديد بمجرد ادخال الاسم فى الخلية.xlsm

استخدم حدث قبل التحديث وضع هذا السطر لالغاء الحدث DoCmd.CancelEvent

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

السلام عليكم انت ارفقت الجداول فقط ولكن من توضيحك لطريقة الادخال اليك الحل حسب تصوري 1- اعمل استعلاما يجمع بين رقم الشركة من الجدول الرئيس واسم المدينة والتاريخ من الفرعي 2- اعمل متغيرا نصيا عاما يحمل رقم الشركة عند كل اختيار او تغيير للشركة في النموذج الرئيس 3- في حدث قبل التحديث لحقل التاريخ مثلا في النموذج الفرعي اعمل بحث و مقارنة : ايجاد عدد السجلات في الاستعلام بحيث :( اسم المدينة + التاريخ +رقم الشركة) = (اسم المدينة + التاريخ + متغير رقم الشركة) في السجل الحالي .. اذا الناتج اكبر من صفر فيعني ان السجل الحالي مكرر ...

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

شكرا للاستاذ العزيز kaser906 لما يبذل من وقته وجهده اخي الكريم في التقرير لست بحاجة الى اكواد ، يوجد خاصية الفرز والتجميع انظر الصورة تتحدث ، في الاصدارات الاحدث ابحث عن الفرز والتجميع قد لا تجده كما في الصورة الأعلى يكون له الاولوية في الفرز ثم الذي يليه .. وهكذا ...

السلام عليكم اهل المنتدى الكرام اقدم لحضراتكم ملف به كود لتحديث وتغيير محتوى القائمة المنسدلة تلقائيا فهناك عمود مكون من أسماء الموظفين واخر بأكواد هؤلاء الموظفين-فقمت بعمل قائمة منسدلة بسيطة بأسماء الموظفين ثم بعد ذلك قمت بعمل كود يربط أسماء الموظفين بأكوادهم وأرقامهم عن طريق Vlookup بحيث عند اختيار اسم الموظف من القائمة المنسدلة يظهر بعد ذلك كود هذا الموظف مكان اسمه بارك الله فيكم وجزاكم كل خير تحديث محتوى قائمة منسدلة تلقائيا.xlsm

وعليكم السلام و رحمة الله وبركاته رائع و مبدع دائما اخي علي جزاك الله خيرا

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

السلام عليكم ورحمة الله استخدم هذه المعادلة =IF(OR(VALUE(MID(B2;SEARCH("/";B2;1)+1;3)) >140;VALUE(LEFT(B2;SEARCH("/";B2;1)-1))>90 );"ضغط عالى";"")

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

تفضل وهذا ايضا ملف لما تريد يوزرفورم.xlsm

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

جزاكم الله خيرا

على اعتبار ان اسم حقل تاريخ الميلاد txtdate فيما لواحتجت التغيير بين سنة 2000 و 1900 في حدث بعد التحديث اكتب السطر التالي : Private Sub txtdate_AfterUpdate() txtdate = Left(Format(Date, "yyyy"), 2) - 1 & txtdate End Sub او هذا الاختصار يقوم بالمهمة Private Sub txtdate_AfterUpdate() txtdate = "19" & txtdate End Sub واكتب في قناع الادخال في النموذج صفرين حتى لاتمكن من ادخال اكثر من رقمين

ممكن تجرب هذا معادلة جمع.xlsx

تفضلى أختى الكريمة احتساب المدة على اساس الرقم والاسم.xlsx

ملاحظاتك في محلها ومشكلة شاشة التحويل ان كود الرصيد كان يقرأ من المحول اليه وليس من المحول منه تم الضبط وايضا تم عمل كشف للارصدة نكون هنا استوفينا أساسات المشروع اتمنى لك التوفيق ،،، db14.mdb

السلام عليكم آسف جدا لتأخري لأنه كانت عندي الكثير من الأشغال بالنسبة لموضوعك هناك بعض الأسئلة قبل إعطائك الإجابة: 1- هل تقوم بملأ بيانات الشهر كاملا في وقت واحد أو كل يوم على حدى 2- هل كل عامل عندما تملأ بياناته تفتح له صفحة مثل الموجودة بالصورة 3-يجب تقسيم الجدول إلى ثلاث جداول الاول يخص معلومات الادارة و الثاني يخص بيانات الموظف و الثالث يخص معلومات العمل

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

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

السلام عليكم تم التعديل على معادلات لإظهار كل العلامات حسب المطلوب... مع إضافة عمود لعد العلامات بمعادلات... بن علية تفريغ الاجازات بالكشف.rar

السلام عليكم تفضل الملف المرفق مع بعض التعديلات ومعادلات شبه طويلة قليلا... بن علية تفريغ الاجازات بالكشف.rar

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

وعليكم السلام غفران ماشاءالله تبارك الرحمن ، هدية جميلة شكرا لك جعفر

جرب المرفق لعله يفي بالغرض ولاتتردد في طلب اي تعديلات مستخلص جاري11 H-.rar

السلام عليكم ورحمة الله استاذتنا الأفاضل بارك الله فيكم عندي نموذج يتم التسجيل فيه يوميا هل من الممكن أن يتم ترصيد بيانات من النموذج لليوم السابق لتظهر في اليوم الحالي بمعنى عند التسجيل في النموذج رصيد أستطيع أن أبدا به في النموذج التالي أرجو الإفاده بارك الله فيكم هذا نموذج Database16 (1).accdb