كل الانشطه

اخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته بعد اذن حضراتكم هل ينفع استخدم دالة sum في استعلام من خلال وحدة نمطية

طيب تمام حطي الكود ده فى on format بتاع ال page header Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) Dim intDetailHeight As Integer Dim intRecordCount As Integer Me.A.Report.Visible = True intDetailHeight = Me.A.Report.Section(acDetail).Height intRecordCount = 2 Me.A.Height = intDetailHeight * intRecordCount Me.PageHeaderSection.Height = Me.A.Height End Sub إن شاءالله هيظهر معاكي تقرير ال sub فى وضع الطباعه

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

اه تمام. المفروض الصب ريبورت دا لبيانات المريض هعمل منه اشكال مختلفه وكلهم مش نفس العرض عايزه كود عند فتح التقرير يفتح الصب ريبورت بنفس العرض بتاعه

أحسن الله إليك أخي الكريم أجريت تجربة على ملف كبير، والنتيجة أكثر من جيدة بحمد الله من حيث الوقت لم تأخذ إلا بضع دقائق والنتائج إلى الآن دقيقة .. ولا أزال في طور المراجعة العشوائية وكل الأخطاء التي وجدتها بسبب ما ذكرته سابقا من وجود بعض التعقيدات في الملف الرئيسي (TAB) أحد هذه التعقيدات يمكن تجاوزها بعملية استبدال في نص الجدول (TAB) وهي بسبب وجود ترقيمين في بعض الكتب، سواء كان الترقيم لطبعتين، أو ترقيم كلي للكتاب وترقيم خاص لبعض أجزائه، مثل: - مصنفات ابن البختري 237- (38) حدثنا محمد بن عبدك القزاز قال: حدثنا أبوبلال قال: حدثنا قيس بن الربيع - حديث شعبة لابن المظفر 213 - (153) حدثنا عبد الملك بن علي بن محمد بن مكرم - المخلصيات 1079- (60) حدثنا عبدالله قال: حدثنا حميد بن مسعدة الشامي فعند البحث عن كتاب (مصنفات ابن البختري) حديث رقم (38)، فستخرج النتيجة التالية: وليست هي النتيجة المطلوبة، النتيجة المطلوبة: * ولتجاوز هذا الأمر فأنا بحاجة إلى دالة منفصلة لحذف كل الأرقام التي تكون بين قوسين بشرط وجودها بعد [رقم& مسافة أو بدون مسافة& - & مسافة أو دون مسافة] يعني تصبح الأرقام السابقة كالتالي - مصنفات ابن البختري 237- حدثنا محمد بن عبدك القزاز قال: حدثنا أبوبلال قال: حدثنا قيس بن الربيع - حديث شعبة لابن المظفر 213 - حدثنا عبد الملك بن علي بن محمد بن مكرم - المخلصيات 1079- حدثنا عبدالله قال: حدثنا حميد بن مسعدة الشامي وأنا كنت أقوم بمثل هذه الإجراءات في وورد لوجود خاصية تسجيل الماكرو، أما في أكسس فلا أعرف كيف وأنا أفضل أن تكود في كود منفصل وليس ضمن الكود الذي يقوم بعملية البحث، لاحتمال أن أستخدمه في مجالات أخرى * أما الأحاديث التي لم يجدها -وهي قليلة- فكلها بسبب أخطاء في كتابة الأرقام في الملف، وهذا يدل على دقة الدالة بحمد الله ولكن استوقفني هذا الحديث الذي لم يجده فهل السبب وجود الرقم المطلوب (268) قبل وبعد الكتب في نفس الوقت .. على كل هذه حالة نادرة

السلام عليكم ورحمة الله وبركاته أخي الكريم بارك الله فيك، إليك نسخة محسنة مع بعض الإضافات التي قد نحتاج إليها مستقبلاً "بالمرفقات" - تم إزالة الاكواد الزائدة - تم تعديل الوظيفة الخاصة بقص النص وإضافة بعض المميزات - تم إضافة جدول أسماء الكتب إليك بعض التوضيحات 1- الكود المسؤول عن إضافة أسماء الكتب للكولكشين هو "createBooksCollection" ويمكن التعديل عليه لتغير المصدر الخاص بأسماء الكتب من خلال التعديل علي اسم الجدول : booksSourceTable = "BOOKSLIST" اسم العمود : booksColumn = "BookName" يتم تطيبق هذا الاجراء داخل الكود الاساس من خلال هذه الاكواد 1- يجب تعريف الكوليكشين Dim BooksCollection As Collection ثم التطبيق createBooksCollection BooksCollection 2- تم تعديل الوظيفة الخاصة بالنص حتي تسمح بالاتي هي فالاول كانت تقوم بالبحث عن اول الكلمة (إسم الكتاب) ثم تبحث عن أخر رقم مطابق الان التعديلات هي 1- البحث عن أقرب رقم مطابق وهو الافتراضي 2- البحث عن أخر رقم مطابق 3- إمكانية إضافة نص أختياري بعد الرقم المطابق مثال Sub TestTrimString() Dim fullText As String fullText = "I have too many books contain this subject book 35 and book 353 and book 35/4 and book 135 search in any" ' حتي نحصل علي أقرب نتيجة مطابقة Debug.Print trimString(fullText, "books", "35") ' حتي نحصل علي أبعد نتيجة مطابقة Debug.Print trimString(fullText, "books", "35", False) ' حتي نحصل علي أقرب نتيجة مطابقة ثم نضيف 4 خانات من النص الاساسي Debug.Print trimString(fullText, "books", "35", True, 4) ' حتي نحصل علي أبعد نتيجة مطابقة ثم نضيف 5 خانات من النص الاساسي Debug.Print trimString(fullText, "books", "35", False, 5) End Sub هذه الأكواد متعلقة بوجود العمود MNOX وكما فهمت هذا العمود لن يكون موجود تم وضعه للأختبار فقط لذا يجب تعليق هذه الاكواد في حالة عدم وجودة If CStr(Nz(!MNO, "")) = CStr(Nz(!MNOX, "")) Then !select1 = True Else !select1 = False End If Debug.Print "Total Match is " & DCount("[select1]", "BOOKS", "[select1]=True") & " / " & DCount("*", "BOOKS") & " Total Records" تم إضافة هذا الكتاب لجدول الكتب تم إضافة العمود الخاص بعدد النتائج والعمود الخاص بجميع الـ MNO بها لو أمكنك مشاركة هذه النتيجة عند التجربة علي قواعد بيانات كبيرة It Takes | 78MS | To resolve | 33 | Records لمعرفة كم احتاجت من الوقت أرجو لك من الله التوفيق Smart_Search_NSSJ.accdb

اخواني واساتذتي الاعزاء اسعدالله اوقاتكم بكل خير اشكر كل من تفاعل مع هذا الموضوع باي حال من الاحوال واعتذر منكم جميعا وارغب في توضيح الصوره لكم حتى لايتم فهمها بشكل خاطئ الموضوع وبختصار ان المرحلة الثانية للفاتورة الاليكترونية موضوع طويل ولابد من فهمه جيدا حتى يتم برمجتها ويتم مناقشتها ولذالك اضطريت انا والاخ ( at_aziz ) اخذ دو ة مدفوعه والدوره هي عبارة عن آلية المرحلة الثانية وكان الغرض هو انزل المحاضرات اول باول ولكن للاسف بعد اول محاضره اختلف الوضع وطلب منا مقدم الدوره فقط انزال جزء بسيط من الدوره وهذا لايفي بالغرض حتى يستطيع الجميع فهم خطوات مراحل الربط في المرحلة الثانيه ولذالك لم نستطيع اكمال الدوره مع الشخص الذي يقدم الدوره و كان الغرض هو مصلحة للجميع وتسهيل خطوات الربط عن طريق محاضرات يتم انزالها اول باول والله الموفق والان تم ارفاق ملفين pdf خاصه بالزكاه والدخل هنا رابط تحميل ملفات خاصه بالمرحلة الثانيه https://www.raed.net/file?id=828376 وايضا هنا موقع الزكاة والدخل بعض الملفات الخاصه بالمرحلة الثانية https://zatca.gov.sa/ar/E-Invoicing/SystemsDevelopers/Pages/E-Invoice-specifications.aspx E-Invoicing-Detailed-Guidelines.pdf

السلام عليكم هو حسب مافهمت كده من المرفق أن ده تقرير لمعمل تحاليل مش المفترض أن التقرير اللي زي hln اللي بيبين بيانات المريض يبقى فى page header ولا أنا فاهم كده غلط

سوف اعمل بنصيحتك واجرب والرد لك خبر الله يطول في عمرك

الخبراء الافاضل بعد التحية توجد هذة الصور داخل القاعدة على الرغم من حذفها سابقا اريد التخلص منها تماما ولا تظهر فى الفولدر غير الصور الموجودة بالفعل LAB_2024-1.rar

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

تم تعديل الملف New Microsoft Access Database.accdb

تمام تسلم علي الفكرة يا غااي

الملف غير كامل كي نساعد !!!!!!!!!!!!!!!

بارك الله فيك أخي الكريم بعد أن أضفت (المجمع) لقائمة الكتب كانت النتائج الخاطئة = 0 وجربت الكود على المجموعة القديمة التي بدأت بها هذا الموضوع وكانت النتائج الخاطئة = 0 وهذه نتيجة مبشرة بحمد الله وأنا الآن لدي بعض الأشغال خارج البيت ولا مجال للتجارب على الملفات الكبيرة الآن ولكن هل يساعد أن أعطيك قائمة بأسماء الكتب أنا عندي قائمة منفصلة بأسماء الكتب .. فيها أكثر (360) كتابا إلى الآن !! .. وهي في الملف المرفق BOOKSLIST.accdb

وعليكم السلام ورحمة الله وبركاته تفضل لعله المطلوب نقل المبلغ.xlsx

أخي الكريم إجابةً علي هل هناك طرق أخري فحسب معلوماتي يوجد طريقة أخري عني طريق تحديد أنماط للبحث داخل النص باستخدام (regEx) ولكن فيما يتناسب مع الحالات التي قد ترد هو المسار المختار الان ونسأل الله التوفيق لماذا ؟ لان المشكلة الحقيقية ليست البحث داخل النص عن أسم الكتاب ومقطع أخر المشكلة ان المقطع الأخر قد يرد قبله اسم كتاب اخر ولذا هداني الله لهذه الطريقة ان نقوم بتحديد النص المراد عن طريق الحدود وهي اسم الكتاب ورقم البحث ومن ثم إذا كانت نتيجة التصفية 1 فلا يوجد مشكلة وهنا تطابق 100% اما اذا كانت أكثر نقوم بالبحث داخل هذه النتائج فإن كان هناك اسم كتاب أخر بين اسم الكتاب والرقم فهذا يعني بان الرقم يخص الكتاب الأخر فنستبعد هذا الاحتمال ولذلك من المهم جداً ان تعرض جميع الحالات الممكنة حتي يتم مراعاتها كما يمكن ان نقوم بأكثر من عملية للوصول إلي أوثق نتيجة بإذن الله والاضافة الحالية التي قد تساعدك ان نقوم بإضافة عمود نضع فيه عدد النتائج التي ظهرت في التصفية وعمود أخر نجمع في ارقام الـ MNO الخاصة بهذه النتائج حتي نقلص وقت المراجعة

تفضل استاذ @hamadbin3ysh حسب مافهمت . واذا لم يكن هذا طلبك وضح أكثر من فضلك . Database20-1.rar

استاذنا ومعلمنا @ابوخليل هذا ما تعلمناه منكم ( اثلجتم صدري) . اشكركم وحياكم الله وأنا منايا مقابلة شخصكم الكريم . والشكر موصول ايضا لأستاذنا ومعلمنا @Moosak لتفاعله .

ايش هذا .. غير معقول !!!! الفكر .. انا اتكلم عن الفكرة تحية لفكرك الراقي ... حتى لو انت شيبة .. يبقى الابداع اكبر من الصح ومن اي تقييم ........ اتمنى ازور البحرين واقابلك

جزاك الله خير المطلوب وزيادة شكرا لك

بعد توجيهات أستاذنا @ابوخليل تفضل استاذ @zero1111330566 محاولتي حسب مافهمت اليك الشرح والمرفق . ووافني بالرد . الاصناف_1.rar

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

أخي الكريم تم عمل التعديل كالتالي 1- تقوم الوظيفة بقص النص الأساسي الي مقطع ما بين اسم الكتاب واخر رقم يطابق الرقم الخاص بالبحث 2- وهو خطوة مهم جداً يجب ان تحتوي قاعدة البيانات التي سوف تعم عليها جميع أسماء الكتب لاننا سنضعها داخل كولكشين ونبدأ بعمل التالي الان لدينا النص الذي نريد البحث بداخله ولدينا جميع اسماء الكتب فحتي اتبين ان الرقم يخص الكتاب الخاص بالبحث وليس كتاب اخر سوف اقوم باستبدال جميع اسماء الكتب الاخرى بكلمة محددة حتي اتمكن من عدها لاحقاً إذا وقعت بين الكتاب الاساس في البحث والرقم الخاص بالبحث ومن ثم اقم بالعدد فمثلاً في هذه الحالة عندما أضفت اسم الكتاب الفوائد المعللة لأبي زرعة الي الجدول BOOKS أصبحت النتيجة صحيحة وهنا إذا اضفنا المجمع لقائمة الكتب ستصبح النتيجة صحيحة وهكذا ،،، تم إضافة هذا الجزء حتي يقوم بمقارنة النتيجة بالرقم mnox ويقوم بعمل select1 true or false If CStr(Nz(!MNO, "")) = CStr(Nz(!MNOX, "")) Then !select1 = True Else !select1 = False End If أتمني ان يقوم هذا بالمطلوب وكما أخبرتك سابقاً يفضل إضافة مثال يحتوي علي كل او معظم الحالات حتي نتمكن من وضع تصور يسمح بالتعامل مع أغلب الحالات قدر المستطاع وفقك الله وحفظك بانتظار التجربة علي ملف يحتوي علي عدد كبير ويفضل ان يحتوي علي جميع أسماء الكتب Smart_Search_New02.accdb

السلام عليكم ورحمة الله أعتقد جازما أن المشكل يكمن في أنك تعمل في نسخة إكسيل 2007 (حسب الصورة) وفي هذه النسخة تحدث الكثير من المشاكل وخاصة بالنسبة للملفات التي تحتوي أكواد VBA والتي لا تتوافق كثيرا مع النسخ المتقدمة... والملف يعمل جيدا عندي تحت نسخة أوفيس 2019... والله أعلم