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

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

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

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

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

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

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

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

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

إضف فقط اشارة تنصيص لكل من 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

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

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

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

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

تمام اخى ياسر ياراجل دا انا هموت من الجوع ومش عاوز اقوم من قدام الجهاز غير لما تسامحنى هروح اتغدا بقى واجى

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

أخي الكريم أحمد ديدو بارك الله فيك واعلم أنني مثلي مثل غيري مجرد متعلم مجتهد ولست بعلامة كما يعتقد البعض ، وأنا أتعلم الجديد كل يوم وما زلت أتعلم وصدقني مرحلة التعلم لمن يعرف هي مرحلة غير منتهية على الإطلاق لابد أن تتحلى بالصبر .. لقد مكثت بالأمس في كتابة كود واستغرق مني أكثر من 10 ساعات (في المحاولات المستميتة للوصول لحل) .. هكذا يجب أن تتعلم إذا كنت تريد أن تتعلم في هذا المجال ، ولكل مجتهد نصيب .. أحب في ردودي دائماً أن أفصل الأمور وأوضحها تمام التوضيح ، وذلك ليستفيد الجميع ونرتقي ..كفانا الوقوف عند البدايات (الكثير يبدأ ولا يكمل المسيرة) إذ أن التعلم يحتاج إلى مثابرة وصبر وإرادة ومحاولات مستمرة حتى لو باءت تلك المحاولات بالفشل آلاف المرات أعتذر في الإسهاب في حديثى .. عندما قدمت لك رد توقعت أنك لا تعرف كيفية التعامل مع محرر الأكواد فأرشدتك إلى موضوع هااااااام جداً والكل يعلم بأهميته إذ لابدمن معرفة الأمور الأساسية للتعامل مع محرر الأكواد ومع الحلول التي تقدم لك في الموضوع قام أخونا الحبيب أبو حنين بوضع كود منذ قليل .. قم بنسخ الكود واذهب لمحرر الأكواد وأدرج موديول جديد وضع الكود به ، ثم ارجع لورقة العمل واضغط Alt + F8 ليظهر لك قائمة بأسماء الإجراءات الفرعية لديك .. ابحث عن اسم الإجراء الفرعي (الذي يأتي بعد كلمة Sub) .. ابحث عن الاسم ثم انقر Run .... أو كما تعلمت قم برسم زر ليرتبط تنفيذ الكود بالنقر عليه ...(أمور قد تعرفها وأوضحها لمن لا يعرفها) .. وكل ذلك من أجل نرتقي ونسمو ونصل لدرجة الاحتراف سوياً وللعلم أنا لا أحب أن أرفق ملف وحسب ، فهذا أيسر وأسهل وأقل في الوقت والجهد ، ولكنه لن يفيد الكثيرين ... لابد من أن يتعلم الجميع تطبيق الحلول بأنفسهم أنا أقدم الكود والخطوات اللازمة لتنفيذه إذا لزم الأمر ، وأوضح كافة الجوانب المرتبطة وأحياناً كثيرة أقدم شرح تفصيلي للكود ************************* بالنسبة للكود الذي قدمته إليك شرح سريع له لكي تعرف ماذا يفعل الكود بالضبط .. وليس مجرد Done فقط (وللعلم أنا أحب استخدام سطر يظهر رسالة للمستخدم ليعرف المستخدم أن الكود قد انتهى من تنفيذ السطور الموجودة فيه .. فهذا أمر مألوف بالنسبة لي وليست مجرد رسالة إنما لها غرض وهدف .. كما أوضحت ) ** نأتي للكود : قمت بتعيين ورقة عمل وأسندته لمتغير اسمه Ws وعينت قيمة له ليحمل اسم ورقة العمل الرئيسية التي تحتوي على البيانات وهي ورقة عمل "اليومية" ** ومتغير آخر باسم Lr لمعرفة رقم آخر صف يحتوي على بيانات ووجدت أن العمود الأول يحتوي على تواريخ كثيرة جداً وليس هناك بيانات مقابلة فخمنت على عمود آخر وهو العمود رقم 9 أي العمود I لمعرفة رقم آخر صف من خلاله (من هنا يمكنك إذا فهمت تلك النقطة أن تغير الرقم 9 إلى رقم العمود المطلوب التعامل معه لمعرفة آخر صف فإذا كنت تنوي معرفة رقم آخر صف من خلال العمود الأول فقم بتغيير الرقم 9 إلى 1 والذي يمثل العمود الأول ، وذلك التعديل يكون في السطر الذي يقوم بتعيين قيمة للمتغير Lr ** وضعت شرط بأن تكون الخلية B1 في ورقة اليومية لا تساوي فراغ (أي ليست فارغة) ، وشرط آخر أن تكون تاريخ .. وإلا فلن ينفذ الكود وسيتم الخروج من الإجراء بدون تنفيذ بقية الأسطر ... ** ثم وضعت قيمة للمتغير X بحيث يساوي رقم الشهر في الخلية مضافاً إليه 2 للوصول لورقة العمل المناسبة ، فإذا كان الشهر سبتمبر فإن قيمة المتغير X تساوي 9 + 2 أي تساوي رقم 11 (وذلك للوصول للورقة التي سيتم الترحيل إليها .. وستكون في هذه الحالة هي الورقة رقم 11 ألا وهي ورقة سبتمبر) ** مسح النطاق الذي ستوضع فيه البيانات في ورقة العمل الهدف (ورقة سبتمبر على سبيل المثال) ** ثم سطر النسخ للبيانات من ورقة اليومية إلى ورقة العمل الهدف ، وأخيراً مسح البيانات من ورقة اليومية .. إذاً كل ما عليك أن تقوم بوضع تاريخ في الخلية B1 ليتم تنفيذ الكود ثم تنفذ الكود وترى ورقة العمل الهدف (ويستحب أن تنظر لورقة العمل الهدف قبل تنفيذ الكود وبعد تنفيذ الكود لتعرف ما إذا كان الكود يقوم بعمله أم أنه يعطي رسالة Done فقط )) والسلام عليكم ورحمة الله وبركاته

السلام عليكم اخي احمد بعد إذن الأخ المحترم ياسر جرب هذا الكود ربما يفي بالغرض Sub sCopy() Application.ScreenUpdating = False Dim sh As Worksheet, MySheet As Worksheet, Ar Set sh = Sheets("اليومية") Ar = Array("يناير", "فبراير", "مارس", "ابريل", "مايو", "يونيو", "يوليو", "اغسطس", "سبتمبر", "اكتوبر", "نوفمبر", "ديسمبر") For i = 6 To sh.Range("B" & Rows.Count).End(xlUp).Row For x = 0 To 11 Set MySheet = Sheets(Ar(x)) If Format(sh.Cells(i, 2), "mmmm") = MySheet.Name Then LR = MySheet.Range("A" & Rows.Count).End(xlUp).Row + 1 sh.Range("A" & i).Resize(, 16).Copy MySheet.Range("A" & LR).PasteSpecial xlPasteValues End If Next Next Application.ScreenUpdating = True End Sub

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

أخي الكريم أحمد هوناً عليك ورفقاً بنا .. والصبر مطلوب .. والكود بيعمل Done ما شاء الله (خبير أكواد عشان تعرف الكود بيعمل ايه من غير ما تجربه بشكل صحيح .. دي سخرية لا أقبل بها !! ) هل قمت بنسخ الكود إلى موديول جديد ؟ أنا قبل إرفاق أي كود أقوم بتجربته والتأكد من صحة المخرجات اذكر لنا ما المشكلة التي لديك؟ أو ارفق الملف وبه الكود للتأكد مرة أخرى .. ويا سيدي حقك عليا إذا كنت اتعقدت من الموضوع .. بس لاحظ إن إنت اللي واخد الموضوع وشايف صعب وعشان كدا معقد بالنسبة لك حاول تشوف الموضوعات الأخرى وشوف استجابة الأعضاء .. هتلاقي موضوعك لم يستجيب فيه أحد وأردت تقديم المساعدة قدر الإمكان .. وإذا كنت لا تريد مساعدة مني فهذا يرجع إليك ولكني حينما أقدم مساعدة لا ألتفت لشخص بعينه إنما يهمني مصلحة الجميع قبل مصلحة الفرد ، لأنه قد يكون هناك من لديه نفس المشكلة ويريد حلها ... أرجو تفهم الأمر وأقدم اعتذاري الشديد

عمل رائع أبو حنين .. بصراحة ممتاز ممتاز ممتاز ( 3 ممتاز = 1 روعة) يا ريت بقا تعمل لنا على نفس الملف إمكانية الاختيار من أكثر من عنصر للبحث ..مثال : نختار اسم الحساب الرئيسي العمليات ، ثم نحتفظ بالنتائج ونختار اسم العميل ونكتب اسم معين أقصد أن يكون مرن في البحث بأكثر من معيار تقبل وافر تقديري واحترامي

استاذنا العزيز السيد جمال كنا نعمل في وقت واحد رغم المسافة الهائلة بيننا .. وسبقتني بفارق دقيقة شكرا لك

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

السلام عليكم ورحمة الله تعالى وبركاته مشكورييييييييييييييييين جزيل الشكر على الاهتمام أخونا الغالي والحبيب أنا جودي آآآآآآآآآآآآآآآآسف على إتعابك معنا الكود يشتغل تمام بارك الله فيك لكن أنا أيضا أريد أن أتعلم الطريقة مع Findfirst وعندما أجربها بشرط واحد تعمل بشكل جيد Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("tblUser", dbOpenSnapshot, dbReadOnly) rs.FindFirst "Department= '" & Me.cboDepartment & "'" If rs!UserName <> Me.txtUserName 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 لكن عندما أضيف الشرط الثاني تبدأ المشاكل في الظهور آآآآآآآآآآآآآآآآآآآآآآسف على الإزعاج مجدد

Private Sub TextBox1_Change() 'اخر الكريم تقبل تحياتى وهذا شرح بسيط بالعامية المصرية والبلدى كدة بدون التطرق للشرح العملى 'للمتغيرات والمعادلات لان هذا يطول شرحة وستجد ما طلبت اذا بحثت بالمنتدى الرائع اوفيسنا '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ' السطر القادم لتفادى اى خطأ فى الكود ومنع اظهار رسالة ال debug للمستخدم On Error Resume Next ' بقوله افرغ محتويات الليست بوكس علشان لما تفتح الليست المرة القادمة متلاقيش البيانات المبحوث عنها المرة اللى فاتت موجودة ListBox1.Clear ' متغيرات لاسم الصفحة والصفوف Dim ws As Worksheet Set ws = Sheets("data") Dim i As Long Dim v As Integer 'بقوله هنا لو التكست بوكس اللى ببحث فيه مش فاضى نفذ اللى جاى If Me.TextBox1.Text <> "" Then '================================================ 'هنا بقوله لو اتكتب فى التكست بوكس من غير ما تعلم على نوع البحث من التلات خيارات يطلعلك رسالة تنبيه انك لابد ان تختار اولا 'ويوقف تنفيذ باقى الكود If Me.esm.Value = False And Me.ra2eesy.Value = False And far3y.Value = False Then MsgBox "رجاء اختر نوع البحث اولا" Me.TextBox1 = "" Exit Sub End If '============================================== 'هنا بقى متغير اسمه lr وده بيحددلى اخر صف فيه بيانات فى العمود lr = ws.Range("b" & Rows.Count).End(xlUp).Row ' بقوله من الصف الخامس لغاية اخر صف فيه بيانات نفذ اللى جاى ' وديه اسمها حلقة تكرارية For i = 5 To lr ' هنا متغيرات لتحديد الصفوف المبحوث بها سواء بالاسم او الفرعى او الرئيسي comp = ws.Cells(i, "b") 'اسم comp2 = ws.Cells(i, "c") 'فرعى comp3 = ws.Cells(i, "d") 'رئيسي If ws.Cells(i, 1) <> "" Then '============================================================ 'لو البحث بالاسم هو اللى متحدد كومب هتبقي زى ماهى وهيبقى عمود البحث هو b If Me.esm.Value = True Then comp = comp End If 'هنا لو الفرعى هو المتحدد كومب هتساوى كومب 2 اللى هو عمود البحث بالفرعى If Me.far3y.Value = True Then comp = comp2 End If 'كذلك الامر هنا If Me.ra2eesy.Value = True Then comp = comp3 End If '============================================================ ' اللى فات هنستخدمه هنا فى داله البحث باى حرف فى الكلمة من غير شرح كتير علشان يطول الشرح ' اللى يشغلك فيها كومب اللى احنا معرفينه فوق وهو نطاق البحث 'واللى انت هتبحث فيه وهو التكست بوكس 'وهيقارن اللى كتبته فى التكست بوكس بالبيانات اللى فى نطاق البحث If InStr(1, comp, Me.TextBox1.Text, vbTextCompare) Then ' هنا بقوله لما تلاقى بيانات البحث ضيفها فى الليست بوكس ListBox1.AddItem 'v ده متغير زى i وده للصفوف 'الليست بتبتدى من الشمال لليمين وهما اربع صفوف (v,0) معناها الصف v اللى هيتكرر لو فى اكتر من نتيجة للبحث 'و zero معناها العمود الاول فى الليست من الشمال وهكذا ' وهنا بقوله ضيف نتائج البحث فى العمود 1 والصف i فى العمود التالت والصف v فى الليست بزكس وهكذا Me.ListBox1.List(v, 3) = ws.Cells(i, 1).Value 'مسلسل Me.ListBox1.List(v, 2) = ws.Cells(i, 2).Value 'اسم Me.ListBox1.List(v, 1) = ws.Cells(i, 3).Value 'حساب فرعى Me.ListBox1.List(v, 0) = ws.Cells(i, 4).Value 'رئيسي 'وديه علشان لو اكتر من نتيجة للبحث تتكرر ولو مكتبتهاش هيجيبلك نتيجة واحدة فقط v = v + 1 ' اقفل معادلات if End If End If ' اقفل الحلقة التكرارية for i = 5 to lr Next i 'ولو الليست بوس فاضية مفيهاش صفوف او عدد صفوفها 0 امسحها علشان نتايج البحث السابقة متفضلش موجودة If Me.ListBox1.ListCount = 0 Then Me.ListBox1.Clear End If 'كل اللى فات هيحصل لو التكست بوكش مش فاضى طيب لو فاضي امسح الليست بوكس Else Me.ListBox1.Clear 'اقفل قاعدة if End If End Sub

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

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

الجزء الثاني Omar_2.part2.rar

ايام مباركه و كل عام و انتم بخير

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

معلم الله عليك يا كبيرنا بس انت معودنا على انك بتشرح بالصور انت معلم والكل منك يتعلم

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

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

بسم الله الرحمن الرحيم الاخوة والاخوات فى هذا الصرح العظيم أقدم لكم اليوم الاصدار الثالث من برنامج EMA يشمل جميع الامور المحاسبيه هذه النسخه نسخه تجريبيه يرجى من الاخوة المحاسبين والمهتمين بالامور المحاسبية التجربه والتقييم للوصول الى الافضل ان شاء الله بنزل الشرح عن كيفية الاستخدام والتعامل مع البرنامج اى سؤال أو استفسار لا تترد وأنا تحت امركم كلمة المرور - الدعم الفني الباسورد - 123 تفضل نسختك EMA.zip