بالنسبة كتاب بالظبط كنت اكتب لك مثل ما كتب لك أبو خليل عليك اولا انشاء جدول مرتب يحتوي على رقم الكتاب,مؤلف كتاب وغيره من الحقول بشرط ان لا يتكرر الصف.
و بالنسبة الطلاب عملت لك تصفية بدلا من نموذج فرعي إنشاء الله هذا هو المطلوب.
db.zip
أخي ابو خليل!
اولا السلام عليكم ورحمت الله وبركاته
ثانيا ساشرح لك اسطر الكود بالقدر مستطاع حيث اخبرناكم في السابق ما تعاني منه
إنشاء الله سنوصل الى فهمك
سطر الأول:
تحديد دورات لـ ( i ) بمقدار عدد الأحرف الموجودة في مربع نص "txtr"
سطر الثاني:
dgt هو أسم المتغير
نفترض نريد ارجاع كود الحرف "س" مثلا فنكتب Ascw ("س") ونحصل على النتيجة 1587
هنا بدلا من كتابة حرف "س" بعد دالة Ascw ، نستخدم دالة Mid من اجل حصول على أحرف الموجودة في مربع نص txtr هنا قد حصلنا على الحرف الاول من مربع نص txtr بموجب دالة mid و عرفنا كوده بموجب دالة Ascw قد تم تعين قيمة لمتغير Dgt
السطر الثالث:
تزويد مربع نص txts بقيمته بالاضافة سلسلة الأحرف و الرموز الحاصرة بين علامات اقتباس.
علامة اقتباس مزدوجة اربع مرات لحصول علامة اقتباس واحدة في النتيجة و قيمة متغير Dgt ومرة اخرى علامات اقتباس و أحرف و الرموز المحاصرة بين علامات اقتباس.
هنا قد انتهت الدورة الاول لمتغير ( i ) وحصلنا على سطر التالي
Chrw ("1587")
السطرالرابع:
دورة تالية لمتغير ( i )
السطر الخامس:
السطر الخامس من اجل حذف آخر حرفين بعد استكمال كل دورات ( i ) لانه لايوجد احرف التالية بعده وهما مسافة و رمز"&"
كما نحن بالحاجة كتابة رسائل في vba و أحيانا نواجه مشاكل مثلا عدم قبول البرنامج أحرف بالغة العربية و نضطر لكتابة أكواد أحرف من اجل سهولة كتابة أكواد أرفقت لكم هذا البرنامج
Tocode.zip
سلام
مضى ايام كثيرة على هذالمشاركة و انا ما شفت الا اليوم
المهم: لو لايزال المشكلة قائمه بإمكاننا مساعدتكم ولو قليل او تحويل القائدة الى صيغة mdb
يرجي إفادتنا حتى لا نتعب بلا فائدة لأن تصميم نماذج يطلب وقت .
اولا اذكرك و الباقي اخوان في المنتدى بانني لا اجيد كتابة لغة العربية بهذا سبب ربما يحصل بعض الأخطاء في كتابة اسماء حقول و التسميات والرسائل
بإمكانكم اصلاحها بالنفسكم واذا واجهكم اية المشكله ارسل لي الصح و الخطاء لتبديل هذا با لهذا انا بالخدمتكم إنشاء الله.
و سارفق لك التعديل الذي طلبته لو حصلت فيه اي نقص انا بالخدمتكم على قدر مستطاع.
Student_2003_4.zip
الأخ safwqtscc سارفع الملف من جديد بالسبب بعض تعديلات ليتناسب مع اكسس 2003
حيث لايوجد ميزة عرض ورقة بيانات في اكسس 2003 و في هذه الحالة لايمكك مشاهدة تفاصيل غياب كاملا
و بعض تعديلات اخرى لتحكم على اخطاء ماكرو
Student_2003_3.zip
ليش لا؟
تفضل زودت فيه امكانية فتح تفاصيل مباشرة بإستخدام زر"البحث"
او تصفية فورم بإستخدام زر "تصفية" بعد ادخال الكود في مربع "المعرف" الجديدة
و انت حر في الاثنين
ملاحظة!
الكود هو رقم المعرف
Student_2003_2.zip