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

ابا جودى

الخبراء
  • Content Count

    4,222
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    79

ابا جودى last won the day on أبريل 28

ابا جودى had the most liked content!

السمعه بالموقع

2,632 Excellent

عن العضو ابا جودى

  • الإسم الفعلي
    محمد عصام
  • تاريخ الميلاد 28 فبر, 1982

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    عبد الله
  • البلد
    مصــ♥ـــــر
  • الإهتمامات
     رضا الله هو كل غايتى

وسائل التواصل

  • MSN
    soul-angel@msn.com

اخر الزوار

8,501 زياره للملف الشخصي
  1. هناك أخطاء كما نوهت من قبل فى المصاحف الرقمية المنتشرة على صفحات ومواقع الإنترنت انظر الى اول اية من سورة التكاثر فى كل من المواقع التى تفضلتم بها وفى المصحف الشريف وهذا فقط على سبيل المثال وليس الحصر
  2. انتظروا النسخة بعد التعديل والاضافات 😉 تم بفضل الله تعالى التاكد من صحة الايات والتى لم تكن مضبوطة فى المصاحف الرقمية المنتشرة لان المصدر ان شاء الله فى النسخة القادمة هو من مجمع الملك فهد لطباعة المصحف الشريف
  3. استاذى الجليل هو حضرتك تشرب سطل الشاى وانا اللى احاول واجاوب
  4. انا اسف جدا لم انتبه بسبب انى اعمل على النظام ٣٢ بيت ولكن هذا التعديل للكود انا استخدمته داخل القاعدة ولكن الله اعلم به هل يعمل ام لا على العموم استاذى العزيز جرب التعديل ومن فضلك لو تمام فقط اهبرد
  5. تم بحمد الله تعالى وفضله التوصل للنتيجة المطلوبة موديول لتجميع كل السجلات فى حقل واحد 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
  6. طيب بفضل من الله توصلت الى نتيجة تقربنا جدا من المطلوب دمجت كل السجلات الى سجل واحد الان المطلوب فصل بيانات السجل الى عدة سجلات لتكون كل اية فى سجل خاص بها المصحف الرقمى - مجمع الملك فهد.zip
  7. اسال الله لى ولكم وكل عباد الله تعالي المسلمين وكل خلق الله تعالى العفو والعافية استاذى الجليل تدور براسي فكرة ولكن هل يمكن بطريقة ما تجميع السجلات على التوالي عن طريق لوب ويتوقف التجميع عند العلامة ۝
  8. طيب انا عملت نصف المهمه والحمد لله انظر الى ترتيب ايات سورة الفاتحة tblAyaat Aya سُورَةُ الفَاتِحَةِ بِسۡمِ ٱللَّهِ ٱلرَّحۡمَٰنِ ٱلرَّحِيمِ ۝ ٱلۡحَمۡدُ لِلَّهِ رَبِّ ٱلۡعَٰلَمِينَ ۝ ٱلرَّحۡمَٰنِ ٱلرَّحِيمِ ۝ مَٰلِكِ يَوۡمِ ٱلدِّينِ ۝ إِيَّاكَ نَعۡبُدُ وَإِيَّاكَ نَسۡتَعِينُ ۝ ٱهۡدِنَا ٱلصِّرَٰطَ ٱلۡمُسۡتَقِيمَ ۝ صِرَٰطَ ٱلَّذِينَ أَنۡعَمۡتَ عَلَيۡهِمۡ غَيۡرِ ٱلۡمَغۡضُوبِ عَلَيۡهِمۡ وَلَا ٱلضَّآلِّينَ ۝ انظر الى باقى الايات تجد الاية قد تكون مقسمة فى اكثر من سجل المطلوب تجميع كل اية فى سجل خاص بها كما فى سورة الفاتحة المصحف الرقمى - مجمع الملك فهد.mdb
  9. السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الافاضل لاحظت الكثير من الاخطاء عند العمل على المصاحف الرقمية وبفضل من الله تحصلت على ملف ورد من مجمع الملك فهد لطباعة المصحف الشريف اريد كل ايه فى سجل هل يمكن عمل ذلك برمجيا المصحف الرقمى - مجمع الملك فهد.mdb UthmanicHafs1 Ver13.doc
  10. ونصيحة لوجه الله تعالى اقراء هذا الموضوع بعناية
  11. انقل المجل للقاعدة الخارجية وقم باخفاء الجداول ثم امسح المجلد واعتقد مررت على قاعدة ذات مرة تخفى جداول قاعدة اخري ولكن بسبب التصفح من الجوال لا أستطيع البحث بشكل جيد ولكن سوف احاول ان شاء الله
  12. انا اسف والله انا لم انتبه يا استاذ عبد الله ان مشاركة استاذ محمد سلامة كانت اقتباس من حضرتك لم انتبه الا الان اكتشفت السبب اكتب فى البحث الرحم**ن استبدل النجوم بالصغط على زر الشيفت مع زر حرف التاء لتمديد الحرف لتصبح الرحم_ن تكمن المشكلة بكتابة الايات نفسها تقريبا ٣ ساعات وانا احاول البحث عن السبب اعتقدت المشكلة برمجية ولكن لم تكن من الاكواد
  13. مبروك استاذ @husamwahab 🌹🌹🌹 اتمنى لك النجاح في كل امورك ودائما فى تألق انا اسف على التاخير 🙏
×
×
  • اضف...