الاخوه الكرام
السلام عليكم ورحمة وبركاته
هل يمكن ان اطلب من المستخدم إدخال تاريخ في Text بدون الاعتماد على MaskEdBox ؟؟
نامل من الله المساعدة العاجله والله يحفظكم ويرعاكم
اولا ليكن لدينا فورم 1 فيه تكست بوكس
كود :
Text1.Text = ""
Form2.Visible = True
form1.hide
نضع هذا الكود ضمن كوماند او ضمن
Private Sub Text1_Click()
End Sub
و اداة microsoft calendar contol
حيث نضعها في فورم جديد و ليكن فورم 2
و هذا هو الكود
كود :
Private Sub Form_Load()
Calendar1.Value = DateTime.Date
End Sub
Private Sub Calendar1_Click()
form1.text1.text=Calendar1.Value
form2.hide
form1.show
End Sub
السلام عليكم...
بالطبع يمكن ذلك، و لكن عليك التأكد من أن المستخدم قد أدخل تاريخاً صحيحاً (أي أدخل نصاً يمكن تحويله إلى تاريخ) و ذلك باستعمال الدالة IsDate:
كود :
If Not IsDate(Text10.Text) Then
MsgBox("الرجاء إدخال التاريخ بشكل صحيح")
Text10.SetFocus
Exit Sub
End If
نرجو الاستفادة و السلام.
(15-05-14, 03:40 AM)ناجي إبراهيم كتب : [ -> ]السلام عليكم...
بالطبع يمكن ذلك، و لكن عليك التأكد من أن المستخدم قد أدخل تاريخاً صحيحاً (أي أدخل نصاً يمكن تحويله إلى تاريخ) و ذلك باستعمال الدالة IsDate:
كود :
If Not IsDate(Text10.Text) Then
MsgBox("الرجاء إدخال التاريخ بشكل صحيح")
Text10.SetFocus
Exit Sub
End If
نرجو الاستفادة و السلام.
------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
مثال جميل لك مني الف شكر وتقدير