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

[ابو جودي]

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

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

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

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

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

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

UthmanicHafs1 Ver13.docFetching info...

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

[kha9009lid]

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

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

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

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

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

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

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

 

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

[ابو جودي]

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

  في 30‏/4‏/2020 at 18:42, kha9009lid said:

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

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

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

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

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

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

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

 

Expand  

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

tblAyaat

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

 

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

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

 

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

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

[kha9009lid]

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

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

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

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

 

[ابو جودي]

  في 30‏/4‏/2020 at 20:15, kha9009lid said:

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

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

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

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

 

Expand  

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

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

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

[ابو جودي]

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

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

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

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

[ابو جودي]

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

موديول لتجميع كل السجلات فى حقل واحد
 

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.zipFetching info...

[ابو جودي]

  في 30‏/4‏/2020 at 20:15, kha9009lid said:

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

Expand  

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

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

[Barna]

  في 1‏/5‏/2020 at 14:34, ابا جودى said:

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

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

Expand  

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

[kha9009lid]

  في 1‏/5‏/2020 at 14:34, ابا جودى said:

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

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

Expand  

ههههههههه

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

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

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

 

  في 1‏/5‏/2020 at 14:45, Barna said:

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

Expand  

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

[أبوبسمله]

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

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

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

[kha9009lid]

  في 1‏/5‏/2020 at 16:02, أحمد الفلاحجى said:

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

Expand  

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

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

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

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

 

[محمد سلامة]

  في 1‏/5‏/2020 at 15:52, kha9009lid said:

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

Expand  

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

 

[أبوبسمله]

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

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

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

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

http://tanzil.net/download

تحياتي

[kha9009lid]

  في 1‏/5‏/2020 at 20:21, محمد سلامة said:

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

Expand  

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

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

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

تحياتي 🌹

[ابو جودي]

  في 2‏/5‏/2020 at 00:34, محمد ابوعبد الله said:

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

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

http://tanzil.net/download

تحياتي

Expand  

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

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

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