اذهب الي المحتوي
أوفيسنا

(تمت الإجابة) تعديل صيغة التاريخ في الفورم


ibra

الردود الموصى بها

السلام عليكم ورحمة الله وبركاته

مبارك لكم عودتكم الحميدة

إخواني الأعزاء لقد أخذت هذا الملف من منتداكم الراقي واستفدت منه كثيرا في عملي

ولكن لي طلب وحيد وهو تحويل صيغة التاريخ في الفورم كما هي في الشيت

وشكرا لتعاونكم

بيانات.rar

تم تعديل بواسطه ibra
رابط هذا التعليق
شارك

اخي الفاضل

لا يمكن التعديل بسهولة

وعلى ما اذكر باني تحدثت مع الاستاذ خبور بهذا الخصوص وابلغني بصعوبة اضافة فورمات لمربعات النص وذلك لانها تضاف بعد التغيير في مربع البحث وليست من اصل الفورم ويمكنك مشاهدة ذلك لو فتحت محرر الاكواد وفي وضع التصميم للفورم ستجد بانها خالية من مربعات النص

والله اعلم

رابط هذا التعليق
شارك

اخي العيدروس :

والله جوابك كنت سأكتبه منذ قليل ولكن ترددت

انت فعلا انسان رائع ...متصالح مع نفسك

وفقك الله اخي او نصار

ابو الحارث

أخي ياسر الحافظ شكرا لك على المرور الكريم والإضافة الرائعة

رابط هذا التعليق
شارك

اخي الفاضل

لا يمكن التعديل بسهولة

وعلى ما اذكر باني تحدثت مع الاستاذ خبور بهذا الخصوص وابلغني بصعوبة اضافة فورمات لمربعات النص وذلك لانها تضاف بعد التغيير في مربع البحث وليست من اصل الفورم ويمكنك مشاهدة ذلك لو فتحت محرر الاكواد وفي وضع التصميم للفورم ستجد بانها خالية من مربعات النص

والله اعلم

بارك الله فيك أخي عبد الله

ولكن هل يمكن تعديل صيغة التاريخ على الاقل

بحيث تصبح يوم - شهر - سنة

ودمتم بحفظ الرحمن

رابط هذا التعليق
شارك

لو استطعنا التغيير لستطعنا عمل اي فورمات للتاريخ نريد

انا عن نفسي حاولت ولكن لم استطع فك شفرة الكود

والله الموفق

ابواحمد

رابط هذا التعليق
شارك

السلام عليكم

بعد اذن اخي الحبيب ابو احمد ومع احترامي لرأيه ورأي اخي خبور إن كان هذا رأيه ....

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

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


.ControlSource = "'" & Mysh_Name & "'!" & Range(.Name).Address

الى الجزئية التالية

	 MyTxt = Range(.Name).Value

	 If i = 3 Then MyTxt = Range(.Name).Text

واذا اردنا تحديد تنسيق اخر معين نستخدم الجزئية

	 MyTxt = Range(.Name).Value

	 If i = 3 Then MyTxt = Format(Range(.Name).Value, "d/mmmm/yyyy")

او غيرها من التنسيقات

بيانات.rar

رابط هذا التعليق
شارك

السلام عليكم

بعد اذن اخي الحبيب ابو احمد ومع احترامي لرأيه ورأي اخي خبور إن كان هذا رأيه ....

وعليكم السلام

استاذ عماد ما شاء الله عليك ومنكم نستفيد وكما قال تعال وفوق كل ذي علم عليم

سلمت يمينك

بعدين انت مسوي نيولوك في الاسم والصورة الرمزية عليك حركات يا باشا

ابواحمد

رابط هذا التعليق
شارك

بارك الله بك وبجهودك استاذ عماد وجزاك الله كل الخير

جهدك هذا جعلني أطمع في قضية أخرى إن شاء الله تكون سهلة وهي

أن يبقى مؤشر الكتابة باللغة العربية ولا يتحول إلى الانجليزية عند فتح الفورم

وبارك الله بكم جميعا وبجهودكم الطيبة

رابط هذا التعليق
شارك

بعد إذن الاستاذ عماد

ضع هذا الكود ضمن اكواد الفورم


Private Sub UserForm_Activate()

Change2Arabic

End Sub

وان شاء الله يكون هذا ما طلبت

ابواحمد

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information