ابا جودى

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

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

استاذى الجليل هو حضرتك تشرب سطل الشاى وانا اللى احاول واجاوب

انا اسف جدا لم انتبه بسبب انى اعمل على النظام ٣٢ بيت ولكن هذا التعديل للكود انا استخدمته داخل القاعدة ولكن الله اعلم به هل يعمل ام لا على العموم استاذى العزيز جرب التعديل ومن فضلك لو تمام فقط اهبرد

المصحف الرقمى - مجمع الملك فهد 2.zip

تم بحمد الله تعالى وفضله التوصل للنتيجة المطلوبة موديول لتجميع كل السجلات فى حقل واحد Public Function ToMrg() As String Dim strTemp, i Dim strSQL As String strSQL = "select Aya from tblAyatSource;" strTemp = CurrentProject.Connection.Execute(strSQL).GetRows For i = 0 To UBound(strTemp, 2) ToMrg = ToMrg & strTemp(0, i) & Space(1) Next ToMrg = Mid(ToMrg, 1, Len(ToMrg) - 1) End Function والان موديول فصل الايات من حقل واحد الى جدول اخر لتكون كل اية فى سجل Public Sub ToSplitForTabel() Dim db As DAO.Database Dim rs As DAO.Recordset Dim rsADD As DAO.Recordset Dim strSQL As String Dim strField1 As String Dim strField2 As String Dim varData As Variant Dim i As Integer Set db = CurrentDb strSQL = "SELECT ayat FROM TableA " Set rsADD = db.OpenRecordset("TableB", dbOpenDynaset, dbAppendOnly) Set rs = db.OpenRecordset(strSQL, dbOpenDynaset) With rs While Not .EOF strField1 = !ayat varData = Split(strField1, ChrW(1757)) For i = 1 - 1 To UBound(varData) With rsADD .AddNew !ayat = varData(i) & ChrW(1757) .Update End With Next .MoveNext Wend .Close rsADD.Close End With Set rsADD = Nothing Set rs = Nothing db.Close Set db = Nothing End Sub

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

اسال الله لى ولكم وكل عباد الله تعالي المسلمين وكل خلق الله تعالى العفو والعافية استاذى الجليل تدور براسي فكرة ولكن هل يمكن بطريقة ما تجميع السجلات على التوالي عن طريق لوب ويتوقف التجميع عند العلامة ۝

طيب انا عملت نصف المهمه والحمد لله انظر الى ترتيب ايات سورة الفاتحة tblAyaat Aya سُورَةُ الفَاتِحَةِ بِسۡمِ ٱللَّهِ ٱلرَّحۡمَٰنِ ٱلرَّحِيمِ ۝ ٱلۡحَمۡدُ لِلَّهِ رَبِّ ٱلۡعَٰلَمِينَ ۝ ٱلرَّحۡمَٰنِ ٱلرَّحِيمِ ۝ مَٰلِكِ يَوۡمِ ٱلدِّينِ ۝ إِيَّاكَ نَعۡبُدُ وَإِيَّاكَ نَسۡتَعِينُ ۝ ٱهۡدِنَا ٱلصِّرَٰطَ ٱلۡمُسۡتَقِيمَ ۝ صِرَٰطَ ٱلَّذِينَ أَنۡعَمۡتَ عَلَيۡهِمۡ غَيۡرِ ٱلۡمَغۡضُوبِ عَلَيۡهِمۡ وَلَا ٱلضَّآلِّينَ ۝ انظر الى باقى الايات تجد الاية قد تكون مقسمة فى اكثر من سجل المطلوب تجميع كل اية فى سجل خاص بها كما فى سورة الفاتحة المصحف الرقمى - مجمع الملك فهد.mdb

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الافاضل لاحظت الكثير من الاخطاء عند العمل على المصاحف الرقمية وبفضل من الله تحصلت على ملف ورد من مجمع الملك فهد لطباعة المصحف الشريف اريد كل ايه فى سجل هل يمكن عمل ذلك برمجيا المصحف الرقمى - مجمع الملك فهد.mdb UthmanicHafs1 Ver13.doc

ونصيحة لوجه الله تعالى اقراء هذا الموضوع بعناية

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

انا اسف والله انا لم انتبه يا استاذ عبد الله ان مشاركة استاذ محمد سلامة كانت اقتباس من حضرتك لم انتبه الا الان اكتشفت السبب اكتب فى البحث الرحم**ن استبدل النجوم بالصغط على زر الشيفت مع زر حرف التاء لتمديد الحرف لتصبح الرحم_ن تكمن المشكلة بكتابة الايات نفسها تقريبا ٣ ساعات وانا احاول البحث عن السبب اعتقدت المشكلة برمجية ولكن لم تكن من الاكواد

مبروك استاذ @husamwahab 🌹🌹🌹 اتمنى لك النجاح في كل امورك ودائما فى تألق انا اسف على التاخير 🙏

ممكن المرفق