السلام عليكم ورحمة الله وبركاته
عيدكم مبارك .. اعاده الله علينا وعليكم والامة الاسلامية اعواما عديده في رضا الله وطاعته
سؤالي كيف يمكن ازالة علامة التنصيص فقط حول الحرف "هـ" التاريخ الهجري في المثال المرفق
سؤالي كيف يمكن ازالة علامة التنصيص حول الحرف "هـ" التاريخ الهري
(اللَّهُمَّ أَنْتَ رَبِّي لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ أَبوءُ لَكَ بِنِعْمتِكَ علَيَ وأَبُوءُ بذَنْبي فَاغْفِرْ لي فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ)
اذا كانت المشاركة مفيدة لك فلا تبخل علينا بالتقييم
اشكرك اخي محمود لكن ارغب في بقاء الحرف هـ بدون علامة التنصيص
شكرا لك
تم تعديل هذه المشاركة بواسطة mmmb في 9 أغسطس 2013 في 03:18
سلام
اسهل طريقة هي ان تضيف سطر (كما هو موضح باللون الاحمر) في الحدث بعد التحديث لخانة التاريخ فيصبح الحدث:
Private Sub txt8_AfterUpdate()
ActiveControl = UmFormat(ActiveControl.Text, ActiveControl.Format)
ActiveControl = Replace(ActiveControl, Chr(34), "")
End Sub
انا لا عرف ماهي الخطوة التالية ، وما تأثير هذا التغيير على بقية البرنامج :)
جعفر
وعليكم السلام ورحمة الله وبركاته اخي جعفر
كل عام وانت بالف خير
هذا هو المطلوب فعلا
لكن فضلا لا امرا ارغب في ان توضح لي ماذا يعني هذا السطر
ActiveControl = Replace(ActiveControl, Chr(34), "")
وماذا يعني الرقم 34
لا عدمناك
وشكرا اخي الكريم
حياك الله :)
اشارة التنصيب " رقمها الحرفي هو 34،
فالكود معناه :
الحقل الذي نحن فيه = استبدل " بﻻشئ
سهله :)
جعفر
اشكرك كثيرا