أبو هادي

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

تعديل على دالة الأخ أبي هاجر للتلاءم مع مطلب الأخ حارث : Public Function myTrim(sString As Variant) As Variant Dim iStart As Integer If IsNull(sString) Then myTrim = Null Else sString = Trim(sString) iStart = InStr(1, sString, " ") Do While iStart > 0 sString …

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

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

بعد إذن أبي هاجر : مما تقدم يمكننا أن نخلص إلى التالي : يمكننا أن نفحص الـ Null و "" و Spaces (المسافات) بهذه التركيبة : Trim(Nz([Field1]))="" وذلك لأنواع الحقول التالية : Text,Memo,Number,Date أما الـ YesNo فحسب علمي لا يمكن فحص قيمة الـ Null حيث القيمة الإفت…

إقرأ هذا الموضوع : http://www.arabteam2000.com/vb/showthread....&threadid=17080

الأخ حارث هناك أداتين للـ TreeView ويوجد اختلافات طفيفة بينهما . عموما هذا الحدث المطلوب للأداتين : Private Sub TreeView1_NodeClick(ByVal Node As Object) Me.Caption = "Index = " & Node.Index & " Text:" & Node.Text End Sub Private Sub TreeView1_NodeClick(ByVal …

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

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

شكرا أخي Benga على هذه المعلومة المفيدة . وهذا ملف مرفق من العنوان الذي زودنا به أخونا العزيز : pk250dos.zip

السلام عليكم الأخ SimEX™ البرنامج يحتاج إلى العناية بالـ validation لليوم والشهر .. وبارك الله فيكم على جهودكم . في ردود سابقة تطرق الأخ خالد إلى المراحل الثلاث التي مر بها تقويم أم القرى ، هل تملكون شرح أو تفاصيل تلك المراحل ؟ .. آمل تزويدنا بتلك المعلومات إن…

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

توني الآن عرفت معنى الطلة تقصد فيها بنت عم المطرة صح ؟ :) (f)

تعود بكل ما هو سار وطيب إن شاء الله تعالى .

بل يؤخذ بالمجموع كحصيلة الشهر .

شكرا أخي زكوان على مشاعرك الطيبة وآسف على التأخير الحقيقة نفس المشكلة عندي فلم يستطع الـ Word أن يفتح ملفك ، هل تستطيع كتابة الرسالة مباشرة ؟ ملاحظة : قد يكون المثال لأكسس 97 وعند تشغيله يطلب منك تحويله للإصدار الأحدث . إلا إذا كان قصدك الملف المضغوط .. آمل ال…

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

على بركة الله 1 - "القدرة والخبرة" : أرى أن الأخ الفاضل "أبو هاجر" من ناحية القدرة والخبرة هو الأقدر والأكثر خبرة مع تقديرى واحترامي لكل الخبرات الموجودة بالمنتدى . 2 - "الكيف" : أرشح الأخ أبا هاجر لمواضيعه المتميزة والجديدة .. فقد اتفق كثير من الأعضاء أن كل ا…

السلام عليكم ملف مرفق عبارة عن ملفي ضغط وفك الضغط أي كل ملف لوحده .. هما قديمان ولكن تم اختبارهما ويعملان بشكل ممتاز وبسهولة تامة .. آمل تقويمهما والبحث عن نسخ أجدد إن وجد . مع ملاحظة أنهما يتوافقان مع Winzip . تحياتي . pkziping.zip

قد يضيف شيئا http://www.arabteam2000.com/vb/showthread....&threadid=15609