ظهور أرقام بدل التاريخ

[أب مارية]

السلام عليكم 

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

وللتوضيح أنظر الصورة التالية

Projet.rar

[أب مارية]

للرفع

[ضاحي الغريب]

اخي الكريم //

الامر بسيط

اضف التنسيق التالي في حدث الـ ( Change  ) لــ ( ComboBox1 )

Private Sub ComboBox1_Change()
ComboBox1 = Format(ComboBox1, "yyyy/mm/dd")
End Sub

التطبيق بالمرفقات

Projet.rar

[قنديل الصياد]

[أب مارية]

بارك الله فيك أخي ضاحي لكن ظهر اشكال ثاني وهو أن العلميات لم تعد نظهر عند النقر على Find All

[ضاحي الغريب]

بارك الله فيك أخي ضاحي لكن ظهر اشكال ثاني وهو أن العلميات لم تعد نظهر عند النقر على Find All

اخي الكريم//

راجع المرفق بعد التعديل

Projet (تم الاسترداد).rar

[أب مارية]

أخي ضاحي هذه الرسالة التي تظهر عندما أضغط على Find All

[أب مارية]

وعند الدخول إلى محرر الـVisual Basic تظهر الرسالة التالية

[أب مارية]

هل يمكن بدل ادراج فورام ثاني أن نقوم بالنقر على سطر معين داخل الجدول في صفحة Vents ثم الضغط على زر O.Vents ثم Supprimer فيقوم بمسح كامل السطر وارجاع الكمية  الموجودة في خانة Qn إلى المخزون.