کمک در مورد query گرفتن

[mr.v3r0n]

سلام
دوستان
من یه پروژه دارم
که تو یکی از قسمت هاش گیر کردم
من میخوام مقدار های یک فیلد رو جمع کنم هر وقت به 10000 تا رسید ، تاریخی که مقدار به 10000 تا رسیده رو خروجی بده.

ممنون میشم اگه کمک کنید.

[Abbas Amiri]

تابع زیر را دریک ماژول کپی کنید ونام جدول وفیلدها را مطابق نیازخود تغییر دهید مانند مثال در هرکجا که خواستید آنرا صدا بزنید


Function DateOfSumValue(CompValue As Long)
Dim rs As Recordset, SumVal As Long
Set rs = CurrentDb.OpenRecordset("MyTable")
While Not rs.EOF
SumVal = SumVal + rs("FieldVal")
If SumVal = CompValue Then
DateOfSumValue = rs("FieldDate")
Exit Function
End If
rs.MoveNext
Wend
Set rs = Nothing
End Function

مثال


varDate=DateOfSumValue(10000)