نوشته شده توسط
narpco
الان هم اتفاق خاصی نیوفتاده ......دارم با ماژولی که شما زحمت کشیدید جلو میرم منتها یک مشکلی داشت که خواهشم این بود که برطرف بشه و اون این بود که اگر فیلد ها خالی بودن یا صفر بودن به خطا میخورد که خواهش کردم اگر امکانش بود برطرف بشه
فیلدهای زمان میتوانند خالی باشند ولی فکر نمی کنم صفر باشه چون فرمت 00:00 اجازه ورود صفر رو نمیدهد
مقدار رکوردست رو در تابع NZ قرار بده!
بصورت زیر:
interval = interval + Nz(rs(RecName), 0)
ضمناً برای نمایش صحیح تکست باکس های زمان بصورت 00:00 دو خط کد زیر رو هم به آخر کدهای تابع اضافه کن
If Len(Split(GetTimeTotal, ":")(0)) < 2 Then GetTimeTotal = "0" & Split(GetTimeTotal, ":")(0) & ":" & Split(GetTimeTotal, ":")(1)
If Len(Split(GetTimeTotal, ":")(1)) < 2 Then GetTimeTotal = Split(GetTimeTotal, ":")(0) & ":0" & Split(GetTimeTotal, ":")(1)