حارث

وهذه طريقة أخرى من باب التنويع withzero.zip

وما سبب ذلك ؟ هل معنى هذا أن دالة قياس طول النصوص Len أسرع أحيانا من الحصول على قيمة متغير ؟

جزاك الله خير . ومثال المقارنة واضح جدا . وحقيقة لما كنت أكتب المثال حرت بين الصيغتين Trim(Replace(strOld, " ", " ")) و Replace(Trim(strOld), " ", " ") ثم اخترت أحدهما دون أي تجربة أو تفكير عميق ولم أكن أتصور أن الفرق بينهما سيكون كبيرا بهذا الشكل . مع أنه بمج…

جزاكم الله خير جميعا ، وجعل ذلك في موازين حسناتكم وتنبهت من ردك أخي أبو هادي أن كود أبو هاجر من الأساس كان يفي بالغرض وهذا مثال على الكودين replace22.zip

مشكلة موضوع الاستبدال في المسافات المتكررة هي أنه لا بد أحيانا من إجراء الاستبدال عددا من المرات للتأكد من أنه لم يبق مسافات تزيد على مسافة واحدة . مثلا : عند استبدال مسافتين بمسافة واحدة في نص ما : تتحول المسافتين إلى مسافة والثلاث مسافات والأربع إلى مسافتين …

التنسيق الشرطي موجود في التقرير اختر مربع النص المراد تنسيقه ، وانقر عليه بالزر الأيمن واختر تنسيق شرطي أو بعد تحديد مربع النص اذهب إلى تنسيق - تنسيق شرطي ملاحظة : لدي أكسس XP

وهذين كودين لمعالجة موضوع المسافات حسب ما استفدته من الموضوع أعلاه ، أرجو الملاحظة : Public Function OnlyOneSpace(ByVal TheStr As Variant) ' كود يزيل المسافات من أول الاسم وآخره ويزيل المسافات المتكررة في الوسط Dim TheLetter As String, PreviousLetter As String…

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

انظر القاعدة الجماعية للمحاسبة في قسم المشاريع الجماعية والدروس

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

مثال بطريقتين للتنويع

جزاكم الله خير جميعا والمطلوب هو الكود الأول الذي أورده الأستاذ أبو هادي ByVal Node As Object جعل الله ذلك في موازين حسناته

بعد إذن مشرفنا الحبيب محمد طاهر comctl1.zip

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

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

وفقك الله في جميع أمورك ، وجزاك عنا كل خير

شرح كيف توزع برامجك المصنوعة ب Access إلى أجهزة لا يوجد بها Microsoft Access، بالخطوا http://www.arabteam2000.com/vb/showthread....light=%CE%D6%D1

أبو هاجر ثم أبو هاجر ثم أبو هاجر

ربما تستفيد من الموضوعين التاليين http://www.arabteam2000.com/vb/showthread....&threadid=15033 وهو بعنوان : برنامج إنشاء ملفات المساعدة وكود تشغيل الملف http://www.arabteam2000.com/vb/showthread....=&threadid=3813 وهو بعنوان : انشاء ملفات مساعدة (Help Files) ل…

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