برجاع تعديل الداله هذه لاحضار كل القيم

استخدم هذه الدالة لاحضار القيم ولكنها تعطينى اول قيمه لكل سجل

كيف انفذ لوب لاحضار القيم تلو الاخرى حتى اخر قيمة و اذا كان الجدول فارغ فى هذا اليوم تضع صفر مكان اليوم

Function HolDateType(EmpNumF As Integer, d1 As Date) As String
On Error Resume Next
If OutOfDate = True Then Exit Function
Dim RST As DAO.Recordset, Sql As String
Dim D2 As Date


D2 = Format(d1, "mm/dd/yyyy")

If (Weekday(d1) = 6) Then HolDateType = WeekEnd
Sql = "SELECT * FROM tblInput WHERE (((tblInput.InputDate)<=# " & d1 & " #)  AND ((tblInput.Id)=" & EmpNumF & "));"
Set RST = CurrentDb.OpenRecordset(Sql)

If RST.RecordCount > 0 Then
For i = 1 To 31 Step 1
If IsDate("d1" & i) Then
RST.FindFirst "inputdate=#" & ("d1" & i) & "#"
If Not RST.NoMatch Then

'HolDateType = RST!InputText
   HolDateType = RST!InputText



End If
End If

Next i
End If



End Function