اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


ابو جودي
إذهب إلى أفضل إجابة Solved by ابو جودي,

الردود الموصى بها

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

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

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

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

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

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

UthmanicHafs1 Ver13.doc

تم تعديل بواسطه ابا جودى
  • Like 4
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

 

تم تعديل بواسطه kha9009lid
  • Like 3
  • Haha 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

 

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

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

 

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

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

 

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

تم تعديل بواسطه ابا جودى
  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

 

  • Haha 2
رابط هذا التعليق
شارك

الان, kha9009lid said:

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

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

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

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

 

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

 

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

  • Haha 4
رابط هذا التعليق
شارك

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

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

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

ههههههههه

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

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

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

 

منذ ساعه, Barna said:

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

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

  • Haha 4
رابط هذا التعليق
شارك

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

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

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

:fff:

  • Thanks 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

 

  • Like 1
  • Thanks 1
  • Haha 1
رابط هذا التعليق
شارك

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

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

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

 

رابط هذا التعليق
شارك

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

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

http://tanzil.net/download

تحياتي

  • Like 3
رابط هذا التعليق
شارك

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

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

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

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

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

تحياتي 🌹

  • Thanks 2
رابط هذا التعليق
شارك

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

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

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

http://tanzil.net/download

تحياتي

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

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

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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information