I have function listed below in the code section.
Would you please help to change following line "Where [LoanID]=" & sVar & "")
This line was correct when I have LoanID with Type Number (Size Double) in the table.
Currently Data Type in Table changed from Number to Text. How can I adjust line because when I run function I have run time error "No current record". Once I changed Data Type back to Number everything is working. Thank you.
Function ConcatVar(sVar As Variant) As String
Dim rs As DAO.Recordset, s As String
Set rs = CurrentDb.OpenRecordset("select * From [Combined-Tax-Data] Where [LoanID]=" & sVar & "")
Do Until rs.EOF
s = s & rs("[Tax_Explanation]") & ";"
ConcatVar = Left(s, Len(s) - 1)