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

غير التسمية التوضيحية للزر الى تحديد الكل بدلا من تغيير ثم استخدم هذا الكود ...... Select Case Me.chng.Caption Case Is = "تحديد الكل" CurrentDb.Execute "update tabl set prentss = True" Me.Refresh Me.chng.Caption = "الغاء الكل" Case Else CurrentDb.Execute "update tabl set prentss = False" Me.Refresh Me.chng.Caption = "تحديد الكل" End Select

• البحث عن كلمة أولها (ال) وآخرها (تنوين): <ال[! ]@[ًٌٍ]> • كلمة أولها (ال) وآخرها (ون) ليس بعدها (فتحة): ال[! ]@(ون)[!َ]> • البحث عن أي كلمة أو رمز، أو رقم: <[! ]*> • البحث عن أي كلمة، وهي تصلح في عمل الماكرو: <[أ-ىيئءؤءاإًٌٍَُِّْ]@> • أو: <[أ-يًٌٍَُِّْ]@> • البحث عن أي كلمة: <[أ-ي]@> أو: <?@?> • البحث عن أي كلمة: <[! ]@> يكتب قبلها كلمة عند البحث والاستبدال لأنها تبطئ الماكرو، وربما تهنج الورد. • البحث عن أي كلمتين: <[! ]@> <[! ]@> • البحث عن أي كلمتين الأولى تبدأ بهمزة، والثانية تنتهي بتاء مربوطة: <أ[! ]@> <[! ]@ة> • البحث عن أي كلمتين الأولى آخرها ألف، والثانية تنتهي بالألف: <[! ]@ا> <[! ]@ا> • البحث عن كلمتين متتاليتين مكررتين: (<* ){2} ، ويمكن البحث بـ{3، 4} أو <([أؤئإءيا-ى]@)> \1> أو: (<[ء-يا-ى]@)[ ,.;:]@\1> • البحث عن كلمتين، أو عددين، أو جملتين متتاليتين مكررتين: (<*>) \1 • البحث عن كلمتين، أو عددين، أو جملتين متتاليتين مكررتين بينهما فاصلة: (<*>)، \1 • ولحذف الكلمة أو الجملة المكررة نضع في مربع الاستبدال: \1 • البحث عن حرفين أو رقمين متتاليين متطابقين: (?){2} • البحث عن أي كلمتين أو حرفين أو رقمين متتاليين متطابقين: (<*){2} • البحث عن أي كلمتين متطابقتين بينهما أي كلمة: (<[! ]@>) [! ]@ \1 • البحث عن آخر كلمة في الخلية (تنفع للشعر): <[أ-ىيئءؤءاإًٌٍَُِّْ]@>[! ء-ى] • البحث عن أي رقمين متتاليين بينهما فاصلة مثل 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]{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^#/

يفضل إرفاق ملف به مثال من البيانات مع توضيح المطلوب بمنتهى الدقة على الاعمدة وعرض النتائج المتوقعة

انا لله وانا اليه راجعون البقاء لله ونسأل الله أن يغفر له ويرحمه ويسكنه فسيح جناته ويلهم أهله وذويه الصبر والسلوان

يوجد زيادة في الدالة لا داعي لها قبل =SUMIFS(INDEX($C$2:$F$12;0;MATCH($B16;$C$2:$F$2;0)):INDEX($C$3:$F$12;0;MATCH($B16;$C$2:$F$2;0));$B$2:$B$12;C$15) بعد =SUMIFS(INDEX($C$3:$F$12;0;MATCH($B16;$C$2:$F$2;0));$B$3:$B$12;C$15)

تفضل Dim SetRep As Variant, SetRepNew As Variant SetRep = "ضع اسم التقرير هنا" SetRepNew = CurrentProject.Path & "\" & [ID] & ".pdf" DoCmd.OpenReport SetRep, acViewPreview DoCmd.OutputTo acOutputReport, SetRep, "PDFFormat(*.pdf)", SetRepNew, True

انا لله و انا اليه راجعون و لا حول و لا قوة الا بالله العلى العظيم فى جنة الخلد ان شاء الله مع الانبياء و الصديقيين و الشهداء

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

رحمه الله رحمة واسعة واسكنه الفردوس الأعلى من الجنة

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

شكرا لك استاذ حسونه لقد حلت المشكله 😀

حدد خلية يناير في الجدول 2 ثم اضغط علامة = ثم اضغط على يناير في الجدول 1 ثم اضغط انتر Enter كرر ذلك مع باقي الأشهر أرجو أن أكون فهمت ما تريد

البقاء لله ... رحمه الله

تفضل استخدم هذا الكود Dim i As Integer, rs As Object Set rs = Me.Grid1.Form.RecordsetClone Me.Grid1.SetFocus DoCmd.GoToRecord , , acFirst For i = 0 To rs.RecordCount - 1 [Forms]![frm1]![Grid1]![prentss] = IIf([Forms]![frm1]![Grid1]![prentss] = True, False, True) If i <> rs.RecordCount - 1 Then DoCmd.GoToRecord , , acNext Next i BD.2.accdb

البقاء لله وان لله وان اليه راحعون اللهم اسكنه فسيج جناتك

على الرغم من اني شايب وفهمي على قدي لكن جرب Dim rs As Recordset Dim a As Integer Dim x As Integer Set rs = Me.نموذج_فرعي_tabl.Form.RecordsetClone x = rs.RecordCount rs.MoveFirst For a = 1 To x rs.Edit If rs!prentss = True Then rs!prentss = False Else rs!prentss = True End If rs.Update rs.MoveNext Next a مرفق الملف BD.accdb

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

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

البقاء لله وحده ربنا يرحمه ويغفر له

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

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

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

البقاء لله وحده ... غفر الله له واسكنه فسيح جناته . والهم اهله الصبر والسلوان وجعل ما اسهم به _ في المنتدى _ كعلم ينتفع به وفي ميزان حسناته ان شاء الله

البقاء لله اللهم اغفر له ولأمة المسلمين

وعليكم السلام تفضل الجمع بشرط على مستوى صف وأعمدة.xlsx

طيب جرب هذا <|<><><><><><|> Dim rst As DAO.Recordset Set dbs = CurrentDb date_custom = Date If Len(Me.number_custom & "") <> 0 Then Exit Sub Me.number_custom = Nz(DMax("[number_custom]", "tbl_custom", "year([date_custom])=" & Year(date_custom)), 0) + 1 Set rst = dbs.OpenRecordset("FrmRretsQ") d = Me.number_custom DoCmd.RunCommand acCmdSaveRecord Do Until rst.EOF rst.Edit rst!number_custom = d rst!date_custom = Date rst!emp_company = DYear rst.Update d = d + 1 rst.MoveNext Loop Me.Requery