أبو هادي

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

السلام عليكم تعديل بسيط على QryQraan وتكييف نموذج البحث مع الجداول الجديدة . تحياتي . quran_tables_97.zip

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

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

السلام عليكم أخي أبو عقيل والأخوة جميعا .. لقد عدلت في تركيبة الجداول واستحدثت أخرى جديدة . آمل إبداء الرأي بسرعة . أبو هادي . quran_tables_97.zip

السلام عليكم أخي أبو عقيل .. الوقت يمضي بانتظار ردكم إلا إذا كان عدم ردكم هو رد بحد ذاته وأنا لم أفهمه ‍‍!! . غدا الجمعة وفرصة لاغتنامه بعمل بعض الإضافات . تحياتي .

السلام عليكم دالة صغيرة "للتفقيط" إن صح التعبير للأجزاء والأحزاب ، قد تساعد في التقليل من المساحة للجداول . Function Num2Text(ByVal InNum As Byte, ByVal InItem As String) As String Dim A, B A = Array("أول", "ثاني", "ثالث", "رابع", "خامس", "سادس", _ "سابع", "ثا…

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

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

السلام عليكم تحديثات كثيرة بنموذج البحث . آمل أن يحوز على رضاكم . تحياتي . quran_97.zip

السلام عليكم أبارك لأبي عقيل وفيصل الحربي الإشراف وإلى الأمام دائما . تحياتي .

السلام عليكم نسخة من نموذج البحث منقحة منقحة منقحة ومنقحة . تحياتي . quran_97.zip

السلام عليكم الأخ الأستاذ محمد بدوي .. الحقيقة هو ليس ترشيحا من أخينا أشرف بل هو نتيجة ترشيح وتصويت أعضاء المنتدى . لذا نأمل منكم الموافقة على اعتمادهما كمشرفين جنبا إلى جنب أخينا أشرف . آمل الإطلاع على موضوع الترشيح : http://www.arabteam2000.com/vb/showthread…

السلام عليكم هذه دالة لمعرفة عدد تكرار الكلمة المطلوبة التي يحتويها النص سواء في آية واحدة أو سورة كاملة . Function GetFoundCount(ByVal SString, ByVal SChar) As Long Dim FoundCount As Long Dim Pos As Long Dim SearchString As String Dim SearchChar As String On …

السلام عليكم نسخة منقحة تحياتي . quran_97.zip

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

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

السلام عليكم أخي أبو عقيل .. هذا حل مؤقت على السريع وسوف أقوم بتنقيحه لاحقا . بعد البحث لن تظلل الكلمة في البداية ، فقط قم بالإنتقال بين السجلات وستظهر النتيجة . تحياتي . quran_97.zip

السلام عليكم تم التعديل على الإستعلام المرفق مع ردك الأخير ، آمل فحصه وإخباري بالنتيجة . SELECT mok_aty.ma_id, mok_aty.nah_id, mok_aty.mok_id, mok_aty.ho_id, Sum(IIf([tg_id]=1,Nz([mok_aty]!),0))+Sum(IIf([tg_id] Between 2 And 6,Nz([mok_aty]!),0))-Sum(IIf([tg_id…

السلام عليكم أخي أبو طالب .. لم ألحظ ردك الأخير ، عموما لقد عملت تعديل جزئي فقط آمل فحصه ، والتعديل تم على الأعمدة s,t,f,mall . كما تم إضافة حقل على جدول tg . سوف أنزل ملفك الأخير وأطلع أيضا . تحياتي . db97_2_.zip