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

الأمر ليس بالصعب طالما انك تريد هذا تفضل الملف بدون كلمة فقط تفقيط الدرجات.xls

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

يثبت عدم عجز الاكسس كما يتخيل البعض اعجبنى جدا جدا جدا احببت مشاركتكم اياه https://github.com/krishKM/Modern-UI-Components-for-VBA

المعادلات تعمل بشكل دقيق ولكن عليك وضع علامة الصح كما بالصورة

وعليكم السلام تفضل 2.xlsm

الحمد لله توصلت للحل وها هو منشور للفائدة

وعليكم السلام -تفضل حساب التاريخ تلقائى.xlsx

لضمان هذه الإشكالية من الوقوع؛ أن نقوم بإعادة الجداول إلى الوضع المعتاد قبل ضغط البيانات وإصلاحها..

تفضل حل بسيط وبدون برامج يمكنك رفع الملف المحمى على هذا الموقع مباشرة وسيتم فك الملف لك -وذلك كما بالصورة الموضحة لك http://www.ensode.net/xls-crack.jsf

تفضل لك ما طلبت بالمعادلات _الأحوال الثانية - نسخة.xlsm

وعليكم السلام كان عليك رفع ملف من البداية لعمل اللازم عليه تفضل كود تثبيت التاريخ تلقائيا.xlsm

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

مبروك انضمامك لعائلة الخبراء اسأل الله لك التوفيق

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

وعليكم السلام هذا من صميم عملي كمعلم اكتب في الخلايا الصفراء ولاحظ النتيجة تفضل الدرجات والترتيب.xlsx

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

ممكن عمل جدول اخر مساعد حالة السداد يحتوى حقلين اثنين فقط رقم الشقة رقمى , تم السداد من النوع yes/no ويتم وضعه على التصميم فى النموذج الرئيسي لتسجيل الدفعات وبمجرد ما تصل القيمة الى 0 فى الباقى يتم تحديث من خلال كود الحقل تم السداد الى true وتكون هى المعيار اوفسنا طباعة.accdb او ممكن الحقل حالة السداد يكون بالجدول عقد الايجار

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

مبروك استاذنا عن حق وعن جداره اعانة الله علينا

فعلا أستاذ جعفر.. مبارك عليك أستاذ كاسر شارة الخبراء.. أتمنى أن يكون لى معك مشاركات فى المستقبل

مبروك أستاذنا @kaser906 مع خالص الأمنيات لك بالتوفيق والنجاح

الف مبروك استاذ@kaser906 والى الامام دائما بان الله

الف مبروك استاذ @kaser906

مبروك اخونا kaser906 ارجو لك التوفيق والاعانة

من فضلك ضع النتائج المطلوبة على الملف

تفضل New_Microsoft_Excel_Worksheet.xlsx

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

احسنت استاذ بن علية كود ممتاز وبعد اذن حضرتك وزيادة فى اثراء الموضوع -هذا كود اخر للحل Option Explicit Sub Inqwayry7() Dim Q1, Q2, q3, FR, TR Dim S_sh As Worksheet: Set S_sh = Sheets("ÇáíæãíÉ") Dim T_sh As Worksheet: Set T_sh = Sheets("ßÔÝ ÇáÍÓÇÈ") Range("A7:j1000").ClearContents Q1 = Range("b2") Q2 = Range("b3") q3 = Range("D2") TR = 7 If Range("b2").Value > Range("b3").Value Then MsgBox "åäÇß ÎØà Ýí ÊÑÊíÈ ÇáÊÇÑíÎ", vbExclamation, "ÎØÃ" Exit Sub End If With S_sh For FR = 7 To 3333 If .Cells(FR, 1) >= Q1 And .Cells(FR, 1) <= Q2 And .Cells(FR, 2) = q3 Then Cells(TR, 1) = .Cells(FR, 1) Cells(TR, 2) = .Cells(FR, 2) Cells(TR, 3) = .Cells(FR, 3) Cells(TR, 4) = .Cells(FR, 4) Cells(TR, 5) = .Cells(FR, 5) Cells(TR, 6) = .Cells(FR, 6) Cells(TR, 7) = .Cells(FR, 7) Cells(TR, 8) = .Cells(FR, 8) Cells(TR, 9) = .Cells(FR, 9) Cells(TR, 10) = .Cells(FR, 10) TR = TR + 1 End If Next FR End With End Sub ولكن بالتأكيد كود حضرتك الأفضل فهو كود صغير وبسيط وادى الغرض بكل كفاءة كشف حساب بين تاريخين.xlsm

وعليكم السلام يمكنك استخدام هذه المعادلة =IF(OR(A2="",B2=""),"",A2&"-"&B2) SEER.xlsx

بارك الله فيك

PM السلام عليكم ورحمه الله وبركاته كتير من الاحيان بنبعت رسائل وبنكون بنستنى الرد على احر من الجمررر وما بنعرف الي وصلتوا الرساله نايم والا صاحي ؟؟ شافها والا ما شافها ؟؟ بدو يرد علينا والا لا ؟؟ هالطريقه علشان اول ما يفتح مسلتم الرساله رسالتك توصلك رساله انو تم تسليم الرساله وفتحها من الجهه المرسله اليه طبعا مستلم الرساله بس يفتحها بيطلع لو خيار .... عادي يوصلك خبر هوه فتح الرساله والا لا في حال وافق بيوصلك الاشعااار .... طبعا الشرح على Microsoft Outlook 2007 نبدى الصوور والشرح في حال كان بدنا الامر يتم على جميـــــع الرسائل الي رح نبعتها بنروح على أدوات بتفتح لنا قائمه منسدله بنختار منها خيارات وبتفتح لنا الصوره التاليه الي بنختار منها خيارات البريد بعدها بنختار خيارات التعقب وبنحدد خيار ايصال بالقراءه طبعا متل مو ملاحظين في خيار تاني اسمو ايصال بالتسليم << هاد الخيار ببعتلك رساله تقولك انو الرساله استقبلها "وصلت" على ايميل المرسل اليه فقط لا غير طبعا هون بنكون خلصنا الشرح علشان يتطبق الامر على كل الايميل الي رح تبعتوها من الايميل في حال كنتوا بدكم تطبقوا الخيار على رساله وحده فقط بنضغط على جديد لارسال رساله وبنختار خيارات متل مو موضح بالصوره وبعدين بطلع لنا الخيار وبنحددوا متل مو موضح بالصوره

تفضل الملف مرة أخرى Office Soft.Employ & Salary-Source.rar

بالتأكيد ملف وكود ممتاز جعله الله في ميزان حسناتك

وعليكم السلام-تفضل تنسيق شرطى.xlsx

ابداع استاذ سليم معادلات رائعة بارك الله فيك

بارك الله فيك وجزاك الله كل خير

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

اهلا بك في منتدانا الكريم تفضل هذا الرابط -كان عليك استخدام خاصية البحث في المنتدى أولا قبل رفع المشاركة https://www.officena.net/ib/topic/91235-طباعة-الشيكات-بالاكسل/?tab=comments#comment-572010

وعليكم السلام - تم فصل الموضوع عن المشاركة الأخرى فعليك عند رفع مشاركة جديدة لابد ان تكون مستقلة ولا تقوم برفعها مع مشاركة أخرى مختلفة وان يكون العنوان معبر عن مضمون الطلب والمشاركة تفضل النقطة الإدارية.xlsx

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

تفضل برنامج الشيكات.xlsx

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

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

مبارك أبا جودي تستحق كل الاحترام والتقدير فطيبة قلبك ظاهرة في مشاركاتك بالتوفيق

السلام عليكم الف مبروك -----ابا جودي بالتوفيق

اخي الحبيب / المهندس ابا جودي اولا : الف مبروك وتستاهلها ثانيا لو كنت اطلعت علي موضوع "نطق بالعربي بجد" وعند اخر مشاركة كنت عرفت اني توقعت وقلت لو كان بايدي كنت جعلتك خبيرا وربنا حقق مرادي وتوقعاتي " موارد بشرية بقي" الف الف الف مبروك

ماشاء الله تبارك الله .... تستاهل ابا جودي ... نفع الله بك وبعلمك .... يا شمعة المنتدى ....

الف مبروووووووك استاذنا الجميل والى الامام دائما ان شاء الله

السلام عليكم ... اود اشكر الجميع في البدء ... بالنسبة لمشكلتي التي ذكرتها في موضوعي هذا اود اعلامكم باني وجدت الحل ... وساكتب الحل لغرض الفائدة للجميع ، الحل هو كتابة الكود التالي عند الضغط على زر تعديل في نموذج (Main3) : Private Sub edi_Click() Dim Ahd As Variant Ahd = "[ID]=" & [ID] DoCmd.OpenForm "Pe", , , Ahd Forms!Pe!Pls.Form.Filter = "[IDD] = " & Me.IDD Forms!Pe!Pls.Form.FilterOn = True End Sub الملف مرفق بعد التعديل للفائدة تحياتي للجميع ... السيارات.accdb