سؤال بخصوص فصل الايات كل اية فى سجل

[ابو جودي]

السلام عليكم ورحمة الله تعالى وبركاته

اساتذتى الافاضل 

لاحظت الكثير من الاخطاء عند العمل على المصاحف الرقمية

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

 اريد كل ايه فى سجل هل يمكن عمل ذلك برمجيا

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

UthmanicHafs1 Ver13.doc

تم تعديل أبريل 30, 2020 بواسطه ابا جودى

[kha9009lid]

وعليكم السلام

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

اقصى عدد لحقول الجدول الواحد 255 حقل

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

ممكن يكون كل سورة في جدول ومعناها اننا نحتاج الى 114 جدول +1 جدول لبقية سورة البقرة اي 115 جدول

ايضا توجد ايات عددها اكبر من استيعاب عدد حروف الحقل النصي 255 حرف مثل الاية الدين في سورة البقرة 551 حرف

لست خبير في مواضيع الاستيراد ولكن اعتقد ان ذلك ممكن ولكن بجهد كبير

 

تم تعديل أبريل 30, 2020 بواسطه kha9009lid

[ابو جودي]

طيب انا عملت نصف المهمه والحمد لله

1 ساعه مضت, kha9009lid said:

وعليكم السلام

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

اقصى عدد لحقول الجدول الواحد 255 حقل

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

ممكن يكون كل سورة في جدول ومعناها اننا نحتاج الى 114 جدول +1 جدول لبقية سورة البقرة اي 115 جدول

ايضا توجد ايات عددها اكبر من استيعاب عدد حروف الحقل النصي 255 حرف مثل الاية الدين في سورة البقرة 551 حرف

لست خبير في مواضيع الاستيراد ولكن اعتقد ان ذلك ممكن ولكن بجهد كبير

 

انظر الى ترتيب ايات سورة الفاتحة

tblAyaat

Aya
سُورَةُ الفَاتِحَةِ
بِسۡمِ ٱللَّهِ ٱلرَّحۡمَٰنِ ٱلرَّحِيمِ ۝
ٱلۡحَمۡدُ لِلَّهِ رَبِّ ٱلۡعَٰلَمِينَ ۝
ٱلرَّحۡمَٰنِ ٱلرَّحِيمِ ۝
مَٰلِكِ يَوۡمِ ٱلدِّينِ ۝
إِيَّاكَ نَعۡبُدُ وَإِيَّاكَ نَسۡتَعِينُ ۝
ٱهۡدِنَا ٱلصِّرَٰطَ ٱلۡمُسۡتَقِيمَ ۝
صِرَٰطَ ٱلَّذِينَ أَنۡعَمۡتَ عَلَيۡهِمۡ غَيۡرِ ٱلۡمَغۡضُوبِ عَلَيۡهِمۡ وَلَا ٱلضَّآلِّينَ ۝

 

انظر الى باقى الايات تجد الاية قد تكون مقسمة فى اكثر من سجل

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

 

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

تم تعديل أبريل 30, 2020 بواسطه ابا جودى

[kha9009lid]

موضوع جميل ويحتاج الى سطل شاي وتركيز

وسوف احاول معك باذن الله

اليوم الوحيد الي تواجدت فيه وقت طويل بالموقع

مع كورونا العمل اخذ جل وقتي اليوم اول اجازة لي من بداية الازمة

 

[ابو جودي]

الان, kha9009lid said:

موضوع جميل ويحتاج الى سطل شاي وتركيز

وسوف احاول معك باذن الله

اليوم الوحيد الي تواجدت فيه وقت طويل بالموقع

مع كورونا العمل اخذ جل وقتي اليوم اول اجازة لي من بداية الازمة

 

اسال الله لى ولكم وكل عباد الله تعالي المسلمين وكل خلق الله تعالى العفو والعافية 

استاذى الجليل تدور براسي فكرة ولكن

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

[ابو جودي]

طيب بفضل من الله توصلت الى نتيجة تقربنا جدا من المطلوب

دمجت كل السجلات الى سجل واحد

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

المصحف الرقمى - مجمع الملك فهد.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

 

[ابو جودي]

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

[ابو جودي]

18 ساعات مضت, kha9009lid said:

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

استاذى الجليل

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

[Barna]

9 دقائق مضت, ابا جودى said:

استاذى الجليل

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

نظام توارد الخواطر .... ههههه .... 

[kha9009lid]

منذ ساعه, ابا جودى said:

استاذى الجليل

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

ههههههههه

ماشاء الله عليك اخي محمد انت شغلك حامي

وانا احب الرواقة والي ما يخلص اليوم يخلص باكر

والله يا ابا جودي عندي برنامج مبيعات انهيت النسخة التجربية الاخيرة من ستة اشهر و الى الان ما اقفلت المشروع

 

منذ ساعه, Barna said:

نظام توارد الخواطر .... ههههه .... 

ماشي يا عم محمد انت كمان معاه 😬

[أبوبسمله]

انا معاك بقى اخى واستاذى @kha9009lid بحب الرواقه والقهوه عندى المرادى 😀

الفطور جاهز ةالشاى والقهوه

جزاكم الله خيرا وربنا يوفقكم ويروق بالكم باذن الله

[kha9009lid]

2 دقائق مضت, أحمد الفلاحجى said:

انا معاك بقى اخى واستاذى @kha9009lid بحب الرواقه والقهوه عندى المرادى

وهذا الامر سبب لي احراج كثير في العمل

مثل طلب مني برنامج للترقيات متوافق مع انظمة الخدمة المدنية

ويقول لك كم يوم وينتهي ؟

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

 

[محمد سلامة]

4 ساعات مضت, kha9009lid said:

والله يا ابا جودي عندي برنامج مبيعات انهيت النسخة التجربية الاخيرة من ستة اشهر و الى الان ما اقفلت المشروع

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

 

[أبوبسمله]

اعانك الله اخى واستاذى @kha9009lid

[محمد أبوعبدالله]

للفائدة
يمكن تحميل  قاعدة بيانات القرآن كاملا من موقع qurandatabase باكثر من صيغة
http://qurandatabase.org

وهنا قاعدة بيانات القرآن كاملا من موقع تنزيل tanzil
يمكن تحميل الملف بصيغة txt
ثم نسخه الى ملف اكسيل
ثم نسخه الى اكسيس ان شاء الله بكل سهولة

http://tanzil.net/download

تحياتي

[kha9009lid]

15 ساعات مضت, محمد سلامة said:

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

اهلا وسهلا اخي الفاضل محمد سلامة

النسخة البيتا الاخيرة بعد اختبارها في بيئة عمل حقيقية تبين وجود بعض الملاحظات البسيطة و لم اقم باصلاحها

ربما اطرح اصدار بخصائص محدودة بعد انهاء الملاحظات

تحياتي 🌹

[ابو جودي]

19 ساعات مضت, محمد ابوعبد الله said:

للفائدة
يمكن تحميل  قاعدة بيانات القرآن كاملا من موقع qurandatabase باكثر من صيغة
http://qurandatabase.org

وهنا قاعدة بيانات القرآن كاملا من موقع تنزيل tanzil
يمكن تحميل الملف بصيغة txt
ثم نسخه الى ملف اكسيل
ثم نسخه الى اكسيس ان شاء الله بكل سهولة

http://tanzil.net/download

تحياتي

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

انظر الى اول اية من سورة التكاثر فى كل من المواقع التى تفضلتم بها وفى المصحف الشريف

وهذا فقط على سبيل المثال وليس الحصر