جستجو و تاریخ

[raika17metal]

سلام دوستان عزیز من دارم یه برنامه حسابداری می نویسم با استفاده از ADODC و بانک Access.
حالا به دو تا مشکل کوچیک برخورد کردم یکی گرفتن تاریخ که نمی دونم از کدام کنترل استفاده کنم بطوری که حتما تاریخ مجاز دریافت بشه و دومی اینکه جستجو رو چطوری طراحی کنم اگه لطف کنید یه سورس ساده در اختیارم قرار بدید یا راهنمایی کنید ممنون میشم

[hrj1981]

شما مي تونيد براي كنترل تاريخ از DLL نوشته شده توسط مدير انجمن استفاده كنيد(رجوع شود به اعلان و ابزار اكتيوايكس)
براي جستجو هم مي توانيد يك سرچ در تالار بزنيد چند نمونه مفيد حتما پيدامي كنيد.(البته مشخص كنيد كه چه سرچي را مد نظر داريد.)

[sohrab o]

میتونی از کنترل Mask Edit استفاده کنی.
فقط باید برای چک کردن تاریخ مجاز باید تابع بنویسی

[sohrab o]

Function DateCheck(StrDate As String) As Boolean

DateCheck = True

If InStr(StrDate, "_") <> 0 Or Len(StrDate) <> 10 Then
MsgBoxFa "áØÝÇ ÊÇÑíÎ ÑÇ ˜Çãá æ ÈØæÑ ÕÍíÍ æÇÑÏ äãÇííÏ", vbCritical + vbMsgBoxRight, "ÇÎØÇÑ"
DateCheck = False
Exit Function
End If

If Right(StrDate, 2) > 31 Or Right(StrDate, 2) < 1 Then
MsgBoxFa "áØÝÇ ÊÇÑíÎ ÑÇ ÕÍíÍ æÇÑÏ äãÇííÏ", vbCritical + vbMsgBoxRight, "ÇÎØÇÑ"
DateCheck = False
Exit Function
End If

If Mid(StrDate, 6, 2) > 12 Or Mid(StrDate, 6, 2) < 1 Then
MsgBoxFa "áØÝÇ ÊÇÑíÎ ÑÇ ÕÍíÍ æÇÑÏ äãÇííÏ", vbCritical + vbMsgBoxRight, "ÇÎØÇÑ"
DateCheck = False
Exit Function
End If

Exit Function
Errlog:
Log "Module1", "DateCheck", Err.Number, Err.Description
End Function


اون خطوطی که از حروف نا خوانا استفاده شده ، متن خطاست.
شما باید بعد از ورود تاریخ ، اطلاعات را توسط تابع بلا چک کنید که معتبر است یا خیر؟!!!!!!