*فورم* : مثال علي التفقيط بلاكسس + تقسيم الارقام الي خانتان

تم عمل تعديل مؤقت فى الدالة

أبو حمود 2 كي لا تتوقف عند ادخال 3 أرقام عشرية

و التعديل المؤقت لايقافها فقط

و تم تحديث الملف

فى الدالة أبو حمود 2
في البداية
Public Sub تحويل_الرقم_كتابة2()
On Error GoTo Myerror

و قبل النهاية مباشرة
Exit Sub
Myerror:
الرقم_كتابة2 = "--"
End Sub

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

أما دالة التفقيط المعدلة فتتجاهل آخر رقم فى الفلس ، و سنتدراك ذلك باذن الله

عموما سنصل الي ما تريدون قريبا باذن الله ، بمشاركة الاخوة

و اذا فقدت الامل فى تعديل دالة منهم الي ما تريد ، فسأبدأ كتابة دالة من البداية أسهل ، حيث أن فهم دوال الغير شيئ صعب شوية

و عندنا مثل بيقول : كل شيخ و له طريقة

الي الاخ yesno و الاخ اكسس اكس بي

ان لم أكن مخطئا ، فقد تم التعديل للدالتين

أعد التنزيل و أخبرني بالنتيجة

;) ;)

رجاء اعادة التنزيل

الاكسس

http://www14.brinkster.com/mtarafa/forms/Punct.zip

الاكسل

http://www14.brinkster.com/mtarafa/xls/Punct_ALl.zip

HTTP1.1 STATUS 403 Remote Access to this object forbidden This file cannot be directly accessed from a remote site, but must be linked through the Brinkster Member's site.

جربت و نزلت بدون مشكلة

جرب ثانية

نفس المشكله:(

هل أنت فى سوريا

حيث أعتقد أن بعض الخدمات محجوبة ؟

ما هو بريدك لأرسل لك الملف

مكتوب فى بياناتك أن

http://noafth.8m.net/

هي صفحتك الشخصية

و لكن..

اسمها "شبكة نوافذ "

هل هي صفحتك ؟

كل التقدير والاحترام لك يا اخ محمد على هذا المجهود الجبار

أشكرك أخي الكريم

و فى انتظار مشاركاتكم المفيدة لي و للأخوة

اخي / محمد طاهر

جزاك الله خير الجزاء ونفع بك الإسلام والمسلمين

اشكرك جزيل الشكر على صنيعك .

حفظك الله من كل شر وإلى الأمام

السلام عليكم..

جزاك الله خيرأ ... يا اخي الصراحة انك خبير ماشاء الله..

لكن يا اخي لما حولت الكود الى اكسس 97 عقدني... صار لي من ذاك اليوم وانا احاول لكن اليوم خلاص؟؟؟ اتصل فيني صاحب البرنامج ولازم اسلمه البرنامج بكرا او بعده..

ارجوك يا اخي ... تحولي التفقيط بالعملة الكويتية (ثلاث خانات ) الى اكسس 97... وهي دالة ابو هاني...

الله يخليك ويفرج عنك ويفتحها في وجهك..

لانه الصراحة انا سكرت في وجهي هذه الدالة...

اكرهها نفس ما اكره شارون الشيطان؟؟؟!!؟!؟!؟!؟!؟

انا بانتظارك على احر من الجمر

:mad: :mad: :'(

الأخ العزيز yes no

ابحث عن هذه الجملة في الكود :

GetNo = Round(TheNo, 3)

امسحها أو عطلها عن العمل وسيعمل الكود معك بشكل صحيح .

اعصابك علينا يا YseNo

لازم يكون عندك شوية صبر على البرمجة !!!

السلام عليكم..

لا يصدق ... هل تصدقون؟؟!!

الدالة صارت 100% بفضل تعاونكم ؟؟؟

على الاكسس 97 واكسس 2000

يا ريت كل العرب هيك؟؟

شكراً لكم يا شباب

وجزاكم الله خير ... انقذتوني؟؟!!

شكراً لكم جميعاً بدون اثتثناء..

;) ;) :)

جزاك الله الف خير اخي محمد على هذه الدوال الرائعه

...حيث قمت بتجربتها بنقل الأكواد الى برنامجي وعملت بشكل طيب والحمد لله:D

وثوابك عند الله

اخوك في الله

:D :D :D

أضاف أحد الأخوة سؤال عن الاستخدام فى التقرير

و الرد كان كالتالي

أما عن الحفظ فى التقرير

فلا داعي له

فقط خزن الرقم و عند الطباعة تستدعي الدالة لتضع التفقيط فى مربع نص

=WriteNo([TEXT27];0)

حيث TEXT27 هو اسم مربع النص الذي به الرقم المراد تنفقيطه

رابط آخر

punct.zip

الأخ العزيز محمد طاهر

الروابط والمرفقات في هذا الموضوع لا تعمل

برجاء تحديثها لأني محتاج الى دوال التفقيط في برنامجي

بارك الله بك وبعلمك