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

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

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

نرحب بالأخ سليم حاصبيا فى فريق الموقع ونسأل الله أن يعينك على مهام الاشراف أهلا وسهلا

الاخوة الاعزاء في المنتدى الموقر محمد طاهر ياسر خليل أبو البراء زيزو العجوز ابو يحيى1 احمد بن ابراهيم عمر الحسيني جلال الجمال_ابو ادهم ابو عبدالبارى حسين22 قلم-الاكسل(عبدالعزيز) احمد21 الخ.... (و كل من يظهره التحقيق) الف شكر على التهنئة وان شاء الله سوية الى أبعد من الواجب

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود نقل الاسماء بدون تكرار تم ارفاق كود الحل من الفاضل أ / رحمة الله _ عماد الحسامى _ طارق محمود _ يحيى حسين و لا تنسونا من صالح الدعاء تحياتى اظهار الاسماء بدون تكرار11 (hossai).rar اظهار الاسماء بدون تكرار_hossai.rar اظهار الاسماء بدون تكرار2 (tarek).rar اظهار الاسماء بدون تكرار بعد الكتابة مباشرة - الاستاذ يحيى حسين (1).rar

أين العريس ؟ غاب عنا في فرحة عرسه .. أهذا يجوز؟ إلى الأمام أخي الغالي سليم

الف مبروك للمنتدى واعضاء المنتدى اختيار موفق جدا الف مبروك استاذنا الكبير سليم

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

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

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

مرحبا عملت على الملف و نسيت ان ارفه الى المنتدى 2222.rar

انا حشارك فقط بوجود الخطأ في اول مشاركة وفي السطر rs.FindFirst "[UserName]= ' " & Me.txtUserName & " ' And [Department]= ' " & Me.Me.cboDepartment & " ' " تلاحظ تكرار me اخ بو عبدالله

غفر الله لى ما كان للعين ابدا ان تعلو على الحاجب شكرااااااا لك

مشاركة مع اخوتي واحبتي الكرام تفضل .. وغير ما يلزم .. حسب المسميات عندك Dim rs As Recordset Private Sub cmdOK_Click() Set db = CurrentDb Set rs = db.OpenRecordset("tblUsers", dbOpenDynaset) rs.FindFirst "UserName = '" & UserName & "' and password ='" & Password & "'" If rs.NoMatch Then MsgBox "هذا المستخدم غير مسجل" Exit Sub Else DoCmd.OpenForm "frm_main" DoCmd.Close acForm, Me.Name End If End Sub

Dim rs As Recordset Dim Criteria As String Set rs = CurrentDb.OpenRecordset("tblUser", dbOpenSnapshot, dbReadOnly) Criteria = "[UserName]='" & [txtUserName] & "' And [Department]='" & [cboDepartment] & "'" rs.FindFirst Criteria If rs.NoMatch = True Then MsgBox "يرجى الـتأكد من إسم المستخدم", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "رسالة تنبيه" Me.txtUserName.SetFocus Exit Sub End If If rs!Password <> Me.txtPassword Then MsgBox "يرجى الـتأكد من كلمة السر", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, "رسالة تنبيه" Me.txtPassword.SetFocus Exit Sub End If هل تسمحون لى بالمشاركة معكم شرطين فى دالة البحث rs.FindFirst

جرب هذا الشيء salim.rar

كيف يمكن يمكن القيام بهذا التنسيق الشرطي zebra-lines with Cond_Format.rar

السلام عليكم ورحمة الله وبركاتة هذا البرنامج كان احد الاعضاء قد وجده في احد المنتديات الاجنبية وهو لقاعدة بيانات وتم التعديل والاضافة والتنقيح وكانت النتيجة الاتي :: عناوين السجلات في اليوزر فورم تعمل اتوموتيكيا عند تغيرها في الشيت اضافة صورة لكل سجل و يتم اضافة الصور الي الفلدر All_Pic بالأسم الاول للسجل اضافة سجل جديد تعديل السجل الحالي حذف السجل الحالي البحث في الاعمدة التي تم تعليم التشك بوكس لها في هيدر العناوين وتظهر هذه العناوين فقط في كومبو بوكس البحث يشمل الملف علي ثلاث صفحات الصفحة الاولي لقاعدة البيانات الصفحة الثانية لقاعدة البيانات اخري مصغرة لتوضيح الية عناوين اليوزر فورم الصفحة الثالثة تقرير بالسجلات التي تم اختيارها اصل الملف قبل التعديل New Userform Example_1.rar الملف بعد التعديل قاعدة بيانات بالصور_2.rar

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

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

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الافاضل كل عام وانتم بخير قمت بعمل استعلام من النوع CrossTab وقمت بانشاء تقرير مصدر بياناته هذا الاستعلام وعندى حقل مثلا section فى هذا الحقل فى الجدول حوالى اكثر من 18 قسم يتم اختيار بعض الاقسام اسبوعيا من هذه الاقسام الـ 18 وقد يتم اختيارها جميعا لحسن حظى عندما كنت اقوم بالتجربة اخترت كل الاقسام وكان ماشى كل شئ تمام عند حذف احد الاقسام طبعا اختفى من الاستعلام اسم القسم فقط المشكلة التقرير اصبح به مربع نص مرتبط بسجل غير موجود فى الاستعلام طبعا التقرير لا يفتح السؤال هنا هل من طريقة لجعل التقرير يفتح بالرغم من وجود هذا الخطأ وفكرت فكرة اخرى وهى عمل نموذج بدلا من التقرير حتى احاول التحكم فيه بالاكواد بما اريد ولكن مربع النص الذى يختفى من الاستعلام عندما يصبح فى النموذج مرتبط بسجل غير موجود يعطى هذا الخطـأ بهذا الشكل #Name? حاولت بالاكواد اخفاء مربع النص او تغير القيمة بلا جدوى هل من حل بارك الله فيكم ارفقت مثال حتى لا ارهق اساتذتى الافاضل| تسهيلا على اساتذتى الكرام حتى تتضح الرؤية جيدا برجاء معاينة النموذج والتقرير مره عندما تكون كل العناصر فى الجدول tbl_work_load للعنصر false = select_emp ومرة اخرى عندما تكون كل العناصر فى الجدول للسجل select_emp = false ماعدا لسجل الاول فقط والذى يحمل العنوان "Chief officer" للعنصر true = select_emp CrossTab.rar

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

شغلة بسيطة تبديل اول حرفين.rar او ربما هذه المعادلة هي الانسب =IF($A1="","",MID($A1,2,LEN($A1)-1)&MID($A1,1,1))

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

خالص التهنئة والتبريكات للفاضل والمبدع سليم حاصبيا

اخى سليم الف مبرررررررروك

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

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

الف الف مبروك للاستاذ المحترم سليم

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

تحياتى و ايام مباركه الف مبروك اخى الفاضل سليم حاصيبا و اختيار موفق و اضافة كبيره للمنتدى

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

إضف فقط اشارة تنصيص لكل من Password و Text Private Sub ShowPassword_AfterUpdate() If Me.ShowPassword.Value = False Then Me.txtPassword.InputMask = "Password" Else Me.txtPassword.InputMask = "Text" End If End Sub

مبروووك استاذ سليم اهل الخير يستاهلون الخير نفع الله بعلمك واعانك الله على كل من يحبونك

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

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

أخي الكريم أحمد جربت الملف المرفق وكلا الكودين يعملان بشكل صحيح وتتم الحماية لجميع الأوراق بلا استثناء وعند فك الحماية يتم فك الحماية لجميع أوراق العمل بلا استثناء .. حاول توضح المشكلة بالصور ، وهل يحدث معك خطأ من نوع معين كرسالة خطأ أو ما شابه؟ قرأت المشاركة مرة أخرى ولربما يكون هذا ما تقصده Sub protectclose() Dim a As Worksheet For Each a In Worksheets If a.Name <> "ورقة1" And a.Name <> "ورقة2" And a.Name <> "ورقة3" Then If a.ProtectScenarios = False Then a.Protect "1111" End If End If Next a End Sub هذا كود الحماية لجميع الأوراق ما عدا أوراق العمل المحددة في سطر في الكود وهي ورقة1 ، ورقة2 ، ورقة3

الف مبروك لأستاذنا سليم حاصبيا ترقية باستحقاق وجدارة

الحمد لله أن تم المطلوب على خير .. تذكرة ايه اللي بتتكلم عليها؟ تذكرة قطار أم تذكرة سينما أم تذكرة طيران أم تذكرة للحج ....؟

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

فين السلام عليكم يا حاج أحمد اتفضل الملف المرفق عشان متدورش كتير لأن طلبك بسيط جداً ومش محتاج أكواد ولا تفاصيل .. عملت عمود للسعر ووضعت لك المعادلة التي تحسب الإجمالي وبس خلاص لعمل حسابات بعدد الكميات.rar

ياسر خليل أبو البراء اخى الفاضل جزاك الله خيرا

أبو حنــــين اخى الفاضل ما شاء الله عليك

أخي الكريم أبو يحيى حاول أن تبتعد عن استخدام الخلايا المدمجة فهي عدوة المعادلات والأكواد .. والتعامل معها يشكل صعوبة بالغة .. عموماً جرب المعادلة التالية بفرض أن عدد الخلايا 4 خلايا مدمجة .. =INDIRECT("C"&IF(MOD(ROWS($A$1:A1),2)=0,(ROWS($A$1:A1)*4)-2,(4*ROWS($A$1:A1))-2)) لنحصل على النتائج لأول خلية بها بيانات وهي الخلية C2 لاحظ في المعادلة الرقم 4 يشير إلى عدد الخلايا المدمجة .. والرقم 4 موجود مرتين بما أننا نريد الحصول على المطلوب في الخلية C2 أي الصف الثاتي فقمنا بطرح 4 - 2 مرتين ... أي -2 موجودة مرتين (لاحظ الجزء الأخير) ********* ماذا لو كانت عدد الخلايا المدمجة 3 خلايا .. استبدل الرقم 4 في المعادلة بالرقم 3 ، والرقم -2 بالرقم -1 لاحظ أنه سيتم عمل تغيران لكل رقم (الرقم 4 مرتين ، والرقم -2 مرتين) **************

السلام عليكم ورحمة الله تفضل هذا الكود Sub Summing1() f = 0 s = 0 For i = 2 To Sheets.Count For R = 15 To Cells(Rows.Count, "I").End(xlUp).Row Sheets(i).Name = i - 1 f = f + Sheets(i).Cells(R - 11, "I") Cells(R, "J") = f s = s + Sheets(i).Cells(R - 11, "J") Cells(R, "K") = s Next Next End Sub

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

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

تفضل اخى الكريم اتمني ان يكون هذا ما طلبت 11 Amr.rar

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