خب اون کدی که استفاده میکنین (تابع GetTimeRoozanehTotal) ، اصلا آرگومان (پارامتر) نمیگیره که شما بخواین براش بفرستین.
شرط رو ببرم کحا من اصلا شرطی ندارم
شرط شما همین هست که میخواین بین یک بازه براتون حساب کنه و نه کل جدول!
البته این کدی که استفاده کردین بی اشکال نیست ولی اگر برای شما کافی و جوابگو هست به شکل زیر عمل کنین:
1- کد زیر رو:
Set rs = db.OpenRecordset("TimeRoozaneh")
به شکل زیر تغییر بدین:
Set rs = db.OpenRecordset("SELECT Time_Field_Name FROM Table_Name WHERE Criteria")
که Table_Name اسم جدول شما و Time_Field_Name اسم فیلد زمان مورد نظر شما و Criteria هم شرطی هست که دارین.
2- کد زیر رو
interval = interval + rs![Roozaneh]
به صورت زیر تغییر بدین:
interval = interval + rs(0)