مصلح الحريصي

حاولت في إيجاد حل لكي يتم ترتيب الرقم المسلسل في جداول أكسيس بعد الحذف كما في جداول الوورد ولكن للأسف لم أجد سوى أنني أعبث حتى وصلت لكود يقوم بذلك ولكن بطرق ملتويه ولذلك وضعت هذا الكود هنا لربما احدكم يقوم بتعديله حتى يكون أسهل من ذلك0 كيف ذلك ؟ على نموذج وضعت…

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

عذرا اخي فلدي أكسيس 2002 والظاهر أن لديك أكسيس 97 أعتذر عن عدم التنويه إلى ذلك

اخي ابو حمود كلمت شكر لا تكفي أو توفيك حقك لكن لا نملك إلا الدعاء بأن الله يوفقك ويبلغك الفردوس الأعلى 0

اخي الكريم هي تعمل بشكل جيد وسبق أن عملت برنامج على الأكسيس وعلى ما أذكر طلب مني إذا كانت نسبة نجاح الطالب أقل من 50 % يصبح تقدير الطالب في حقل التقدير على النموذج "راسب " ويظهر باللون الأحمر 0 ويظهر زر أمر بجانب حقل التقدير عنوانه نقل بيانات هذا الطالب إلى جد…

اخي ابو حمود ساعتين كاملتين في المحاولات ليعمل الكود بالشكل الصحيح ولكن لا حول ولا قوة إلا بالله خرج الأمر عن طاقتي ولذلك وظعت قاعدة البيانات التي تحتوي على الكود على الرابط التالي : http://mypage.ayna.com/mrsalnet وهي باسم " Data1.zip" أود كرماً أن تطلع عليها…

أفتح قاعدة البيانات ومن قائمة أدوات أختر خيارات ثم أختر إعدادات أوليه تجد هناك خيار " استخدام التقويم الهجري " أنقر على ذلك المربع ليتم إختياره0 ويفضل أن تضع في تنسيق حقل التاريخ التنسيق التالي: yyyy/mm/dd ليكون تنسيق التاريخ بهذا الشكل 1/1/1422 بالتوفيق0

لا املك إلا الشكر والدعاء لك بالسعادة في الدارين

الله يصبرك على غلبنا يا بو حمود نسخت الكود الذي كتبته ووضعته بدل الكود الموجد في قاعدة البيانات ثم استبدلة السطر x = NeatSplit([الاسم الكامل]) بالسطر x = NeatSplit(sReplace([الاسم الكامل], "بن ", "")) إلا إنه يحدث خطأ في هذه الكلمة : NeatSplit هل أغير شيء في ا…

الأخ زكوان عذراً لم أفهم ماذا تقصد بسؤالك ألا توضح أكثر

الأخ/ ابو حمود الأخ/ مصراوي يعجبني إصراركما للوصول إلى النتائج الطيبة وهذا شيء مشرف بارك الله فيكما0 ما أوردتماه من شرح وأكواد عن هذا المضوع ليس بالشيء القليل وقد أعجبني الكود الأخير لأبو حمود (y) وكذلك نفس الشيء لمثال الأخ مصراوي (y) لدي ملاحظة بسيطة وفي نفس …

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

شكرا اخي مصطفى زادك الله علم ونورا

الإخوة الكرام السلام عليكم ورحمة الله وبركاته عندما ارغب في حذف ملف أنشأته أو حملته على الجهاز يرفض الملف الحذف وتظهر رسالة مضمونها " وصول مرفوض 000000 الخ " ولا يقبل الوندوس حذفه حتى لو حذفت محتوياته مع إنه ليس من الملفات التي تخص النظام فما هو السبب تكفون جه…

الأخ/الشبح اعذرني فربما أكون فهمت طلبك بطريقة غير التي تقصدها ولكن سوف أشرح لك حسب فهمي ويمكنك التوضيح إذا كان ردي غير المطلوب الطريقة: في حدث النموذج حدث " في الحالي " أكتب If txt1 > 10 Then txt1.BackColor = 255 txt1.ForeColor = 16711665 Else txt1.BackColor =…

الاخ ابو حمود اشكرك فعند عدم الرد على أي سؤال يساورني الشك بأن الأخوة لم يطعلوا عليه ولا اريد أن أكرره في المنتدى مرة أخرى هذا كان سبب رسالتي0 فشكراً

** من استبد برأيه هلك ** الاخوة الكرام كما رأيتم يوجد في أكسيس 9دوال وهي : 1 _دوال التاريخ والوقت0 2 _دوال التحويلات 0 3 _الدوال الماليه0 4 _الدوال الرياضية وحساب المثلثات0 5 _دوال سلاسل البيانات0 6 _دوال المجال التجميعية0 7 _دوال التحقق من أنواع البيانات 8 _د…

الاخ ابو حمود لم تشاركنا في هذا الموضوع وكثيراً من الأخوة ياترى ما السبب فمن المعروف عن اعضاء المنتدى الرد 0 اشكر الأخوان ashraf مصراوي زكوان فقد بذلوا الجهد بارك الله فيهم0

بسم الله الرحمن الرحيم الأخوة الكرام السلام عليكم ورحمة الله وبركاته يعلم الله بأنني مشغول جداً ولا أجد الوقت ولكن سوف أحاول المساهمة بقدر الإمكان وأي دالة قمت بشرحها وتوقفت قبل إكمالها الرجاء من لإخوة إكمالها عندما اتأخر في ذلك فقد يكون تأخري عدم وجود الوقت ا…

اخي ابو حمود0 نعم الكود الأول كان قاهر النماذج المنبثقه أما الكود الثاني فلم ينفع مع تلك النماذج0 وفقك الله وسدد خطاك 0