hicham2610 قام بنشر مايو 12, 2023 مشاركة قام بنشر مايو 12, 2023 السلام عليكم من فضلكم كيف أعدل على الكود التالي بحيث يعطي رسالة الخطأ في حالة مخالفة الصيغة:"00/00/0000" Private Sub UserForm_Initialize() TextBox5.Value = "00/00/0000" TextBox7.Value = "00/00/0000" TextBox18.Value = "00/00/0000" TextBox19.Value = "00/00/0000" TextBox13.Value = "00/00/0000" TextBox14.Value = "00/00/0000" End Sub لأ ن الكود السابق يسمح بمرور تواريخ بصيغ أخرى وشكرا جزيلا رابط هذا التعليق شارك More sharing options...
أفضل إجابة كمال على طارق قام بنشر مايو 12, 2023 أفضل إجابة مشاركة قام بنشر مايو 12, 2023 وعليكم السلام - يمكنك بإستخدام هذا الكود وتكراره لكل تكست بوكس على حده .. وطبعاً تم الرد بالكود وليس بملف لأنك لم تقم برفع ملف توضيحى من البداية لطلبك !!! Private Sub TextBox5_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) With TextBox5 If IsDate(.Text) Then .Text = Format(DateValue(.Text), "dd/mm/yyyy") Else MsgBox "Not a date" Cancel = True End If End With End Sub 1 1 رابط هذا التعليق شارك More sharing options...
hicham2610 قام بنشر مايو 13, 2023 الكاتب مشاركة قام بنشر مايو 13, 2023 السلام عليكم كمال على طارق جزاك الله خيرا وأحسن إليك. 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.