عرض التاريخ فى Textbox

[مصطفى احمد سلطان]

السلام عليكم 

الاتذة الكرام عندى مشكله فى عرض التاريخ فى تكست بوكس و بالاخص عند وجود تاريخ يوجد به رقم ١٢ 

مثلا تاريخ فى الشيت  ١٢/٣/٢٠٢١

يعنى فى شهر ٣ لكن عند جلب البيانات يظهر  ٣/١٢/٢٠٢١

مع انى وضعت الكود الاتى فى حدث change و لم تحل المشكلة ... ارجو حل المشكلة

Me.textbox1.text=format/(cdate(me.textbox1)
,("Yyyy,mm,dd")

 

 

[أ / محمد صالح]

يفضل وضع الكود عند الخروج من مربع النص

on exit 

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1 = Format(CDate(Me.TextBox1), "yyyy/mm/dd")
End Sub

 

[مصطفى احمد سلطان]

مشكور على اهتمامك أستاذى 

أ / محمد صالح

لكن للاسف نفس المشكله مازالت 

فى كل التواريخ تمام فيما عدا التواريخ التى بها رقم ١٢

يظهر اليوم ١٢ بدلا من الشهر مع انى ابحث ما بين تاريخين

١/١/٢٠٢١ و ٣٠/٥/٢٠٢١

فتظهر التواريخ كلها صحيحه الا يوم ١٢/١/٢٠٢١

 و ١٢/٢/٢٠٢١ و ١٢/٣/٢٠٢١ و ١٢/٤/٢٠٢١ و ١٢/٥/٢٠٢١

فتظهر الايام بدلا من الشهور

تم تعديل يوليو 4, 2021 بواسطه مصطفى احمد سلطان
أخطاء املائية

[أ / محمد صالح]

لا يوجد أي مشكلة عندي

يتم كتابة 4 / 12 / 2021 (بدون مسافات) وتظهر بصورة طبيعية في مربع النص بعد الضغط على tab أو enter

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

بالتوفيق

[عبدالفتاح في بي اكسيل]

بعد  اذن  استاذ  محمد 

اخي  مصطفى  هل  جربت  تغيير  اعدادات  التاريخ  من  الويندوز   قد  تكون  هي  السبب  

مع  هذا   مشكلة  غريبة  لماذا  مع  الرقم  12    يجب  ان  تكون   المشكلة  بتنسيق  التاريخ  بالكامل   عند  كتابة  اي  يوم 

عموما  هذه  محاولة 

Private Sub TextBox1_AfterUpdate()
    Dim sdate As Date
    sdate = DateValue(Val(Me.TextBox1.Value) & "/" & Month(Date))
    TextBox1.Value = Format(sdate, "yyyy/mm/dd")
End Sub

 

[أ / محمد صالح]

أعتقد إذا كانت المشكلة في تنسيقات الوقت والتاريخ في الويندوز كانت ستختلف في كل التواريخ 

والله اعلم 

[مصطفى احمد سلطان]

اولا اشكر لكم اهتمامك 

أستاذى الفاضل عبد الفتاح ما يحيرنى أن تنسيق اعدادات التاريخ مظبوطه و كل التواريخ تظهر بشكل سليم عند جلب البيانات من الشيت الى textbox فيما عدا اى تاريخ فيه يوم ١٢

و عند كتابة التاريخ داخل التيكست بوكس تظهر بشكل سليم لكن المشكله هي عند جلب التاريخ و ليس كتابته

المشكله انى صممت فورم به ترحيل و اضافه و تعديل و حذف و كذلك به تقارير بحسابات العملاء و الشركات و الأصناف 

و بعد الانتهاء وجدت هذه المشكله عند عرض كشف حساب به تاريخ يوم ١٢

اشكر لك اهتمامك و كذالك للاستاذ الكريم محمد صالح

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

[أ / محمد صالح]

شكرا لكلماتك الطيبة

في أول مشاركة

اقتباس

الاتذة الكرام عندى مشكله فى عرض التاريخ فى تكست بوكس و بالاخص عند وجود تاريخ يوجد به رقم ١٢

وفي آخر مشاركة

اقتباس

و عند كتابة التاريخ داخل التيكست بوكس تظهر بشكل سليم لكن المشكله هي عند جلب التاريخ و ليس كتابته

؟؟؟؟؟
إذا كنت تقصد جلب التاريخ من الشيت وترحيل التاريخ إلى الشيت فأهم شيء هو تحويل قيمة الخلية أو مربع النص إلى تاريخ بـ CDATE طبعا مع تطابق تنسيق التاريخ في الخلية ومربع النص

وإليك مثالا عن إدخال التاريخ في النموذج وترحيله وجلبه من الشيت

إن شاء الله يفيدك

date in form.xlsb

[مصطفى احمد سلطان]

مشكور  على مجهودك و اهتمامك 

استاذى  أ / محمد صالح 

تمام لقد تم حل المشكلة بفضل جهودكم 

زادك الله علما انت و باقى الاساتذه الكرام