نوشته شده توسط
nabeel
سلام
خطای شماره یک که مربوط به Input mask شما میشه و ارتباطی با اکتیو ایکس نداره
خطای شماره 3 بررسی میشه ( البته علت اون عدم انطباق فرمت ورودی با فرمت مورد درخواسته )
ضمن اینکه نسخه شما خیلی قدیمیه , لطفاً اخرین نسخه رو دانلود کنید و پس از تست نتیجه رو اعلام بفرمایید
در صورت پاربرجا بودن مشکل , تقیصه رفع خواهد شد
موفق باشید
سلام
مشکل حل شد . به کد زیر در رویداد BeforeUpdate تکست باکس تاریخ ، توجه نکرده بودم :
If MyVar.DateValidation(Date_Shero) Then
Me.Date_Payan = MyVar.AddToDate(Me.Date_Shero, EzafeKardaneRooz, Modat_Kol, EzafeKardan)
Else
MsgBox "ÊÇÑíÎ æÇÑÏ ÔÏå ÕÍíÍ äãíÈÇÔÏ", vbExclamation, "ÎØÇ"
Cancel = True
End If