سؤال في تغذية حقول قواعد البيانات

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

يمكنك معالجة تغدية حقول من نوع التاريخي باكثر من طريقة واليك هذه الطريقة وهي ربط اداة Text النص باداة DataControl واليك المثال التالي يوضح طريقة استخدام اداة النص في ادخال حقول من نوع تاريخي فقط .

Private Sub Text2_LostFocus()

If Not IsDate(Text2.Text) Then

MsgBox "The Value is not Valid"

Text2.Text = " "

Text2.SetFocus

End If

End Sub