طلب تصميم أكواد جديدة لجدول القرآن الكريم

ibaradah · يونيو 4

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

*المطلوب أكواد الانتقال من سورة إلى السورة التالية،الأخيرة،السابقة،الأولى مثل الأزرار التي باللون الأحمر بالصورة*

**Foksh** · يونيو 4

14 دقائق مضت, ibaradah said:

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

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

هذا يستوجب أن تقوم بإرفاق الملف الذي سيتم العمل عليه .. فما الفائدة من الحلول التي تعتمد على خيال مقدمها لك وبالنهاية تخبره أن الكود لا يعمل :rol: .

لذا نرجو منكم التكرم بإرفاق ملف لرؤية طريقة بنية قاعة البيانات وذلك بحسب سياسة وشروط المنتدى :wub: .

وجعله الله في ميزان حسناتكم

ibaradah · يونيو 4

تفضل حبيبي قاعدة البيانات

‏‏القرآن الكريم 2.rar

ibaradah · يونيو 4

حبيبي

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

التنقل بين الآيات التالية السابقة الأولى والأخيرة في المصحف وكذلك التنقل بين سور القرآن الكريم.

المطلوب التنقل بين السورة الأولى والسورة التالية،السابقة والأخيرة

**Foksh** · يونيو 4

نسأل الله العظيم رب العرش العظيم أن يجعله في موازين حسناتكم .. وأن يجعل لكم في كل حرف حسنة ..

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

الأصل في مشروعك وهو على أعتاب الضخامة بما يحتويه من سجلات ، أن تبتعد عن التسميات العربية للجداول وحقولها والنماذح والعناصر المكونة لها .... إلخ من مكونات المشروع .

ثانياً اعتقد ان اعتمادك في الجدول على حقل ترقيم تلقائي للآيات لهو خطأ قد يتسبب لك في مشاكل لاحقاً ، وأعلم أن المشروع لن يكون فيه ادخال بيانات أو حذف سجلات في الجدولين ( بيانات ثابتة للعرض فقط ) ولكن برأيي ربط الجدولين بمفتاح غير قابل للتكرار = رقم السورة .

ibaradah · يونيو 4

حبيبي

شكرا لك على طيب تجاوبك وحسن أخلاقك وجعل ما تقمه من معونة في موازين حساناتك.

أخي الحبيب

علمت الطريقة التي ذكرتها لي لكن كانت لها بعض المشاكل في زيادة حجم البيانات كثيرا وأيضا سيتم تكرار بعض الحقول التي ستكون مشتركة بين الجداول وهذا أيضا سيزيد من الحجم.

الهدف أن يكون البرنامج سهل بسيط ولا توجد به أمور متشعبة حتى يسهل على المستخدم الاستفادة به.

توجد طريقة انني اعمل التنقلات بين الآيات في النموذج الفرعي

وأيضا التنقلات بين السور في النموذج الرئيسي

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

image.png.ef6b99a6070e8007e9aa4d265c658902.png

**Foksh** · يونيو 4

1 دقيقه مضت, ibaradah said:

علمت الطريقة التي ذكرتها لي لكن كانت لها بعض المشاكل في زيادة حجم البيانات كثيرا وأيضا سيتم تكرار بعض الحقول التي ستكون مشتركة بين الجداول وهذا أيضا سيزيد من الحجم.

كيف يتم زيادة حجم قاعدة البيانات !!!!!!

على العموم سأحاول الليلة ضبط الأمور على ما انت عليه ، ولكني سأضطر الى تغيير أسماء المكونات لأنني ضد البناء على أساس غير سليم :smile: .

هل انت موافق ؟؟

طبعاً ما لم تجد حلاً أسرع من أحد الأخوة والأساتذة والمعلمين الأفاضل .

ibaradah · يونيو 4

هذه محاولة ثانية

image.png.e0ff7f78c192d21b41f4885790fec0ae.png

1 دقيقه مضت, Foksh said:

كيف يتم زيادة حجم قاعدة البيانات !!!!!!

على العموم سأحاول الليلة ضبط الأمور على ما انت عليه ، ولكني سأضطر الى تغيير أسماء المكونات لأنني ضد البناء على أساس غير سليم .

هل انت موافق ؟؟

طبعاً ما لم تجد حلاً أسرع من أحد الأخوة والأساتذة والمعلمين الأفاضل .

بارك الله بك وبجهدك

حبيبي

طالما يكون فيه المصلحة لتنفيذ المطلوب لا مانع من ذلك

**kanory** · يونيو 4

منذ ساعه, ibaradah said:

تفضل حبيبي قاعدة البيانات

استخدم هذه الشيفرى

Private Sub Command30_Click()
Dim rs As DAO.Recordset

With Forms("القرآن الكريم")
    Set rs = .RecordsetClone
    rs.FindFirst "SurahNo = 1" ' عدّل القيمة حسب ما تريد البحث عنه
    If Not rs.NoMatch Then
        .Bookmark = rs.Bookmark
    Else
        MsgBox "لم يتم العثور على السورة المطلوبة.", vbExclamation
    End If
End With
End Sub

Private Sub Command33_Click()
Dim rs As DAO.Recordset

With Forms("القرآن الكريم")
    Set rs = .RecordsetClone
    rs.FindFirst "SurahNo = " & Me![SurahNo] + 1
    If Not rs.NoMatch Then
        .Bookmark = rs.Bookmark
    Else
        MsgBox "لم يتم العثور على السورة السابقة.", vbExclamation
    End If
End With
End Sub

Private Sub Command34_Click()
Dim rs As DAO.Recordset

With Forms("القرآن الكريم")
    Set rs = .RecordsetClone
    rs.FindFirst "SurahNo = " & Me![SurahNo] - 1
    If Not rs.NoMatch Then
        .Bookmark = rs.Bookmark
    Else
        MsgBox "لم يتم العثور على السورة السابقة.", vbExclamation
    End If
End With
End Sub

Private Sub Command35_Click()
Dim rs As DAO.Recordset

With Forms("القرآن الكريم")
    Set rs = .RecordsetClone
    rs.FindFirst "SurahNo = 114" ' عدّل القيمة حسب ما تريد البحث عنه
    If Not rs.NoMatch Then
        .Bookmark = rs.Bookmark
    Else
        MsgBox "لم يتم العثور على السورة المطلوبة.", vbExclamation
    End If
End With
End Sub

طبعا التعديل على المثال الاول الذي اوردته انت

ibaradah · يونيو 4

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

image.png.dd728e00ccf4b4c3f84103272b84d149.png

3 دقائق مضت, kanory said:

استخدم هذه الشيفرى

Private Sub Command30_Click()
Dim rs As DAO.Recordset

With Forms("القرآن الكريم")
    Set rs = .RecordsetClone
    rs.FindFirst "SurahNo = 1" ' عدّل القيمة حسب ما تريد البحث عنه
    If Not rs.NoMatch Then
        .Bookmark = rs.Bookmark
    Else
        MsgBox "لم يتم العثور على السورة المطلوبة.", vbExclamation
    End If
End With
End Sub

Private Sub Command33_Click()
Dim rs As DAO.Recordset

With Forms("القرآن الكريم")
    Set rs = .RecordsetClone
    rs.FindFirst "SurahNo = " & Me![SurahNo] + 1
    If Not rs.NoMatch Then
        .Bookmark = rs.Bookmark
    Else
        MsgBox "لم يتم العثور على السورة السابقة.", vbExclamation
    End If
End With
End Sub

Private Sub Command34_Click()
Dim rs As DAO.Recordset

With Forms("القرآن الكريم")
    Set rs = .RecordsetClone
    rs.FindFirst "SurahNo = " & Me![SurahNo] - 1
    If Not rs.NoMatch Then
        .Bookmark = rs.Bookmark
    Else
        MsgBox "لم يتم العثور على السورة السابقة.", vbExclamation
    End If
End With
End Sub

Private Sub Command35_Click()
Dim rs As DAO.Recordset

With Forms("القرآن الكريم")
    Set rs = .RecordsetClone
    rs.FindFirst "SurahNo = 114" ' عدّل القيمة حسب ما تريد البحث عنه
    If Not rs.NoMatch Then
        .Bookmark = rs.Bookmark
    Else
        MsgBox "لم يتم العثور على السورة المطلوبة.", vbExclamation
    End If
End With
End Sub

طبعا التعديل على المثال الاول الذي اوردته انت

شكرا لك حبيبي

أخذت هذا الكود من مواقع الذكاء الاصطناعي وحاولت تطبيقة لكن لم يعطي المطلوب

**ابوخليل** · يونيو 4

18 دقائق مضت, Foksh said:

على العموم سأحاول الليلة ضبط الأمور على ما انت عليه ، ولكني سأضطر الى تغيير أسماء المكونات لأنني ضد البناء على أساس غير سليم .

الصحيح ان يكون جدول السور عبارة عن 114 سجلا فقط ( كل اسم سورة في سجل وحيد)

ونضيف الى جدول الآيات حقلا معرفا لرقم السورة

ثم نربط العلاقة بين الجدولين رأس لأطراف بمعرفة رقم السورة في الجدولين

سبق وان عملت على قاعدة مثل هذه وما زالت الأساسات عندي

للعلم يمكنك البحث بالايات وايضا الذهاب الى اول الجزء او او السورة او الى صفحة محددة

ibaradah · يونيو 4

8 دقائق مضت, kanory said:

استخدم هذه الشيفرى

Private Sub Command30_Click()
Dim rs As DAO.Recordset

With Forms("القرآن الكريم")
    Set rs = .RecordsetClone
    rs.FindFirst "SurahNo = 1" ' عدّل القيمة حسب ما تريد البحث عنه
    If Not rs.NoMatch Then
        .Bookmark = rs.Bookmark
    Else
        MsgBox "لم يتم العثور على السورة المطلوبة.", vbExclamation
    End If
End With
End Sub

Private Sub Command33_Click()
Dim rs As DAO.Recordset

With Forms("القرآن الكريم")
    Set rs = .RecordsetClone
    rs.FindFirst "SurahNo = " & Me![SurahNo] + 1
    If Not rs.NoMatch Then
        .Bookmark = rs.Bookmark
    Else
        MsgBox "لم يتم العثور على السورة السابقة.", vbExclamation
    End If
End With
End Sub

Private Sub Command34_Click()
Dim rs As DAO.Recordset

With Forms("القرآن الكريم")
    Set rs = .RecordsetClone
    rs.FindFirst "SurahNo = " & Me![SurahNo] - 1
    If Not rs.NoMatch Then
        .Bookmark = rs.Bookmark
    Else
        MsgBox "لم يتم العثور على السورة السابقة.", vbExclamation
    End If
End With
End Sub

Private Sub Command35_Click()
Dim rs As DAO.Recordset

With Forms("القرآن الكريم")
    Set rs = .RecordsetClone
    rs.FindFirst "SurahNo = 114" ' عدّل القيمة حسب ما تريد البحث عنه
    If Not rs.NoMatch Then
        .Bookmark = rs.Bookmark
    Else
        MsgBox "لم يتم العثور على السورة المطلوبة.", vbExclamation
    End If
End With
End Sub

طبعا التعديل على المثال الاول الذي اوردته انت

سيتم التجربة و تصميم الكود والمحاولة حسب الطريقة التي ذكرتها لي

ibaradah · يونيو 4

7 دقائق مضت, ابوخليل said:

الصحيح ان يكون جدول السور عبارة عن 114 سجلا فقط ( كل اسم سورة في سجل وحيد)

ونضيف الى جدول الآيات حقلا معرفا لرقم السورة

ثم نربط العلاقة بين الجدولين رأس لأطراف بمعرفة رقم السورة في الجدولين

سبق وان عملت على قاعدة مثل هذه وما زالت الأساسات عندي

للعلم يمكنك البحث بالايات وايضا الذهاب الى اول الجزؤ او او السورة او الى صفحة محددة

حبيبي تم عمل الطريقة حسب ما ذكرته وأيضا دون فائدة

image.png.89cdf5dcafa51efdf6b37a5015d88262.png image.png.aa74fc3cd36da31f7aa0371518d81f16.png

**ابوخليل** · يونيو 4

رب ارزقني وعجل :smile:

لماذا حذفت عمود عدد الآيات؟

ارفق تعديلك بارك الله فيك

كل ما تفكر به ممكن باذن الله .. ولكن الأهم ضبط الجداول

**Moosak** · يونيو 4

إطلالة سريعة على هذا الموضوع قد تكون مفيده بدرجة كبيرة قد لا تتصورها :

image.png.d559b24e3a07d65af4f04f084836348a.png جدول بآيات القرآن الكريم كاملا.zip

**ابوخليل** · يونيو 4

2 دقائق مضت, Moosak said:

إطلالة سريعة على هذا الموضوع قد تكون مفيده بدرجة كبيرة قد لا تتصورها :

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

ibaradah · يونيو 4

25 دقائق مضت, kanory said:

استخدم هذه الشيفرى

Private Sub Command30_Click()
Dim rs As DAO.Recordset

With Forms("القرآن الكريم")
    Set rs = .RecordsetClone
    rs.FindFirst "SurahNo = 1" ' عدّل القيمة حسب ما تريد البحث عنه
    If Not rs.NoMatch Then
        .Bookmark = rs.Bookmark
    Else
        MsgBox "لم يتم العثور على السورة المطلوبة.", vbExclamation
    End If
End With
End Sub

Private Sub Command33_Click()
Dim rs As DAO.Recordset

With Forms("القرآن الكريم")
    Set rs = .RecordsetClone
    rs.FindFirst "SurahNo = " & Me![SurahNo] + 1
    If Not rs.NoMatch Then
        .Bookmark = rs.Bookmark
    Else
        MsgBox "لم يتم العثور على السورة السابقة.", vbExclamation
    End If
End With
End Sub

Private Sub Command34_Click()
Dim rs As DAO.Recordset

With Forms("القرآن الكريم")
    Set rs = .RecordsetClone
    rs.FindFirst "SurahNo = " & Me![SurahNo] - 1
    If Not rs.NoMatch Then
        .Bookmark = rs.Bookmark
    Else
        MsgBox "لم يتم العثور على السورة السابقة.", vbExclamation
    End If
End With
End Sub

Private Sub Command35_Click()
Dim rs As DAO.Recordset

With Forms("القرآن الكريم")
    Set rs = .RecordsetClone
    rs.FindFirst "SurahNo = 114" ' عدّل القيمة حسب ما تريد البحث عنه
    If Not rs.NoMatch Then
        .Bookmark = rs.Bookmark
    Else
        MsgBox "لم يتم العثور على السورة المطلوبة.", vbExclamation
    End If
End With
End Sub

طبعا التعديل على المثال الاول الذي اوردته انت

حبيبي أخي konary من بعد إذنك

هل بالإمكان إذا ما فيه أدنى إزعاج أو احراج تقوم بتطبيق هذا الكود في القاعدة عندك وتعيد ارسال القاعدة لي

7 دقائق مضت, ابوخليل said:

رب ارزقني وعجل

لماذا حذفت عمود عدد الآيات؟

ارفق تعديلك بارك الله فيك

كل ما تفكر به ممكن باذن الله .. ولكن الأهم ضبط الجداول

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

ibaradah · يونيو 4

10 دقائق مضت, Moosak said:

إطلالة سريعة على هذا الموضوع قد تكون مفيده بدرجة كبيرة قد لا تتصورها :

جدول بآيات القرآن الكريم كاملا.zip 742.06 kB · 1 download

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

**ابوخليل** · يونيو 4

اخي الكريم الحل يسير جدا اذا ضبطت الجداول فلست بحاجة الى اكواد

فقط ستكون الاكواد مثل الموجودة حاليا في مثالك .. ماكرو او سطر بسيط

**kanory** · يونيو 4

8 دقائق مضت, ibaradah said:

حبيبي أخي konary من بعد إذنك

هل بالإمكان إذا ما فيه أدنى إزعاج أو احراج تقوم بتطبيق هذا الكود في القاعدة عندك وتعيد ارسال القاعدة لي

تفضل .......................

‏‏القرآن الكريم 2.accdb

**منتصر الانسي** · يونيو 4

تم تعديل الكود الخاص بك بسطور بسيطة فقط

جرب التعديل المرفق

‏‏القرآن الكريم 2.rar

ibaradah · يونيو 4

16 دقائق مضت, منتصر الانسي said:

تم تعديل الكود الخاص بك بسطور بسيطة فقط

جرب التعديل المرفق

‏‏القرآن الكريم 2.rar 297.2 kB · 1 download

أخي منتصر شكر الله قضلك وجهدك المبارك لكن

الكود لا يعمل

22 دقائق مضت, kanory said:

تفضل .......................

‏‏القرآن الكريم 2.accdb 2.42 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 3 downloads

للأسف دون جدوى

**kanory** · يونيو 4

5 دقائق مضت, ibaradah said:

للأسف دون جدوى

يا اخي الكود شغال لدي ولم ارفق الملف الا بعد التجربة

دون جدوى ... طيب وضح هل هناك رسالة ظهرت لديك .... وهل الملف بعد فتحه طلب عملية تمكين ..؟؟؟؟؟؟؟؟؟؟

**ابو جودي** · يونيو 4

السلام عليكم
انا مررت سريعا ولكن الى ان اعود مرة اخرى لانشغالى الشديد الان

انظر الى هذا المرفق
ان شاء الله تعالى قد تجد فيه افكار قد تعجبكم

الذكر الحكيم.zip

**ابوخليل** · يونيو 4

33 دقائق مضت, منتصر الانسي said:

تم تعديل الكود الخاص بك بسطور بسيطة فقط

جرب التعديل المرفق

شغال 100%

36 دقائق مضت, kanory said:

تفضل .......................

شغال 100%

و مع الخطأ في الأساسات .. العمل على جدولين كالعمل على جدول واحد

تسجيل الدخول

طلب تصميم أكواد جديدة لجدول القرآن الكريم

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

ibaradah

Foksh

ibaradah

ibaradah

Foksh

ibaradah

Foksh

ibaradah

kanory

ibaradah

ابوخليل

ibaradah

ibaradah

ابوخليل

Moosak

ابوخليل

ibaradah

ibaradah

ابوخليل

kanory

منتصر الانسي

ibaradah

kanory

ابو جودي

ابوخليل

Join the conversation

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

تصفح الموقع

تصفح جديد الموقع

Support

Important Information