[حل شده] تکست باکس

[kazem1359]

سلام دو تا تکست باکس در یوزر فرم دارم که تاریخ واردش میشه و یکی از تاریخ و دیگری تاتاریخ را جستجو می کنه حالا می خوام کاری کنم که اگر در تکست باکس تاتاریخ ، تاریخی کوچکتر از تکست باکس از تاریخ وارد شد پیام خطای تاریخ اشتباه است را بده ممنون

[ahmad.khanifar]

با سلام اگر از افیس 2018 استفاده میکنید راحت میتونید این شرط را لحاظ کنید اما اگر از نسخه های پایین تر استفاده میکنید باید برنامه های فارسی ساز را روی افیس نصب کنید بعد با توابع مربوطه حلش کنید و یا خودتون با کدنویسی اوکی کنید

[kazem1359]

سلام ۲۰۱۶ دارم اگر لطف کنید کدنویسی کنید ممنون میشم

[majid_mx4]

با سلام

از دستورات زیر در یوزرفرم خود استفاده نمایید .

توضیح : لطفا به نام تکست باکس ها و باتون توجه نمایید و در صورت لازم آن را تغییر دهید.

Private Sub CommandButton1_Click()
Sdate = Application.WorksheetFunction.Substitute(TextBox1.Text, "/", "") * 1
EndDate = Application.WorksheetFunction.Substitute(TextBox2.Text, "/", "") * 1
If Sdate > EndDate Then
MsgBox "تاریخ شروع نمی تواند بزرگتر از تاریخ پایان باشد"
Exit Sub
End If
End Sub

پایدار باشید میر