كل الانشطه

أيضا للأسف لا يعمل

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

السلام عليكم انا مررت سريعا ولكن الى ان اعود مرة اخرى لانشغالى الشديد الان انظر الى هذا المرفق ان شاء الله تعالى قد تجد فيه افكار قد تعجبكم الذكر الحكيم.zip

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

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

تم تعديل الكود الخاص بك بسطور بسيطة فقط جرب التعديل المرفق ‏‏القرآن الكريم 2.rar

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

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

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

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

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

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

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

رب ارزقني وعجل لماذا حذفت عمود عدد الآيات؟ ارفق تعديلك بارك الله فيك كل ما تفكر به ممكن باذن الله .. ولكن الأهم ضبط الجداول

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

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

الصحيح ان يكون جدول السور عبارة عن 114 سجلا فقط ( كل اسم سورة في سجل وحيد) ونضيف الى جدول الآيات حقلا معرفا لرقم السورة ثم نربط العلاقة بين الجدولين رأس لأطراف بمعرفة رقم السورة في الجدولين سبق وان عملت على قاعدة مثل هذه وما زالت الأساسات عندي للعلم يمكنك البحث بالايات وايضا الذهاب الى اول الجزء او او السورة او الى صفحة محددة

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

استخدم هذه الشيفرى 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 طبعا التعديل على المثال الاول الذي اوردته انت

أنت اللي حاط الوقت .. تصرف !! 😂😅

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

كيف يتم زيادة حجم قاعدة البيانات !!!!!! على العموم سأحاول الليلة ضبط الأمور على ما انت عليه ، ولكني سأضطر الى تغيير أسماء المكونات لأنني ضد البناء على أساس غير سليم . هل انت موافق ؟؟ طبعاً ما لم تجد حلاً أسرع من أحد الأخوة والأساتذة والمعلمين الأفاضل .

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

الشكر لله وحده من قبل ومن بعد على ما علمنا العفو يا مهندسنا الغالي ، ما هي إلا إبداعاتكم وتوجيهاتكم وتنسيقاتكم وأفكاركم ولا انت خايف يطلع حد خسران ويحكي ان اللعبة خسرته ويجي عندك يقولك مصعبها علينا 😂 جزاكم الله خيراً على ابداعاتكم ، وفعلاً لعبة مسلية وتساعد على التركيز ، ولكن 😤 !!!!! أحياناً يا أخي ما ألحق الوقت وأخسر 😭

ايضا من الافكار اذا رغبنا في عدم تغيير طريقة الاخ حسين وحيث يشير الى عدم الرغبة في استخدام الماوس والكتابة مباشرة هنا يمكن برمجة احد مفاتيح الكيبورد لنقل الركيز للنموذج If KeyCode = vbKeyF4 Then Forms!list.SetFocus End If مع ان الحل المقدم منكم افضل تحياتي