رسالة تحذير حين ادخال تاريخ مطابق للتاريخ الحالي

السلام عليكم ...

تفضل يا أخي المثال .. عسى يكون المطلوب

db9.rar

أخي الكريم

بعد التحية

حاول العمل مع هذا الكود وإن شاء الله يكون فيه بغيتك

Private Sub Text1_LostFocus()

If Text1.Text = "2005" Then

MsgBox "The Date You Entered is a duplicated to the current year ! please try again "

Text1.Text = ""

Text1.SetFocus

End If

End Sub

اهلا اخوي inorganic

بس اعتقد ان كما موضع بالكود اني راح اضطر اني اغير التاريخ او الرقم 2005 كل سنة، صح؟

فإذا كان في مشكلة مثل ما ذكرت راح احاول اني احلها بحل بسيط، وهو وضع في الشاشة الرئيسية ليبل بخط عريض حتى يذكرني واجعل وضعه خفي واضع في الفورم الكود التالي:

if date = "01/01/2006" then
Label001.visibel = ture
end if

فهل سيعمل بطريقة سليمة؟

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