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

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

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

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

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

أخي الكريم أبو يحيى حاول أن تبتعد عن استخدام الخلايا المدمجة فهي عدوة المعادلات والأكواد .. والتعامل معها يشكل صعوبة بالغة .. عموماً جرب المعادلة التالية بفرض أن عدد الخلايا 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 مرتين) **************

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

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

السلام عليكم ورحمة الله تعالى وبركاته مشكورييييييييييييييييين جزيل الشكر على الاهتمام أخونا الغالي والحبيب أنا جودي آآآآآآآآآآآآآآآآسف على إتعابك معنا الكود يشتغل تمام بارك الله فيك لكن أنا أيضا أريد أن أتعلم الطريقة مع 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 لكن عندما أضيف الشرط الثاني تبدأ المشاكل في الظهور آآآآآآآآآآآآآآآآآآآآآآسف على الإزعاج مجدد

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

مصادر الجهاز غير كافية ؟؟!! احتمالات كثيرة بهذا الصدد لا يمكن التخمين بها ولكن أضع لك بعض الاحتمالات أخي الكريم أبا سلمان قد تكون امكانيات الجهاز بالفعل ضعيفة .. فما هي إمكانيات الجهاز لديك؟ احتمال أن يكون هناك مشكلة بالهارد كأن يكون مصاب بالباد سيكتور أي القطاعات التالفة احتمال آخر أن يكون جهازك مصاب بفيروس يشغل تطبيقات في الخلفية مما يستهلك من الذاكرة والبروسيسور بشكل كبير احتمال آخر وجود خلل في نظام التشغيل الذي يعمل على الجهاز .. >> إذا كانت إمكانيات الجهاز جيدة وأنت متأكد من ذلك وأن الهارد سليم ، أنضحك بتغيير نسخة الويندوز وأن تقوم فور تحميل الويندوز يتحميل أنتي فيروس 360 إنترنت سيكورتي فهو خفيف على الأجهزة وفعال بشكل كبير أما بخصوص ملف الإكسيل نفسه فيجب مراجعة المصنف بشكل جيد .. لابد من إعادة هيكلته إذا تطلب الأمر فقد يكون المصنف في حالة يرثى لها ، ويحتاج لصيانة حتى لا تتعرض لنفس مشكلة أخونا أسامة عطا الله ..إذ أنه كيف لملف أن يصل حجمه لـ 300 ميجا (في وجهة نظري إذا تعدى ملف الإكسيل 5 ميجا فهذا حجم كبير جداً ، وكم قمت ببناء برامج ضخمة جداً ولا يتعدى حجمها 3 ميجا) نصيحتي في بناء أي برنامج ألا تكثر من التنسيق الشرطي والتلوين بدون داعي ، حيث أنني أرى أناس قد جعلوا من الإكسيل مرسم ولوخة فنية هائلة ، أنا لست ضد الشكل ولكن كما يقول المثل : الشياكة في البساطة ..لأن التنسيقات الكثيرة جداً تؤثر على حجم الملف البعض يقوم بتنسيق ورقة العمل بالكامل (وكم رأيت من يقوم بوضع حدود لورقة العمل بالكامل .. ولما الإسراف في التنسيق .. حاول أن تنسق الجزء الذي يحتوي البيانات فقط وكما أخبرت عدم الإسراف في التنسيقات الغير ضرورية نصيحة أخرى حاول قدر الإمكان عدم الإكثار على المعادلات وخصوصاً وخصوصاُ معادلات الصفيف فهي بالتأكيد تثقل الملف وتجعل التعامل مع الملف مع كبر حجمه أمر مرعب حاول أن تحول عملك للأكواد فالأكواد تتميز أنه يمكنك حذف أوراق عمل بالكامل وإنشاء أوراق عمل منسقة وبها كل ما تريده من مخرجات وبعد تنفيذ الكود والحصول على المطلوب أن تقوم بحذف تلك الأوراق فيظل المصنف خفيف الحجم وسهل ويسير في التعامل .. ويمكن بالأكواد أن تقوم بتصدير المخرجات والتقارير لمصنفات جديدة بعيداً عن المصنف الأصلي ، فتحافظ عليه بشكل كبير ..هذا بخلاف السرعة في الأداء والدقة في المخرجات أعتذر إن كنت قد أطلت عليكم ...

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

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

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

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

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

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