لقد تم التعديل على الكود
استاذ جعفر عيدك سعيد وكل عام وانت وجميع الاهل بالف خير يارب
للاستفادة ...
Option Compare Database
Dim rst As DAO.Recordset
Dim MonthN1 As String
Function Get_Dates(id)
mySQL = "Select * From tbl_Loans"
mySQL = mySQL & " Where [EmployeeID]=" & id
mySQL = mySQL & " And Year([Payment_Month])= " & [Forms]![FrmOtherDiscountReport]![txtYear]
mySQL = mySQL & " Order by Payment_Month"
Set rst = CurrentDb.OpenRecordset(mySQL)
rst.MoveLast: rst.MoveFirst
rc = rst.RecordCount
MonthN1 = ""
Remk = ""
For I = 1 To rc
Remk = Left$(rst!Remarks, 22)
MonthN1 = MonthN1 & Month(Format(rst!Payment_Month, "m/yyyy"))
rst.MoveNext
If I = rc Then Exit For
MonthN1 = MonthN1 & " و"
Next I
Get_Dates = Remk & " شهر " & MonthN1 & " / " & [Forms]![FrmOtherDiscountReport]![txtYear]
End Function