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

يمكنك استعمال هذه المعادلة في E5 =IFERROR(INDEX(H!$A$1:$U$100,MATCH(A5,H!$A$1:$A$100,0),MATCH(C5,H!$A$1:$U$1,0)+2),"") يجب مراجعة تنسيق خلايا العمود A في شيت H لأنها لا يتعامل معها الاكسل كأرقام تظهر النتائج بعد كتابة الرقم من جديد لا أدري لماذا بالتوفيق

إلا أنني وجدة خطأ جديد في الحذف للمستند ، وبعد تكرار العملية لمتابعة اين يكم الخطأ وجدته انه بعد اغلاق النموذج وفتحة مرة أخرى لا يقوم بالحذف بشكل صحيح ، فتوجب التصحيح . تأكد وقارن بين المرفقين في المشاركة السابقة وهذه المشاركة Test_Me.zip

عاشت ايدك مبدع كالعادة

اخي @عبد الله قدور ؛ هذه سلسلة من 9 اجزاء ؛ علها تفيدك ابدأ من الجزء الاول :

السلام عليكم الملف المرفق لاستخرج الارقام الغير موجوده ما بين اول رقم واخر رقم اى الارقام الساقطه و لم تسجل فى ترتيب سلسلة الارقام ولكن بعد انتهاء السنة أريد ان يعزل ارقام السنة الاولى عن الثانية بمعنى لكي استخرج ارقام سنة ولتكن 2020 فقط و 2021 فقط لأن الارقام سوف تتكرر بعد 1/1 من كل سنة مثلا سنة 2023 توجد الارقم من رقم 1 - 1000 من تبدأ سنة 2024 راح يكون التسلسل 1001 ولكني اريد ان يبدأ من جديد 1 ويستخرج الارقام الساقطة الخاصة بالسنة الجديدة اعتبارا من رقم 1 Database521 (1).accdb

تفضل وياريت يكون هو المقصود (خاص بكل الكائنات في الاكسس) شامل إخفاء واظهار الجداول والكائنات.mdb

تم عمل المعادلة Book1.xlsx

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

كنت اقوم بتجربة لفكرة أخرى في رأسي الصغير هههههههه ، بسيطة هذه صغيرة = غير مصدر الـ PF من ( ="IIf(IsNull([Imagepath])),""about:blank"",([Imagepath])))" ) إلى ( Imagepath ) فقط

كلما اكتشفت خطأ في توافق الأكواد ( بشرب كاسة شاي = 6 كاسات للآن ) تفضل أخي @Ahmed_J Test.accdb

يعني انت تريد زر للحفظ و زر للحذف و زر للإضافة ولكل وظيفة منفصلة ؟ ؟

وعليكم السلام المشكلة قد تكون بسبب الآتي 1. تشغيل المايكرو في التقرير 2. ممكن ان يكون عنصر التحكم TotalCount غير موجود تأكد من ذلك ويفضل ارفاق ملف او الكود للتأكد

ماشي يا عم ، هذا تعديل برسالة بعد الإدراج 😅 ( Test.accdb )

نعم هذا ما أردته تحديدا حياك الله يا أستاذ Foksh والأخ الفاضل ابو البشر وجعله الله لكم فى ميزان حسناتكم ونفع الله بكم فى الدنيا والآخرة ...

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

ضبط سؤال جديد و ابشر بعزك طلبك بسيط

مشكور اخي الكريم وربي يجازيك ويجعلها في ميزان حسناتك هذا هو المطلوب

أخونا العزيز ، هل تقصد مثل هذه الفكرة في النموذج Form1 ؟ انشأت قائمة منسدلة في نموذج بدون مصدر ، وجعلت مصدر القائمة استعلام مصدره الجدول الثالث لأسماء المحاميين وتقريباً 1073 اسم . تفضل وأخبرني 😊 مشروع - معدل.accdb

تفضل يا عزيزي ،، والتعديل بالتصميم على حسب رغبتك طبعاً وأنا عادة ابتعد عن استخدام الأكواد الطويلة في أفكاري ( فلا تستغرب من طريقتي بحل المشاكل التي تواجهني 😅 ) Foksh Counter.accdb

ربما تفيدك هذه النتائج في تصميم برنامجك https://www.officena.net/ib/search/?q=قرعة&quick=1&type=forums_topic&nodes=135 وإذا وقفت في نقطة أو اثنتين ستجد الدعم الكثير بإذن الله بالتوفيق

ولا يهمك اخي الكريم ، لما رفعت التعليق كنت برفع من الموبايل ولم أجرب الفكرة ، ولكن الخطأ مردود ، والشكر للأستاذ @kkhalifa1960 لتصويب الخطأ

لو ارفقت ملفك وحددت المطلوب بمنتهى الدقة والتفصيل بإذن الله تجد الحل

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

expe1:GetMonths30([TxtDate1];[TxtDate2]) لاحظ اختلاف الفاصلة على اعتبار TxtDate1 و TxtDate2 حقول في الاستعلام او الجدول المصدر

استخدم هذه الدالة Function GetMonths30(Date1 As Date, Date2 As Date) As Long Dim d1, m1, d2, m2 As String Dim y1, y2 As Integer Dim sum_d, sum_m, sum_y, sum_days As Integer Dim tst1, tst2 As Long d1 = Format(Day(Date1), "00"): d2 = Format(Day(Date2), "00") m1 = Format(Month(Date1), "00"): m2 = Format(Month(Date2), "00") y1 = Year(Date1): y2 = Year(Date2) tst1 = y1 & m1 & d1: tst2 = y2 & m2 & d2 If tst2 < tst1 Then Exit Function sum_d = Abs(Int(d2) - Int(d1)) sum_m = Abs(Int(m2) - Int(m1)) * 30 sum_y = (y2 - y1) * 360 sum_days = sum_y + Abs(sum_m - sum_d) GetMonths30 = sum_days End Function ويتم مناداتها لحساب المدة بين تاريخين هكذا : Me.txtDays = GetMonths30(Me.TxtDate1, Me.TxtDate2)

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

• البحث عن كلمة أولها (ال) وآخرها (تنوين): <ال[! ]@[ًٌٍ]> • كلمة أولها (ال) وآخرها (ون) ليس بعدها (فتحة): ال[! ]@(ون)[!َ]> • البحث عن أي كلمة أو رمز، أو رقم: <[! ]*> • البحث عن أي كلمة، وهي تصلح في عمل الماكرو: <[أ-ىيئءؤآءاإًٌٍَُِّْ]@> • أو: <[أ-يَّآًٌٍُِْ]@> • البحث عن أي كلمة: <[أ-ي]@> أو: <?@?> • البحث عن أي كلمة: <[! ]@> يكتب قبلها كلمة عند البحث والاستبدال لأنها تبطئ الماكرو، وربما تهنج الورد. • البحث عن أي كلمتين: <[! ]@> <[! ]@> • البحث عن أي كلمتين الأولى تبدأ بهمزة، والثانية تنتهي بتاء مربوطة: <أ[! ]@> <[! ]@ة> • البحث عن أي كلمتين الأولى آخرها ألف، والثانية تنتهي بالألف: <[! ]@ا> <[! ]@ا> • البحث عن كلمتين متتاليتين مكررتين: (<* ){2} ، ويمكن البحث بـ{3، 4} أو <([أؤئإءيا-ى]@)> \1> أو: (<[ء-يا-ى]@)[ ,.;:]@\1> • البحث عن كلمتين، أو عددين، أو جملتين متتاليتين مكررتين: (<*>) \1 • البحث عن كلمتين، أو عددين، أو جملتين متتاليتين مكررتين بينهما فاصلة: (<*>)، \1 • ولحذف الكلمة أو الجملة المكررة نضع في مربع الاستبدال: \1 • البحث عن حرفين أو رقمين متتاليين متطابقين: (?){2} • البحث عن أي كلمتين أو حرفين أو رقمين متتاليين متطابقين: (<*){2} • البحث عن أي كلمتين متطابقتين بينهما أي كلمة: (<[! ]@>) [! ]@ \1 • البحث عن آخر كلمة في الخلية (تنفع للشعر): <[أ-ىيئءؤءاإًٌٍَُِّْ]@>[! ء-ى] • البحث عن آخر كلمة مشكولة في الخلية (تنفع للشعر): <[ء-ي]@[! ء-ي]> • البحث عن آخر كلمة مشكولة في الخلية آخرها (ا-و-ى-ي) (للشِّعر): <[ء-ي]@[! ء-ي][اوىي]> • البحث عن آخر كلمة مشكولة في الخلية بعدها مسافة (للشِّعر): <[ء-ي]@[! ء-ي]> • البحث عن آخر كلمة ليس بها أي تشكيل في الخلية (للشِّعر): <[ء-ي]@[! ًٌٍَُِّْ]>[! ء-يٰ] • أو: <[ء-ي]@>[!? ٰ] • البحث عن أي كلمة في الخلية عدا الكلمة الأخيرة: <[أ-ىيئءؤآءاإًٌٍَُِّْ]@>[!^13] • البحث عن أي كلمة في الخلية عدا الكلمة الأولى: [!^13]<[أ-ىيئءؤآءاإًٌٍَُِّْ]@> • البحث عن كلمة في الخلية عدا الأولى والأخيرة: [!^13]<[أ-ىيئءؤآءاإًٌٍَُِّْ]@>[!^13] • البحث عن أي رقمين متتاليين بينهما فاصلة مثل 22، 22، ويمكن بـ{3، 4}: (<*){2}، (<*){2} • البحث عن أي رقمين متتاليين بينهما فاصلة، وليس قبلهما سلاش: [!\/]<[0-9]@>، <[0-9]@>[!\/] • البحث عن أي رقمين متتاليين بينهما فاصلة، الثاني ليس قبله سلاش: <[0-9]@>، <[0-9]@>[!\/] • البحث عن فقرة وتظليلها: (*^13) • البحث عن فقرتين متتاليتين متطابقتين: (*^13)\1 • البحث عن ثلاث فقرات متتالية متطابقة: (*^13)\1\1 • البحث عن فقرة قبلها فقرة فارغة وبعدها فقرة فارغة: ^13{2}([!^13]@^13)^13 • البحث عن فقرة قبلها فقرة فارغة: ^13{2}([!^13]@^13) • البحث عن فقرة قبلها أو بعدها فقرة فارغة: ^13{2}([!^13]@) • ولحذف هاتين الفقرتين الفارغتين ضع في خانة الاستبدال: ^p<H1>\1 • البحث عن الفقرات المكررة بشكل متتالي: (*^13)(\1)@ • البحث عن فقرة عن طريق حروف البدل: ^13 • البحث عن فقرة قبلها أي حرف عن طريق حروف البدل: >^13 ، وبعدم اعتبار المسافة آخر الفقرة: >^13* • البحث عن أي فقرة إلى كلمة (في) مثلا للتظليل: <[! ]*في> • البحث عن فقرة ليس في نهايتها (.) أو (:) أو (؟) أو (!): ([!^13.:\؟\!\-\!]^13) • تحديد ما بين الفاصلتين: ، <[! ]*>، • تحديد ما بين أي كلمتين متطابقتين: (<[! ]@>) [! ]* \1 • تحديد أي كلمتين متطابقتين بعد كل منهما أي كلمة: (<[! ]@>) [! ]@ \1 (<[! ]@>) • تحديد ما بين كلمتين مثل: عن <[! ]*> عن • البحث عن أي كلمة مكونة من حرفين: <[! ]@{2}> • البحث عن أي كلمة مكونة من حرفين آخرها تنوين: <[! ]@{2}[!ًٌٍ]> • البحث عن كلمة خمس حروف ليس منها علامات الضبط: <[! ]@{5}[ًٌٍَُِّْ]> • للبحث عما بين قوسين هلاليين: (\(*)\) أو \(?@\) • للبحث عما بين قوسين هلاليين باستثناء علامة الحاشية: \(<[أ-ىيئءؤءاإًٌٍَُِّْ]*>\) • للبحث عما بين معقوفين: \[?@\] • للبحث عن أي رقم دون الحروف: [0???-9] • للبحث عن أي رقم فردي أو زوجي أو أكثر: <[0-9]@> • لتظليل رقم بعده سلاش (شرطة مائلة/) حتى آخر الفقرة: <[0-9]@>/*^13 • لوضع كل رقم بعده سلاش في فقرة: في خانة البحث: <[0-9]@>/ وفي الاستبدال: ^13^& • للبحث عن رقم واحد: <[0-9]{1}> أو رقمين: <[0-9]{2}> وهكذا بزيادة رقم بين {} • للبحث عن أي كلمة دون الأرقام: <[أ-ى][! ]@> • للبحث عن أي رقمين بينهما فاصلة: [0???-9]، [0???-9] • للبحث عن الأرقام بين سلاشين شرطتين مائلتين //: /[???0-9]*/ • للبحث عن أي رقم حتى نهاية الفقرة: [0-9]*^13 • للبحث عن الحروف والأرقام دون المسافات وعلامات الترقيم: [أ-ي0-9] • البحث عن الحاشية السفلية مع حروف البدل: ^2 • البحث عن الحاشية الفارغة التي بعد رقمها قوس هلالي: ^2\) [!ء-ي] • البحث عن الحاشية الفارغة التي ليست بين قوسين: ^2[!\)][!ء-ي] • البحث عن حاشية قبل علامة الترقيم: ([.:،؛\?\!])\(^2\) • البحث عن قوس مربع [ ليس له قوس غلق ] : \[[!\]]@^13 • البحث عن قوس هلالي ( ليس له قوس غلق ) : \([!\)]@^13 • البحث عن قوس مدبب ( ليس له قوس غلق ) : \«[!\»]@^13 • البحث عن قوس مرعوش ( ليس له قوس غلق ) : \{[!\}]@^13 • لعكس ترتيب كلمات متتالية مثل: عماد محمد أحمد، نضع في خانة البحث: (عماد) (محمد) (أحمد) : وفي خانة الاستبدال: \3 \2 \1 مع مراعاة أن تكون الأرقام باللغة الإنجليزية. • لنقل كلمة مكان سابقتها والعكس، مثل: محمد عمر ، نضع في خانة البحث: (محمد) (عمر) : وفي خانة الاستبدال: \2 \1 • لنقل علامة الحاشية قبل علامة الترقيم: في خانة البحث: ([.،:;\?\!])(\(^2\)) : وفي خانة الاستبدال: \2\1 • للبحث عن أكثر من مسافة متتالية: [ ]@([! ]) • ولجعلها مسافة واحدة نستبدلها بـ: \1 • لجعل علامة الحاشية بين قوسين: في مربع بحث اكتب الآتي ^f وفي مربع استبدال اكتب (^&) وهذا الكود يعني أن المكتوب في خانة البحث يساوي المكتوب في خانة الاستبدال، فيمكن استخدامه مع أي حرف وأي رقم، حيث الاستبدال لا ينفع مع أي حرف وأي رقم، لكن بإضافة هذا الكود يصبح الاستبدال متاحا. • لإضافة صفر بعد رقمين مثل (015): نضع في خانة البحث: <[0-9]{2}> وفي الاستبدال: 0^& • لإضافة صفر بعد رقم واحد، مثل (05): في خانة البحث: <[0-9]{1}> وفي الاستبدال: 0^& • للبحث عن أي رقم بعده صفر (0) بعده سلاش (/) على صورة (08/): 0^#/

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

تفضل مثال لشجرة العائلة باستخدام المتصفح شجرة العائلة متصفح.rar

الملف لمن اراده بالمرفقات عملية قرعة لـ16 فريق_4.rar