عند عمل بحث فى TextBox داخل UserForm يعطى صيغة الشهر وتاريخ الرفع والتركيب بصيغة تنسيقة مختلفة مما تؤثر على النتائج ارجو الافادة

[moodyfy2]

عند عمل بحث برقم الحساب مثلا 5002751  فى TextBox16 داخل UserForm10  يعطى صيغة الشهر وتاريخ الرفع والتركيب بصيغة تنسيقة مختلفة مما تؤثر على النتائج  مع العلم ان تم التسجيل بصورة سليمة 

فى شاشة الادخال فى UserForm8   والتى تقوم بالترحيل الى شيت home1

الشهر  11/2023     يكتب بصورة    11/1/2023        والذى يتم الحفظ بواسطتة موجود فى TextBox4   

يتم احتساب الفرق بين تاريخ الرفع  22/11/2023   يكتب بصورة    11/22/2023   موجود فى TextBox18   

 وبين تاريخ التركيب                   20/05/2024     يكتب بصورة     5/20/2024        موجود فى TextBox19

--------------------------------------------------------------

قمت برفع البرنامج الحسابى بعد حذف جميع الشيتات واليوزر فورم حتى اتمكن من رفعة

اسم المستخدم 550

كلمة السر 123

‏‏‏‏برنامج المعطل ver 20 2024.xlsm

[محمد هشام.]

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

اظن انه يوجد طرق افضل لكتابة الاكواد للحصول على نتائج  صحيحة وأدق  على العموم حاول تجربة تغيير التنسيق بما يناسبك كما في المثال التالي 

TextBox4.Value = Format(ws.Cells(X, 11).Value, "mm/yyyy")
TextBox18.Value = Format(ws.Cells(X, 23).Value, "dd/mm/yyyy")
TextBox19.Value = Format(ws.Cells(X, 24).Value, "dd/mm/yyyy")

 

[mahmoud nasr alhasany]

بسم لله ماشاء الله احسنت ا/ محمد هشام

[moodyfy2]

شكرا جزيلا على الاهتمام والمتابعة جارى التجربة

[moodyfy2]

ا.محمد هشام. ارق تحياتى

اكتب فى الكود كدة داخل التكست بوكس

Private Sub TextBox4_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox4.Value = Format(ws.Cells(X, 11).Value, "mm/yyyy")
End Sub

ولا  فى حدث ايه

[محمد هشام.]

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

 

تم تعديل يوليو 28 بواسطه محمد هشام.

[moodyfy2]

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

[moodyfy2]

عتدى مشكلة تانية هى ب TextBox20 و TextBox35 و TextBox36     الخاصين بناتج طرح التاريخين الموجودين ب TextBox19 - TextBox18   

تم تعديل يوليو 28 بواسطه moodyfy2