I have the following codes in VBA. Can anyone tell me where goes wrong? I guess it's probably in the Mid function in the SQL statement.
With CurrentDb.OpenRecordset("SELECT tbl_A.* FROM tbl_A INNER JOIN tbl_B ON " _
& " ( Mid(tlb_A.aFieldThatContainsCaseID, 58, 5) = str(tbl_B.caseID) ) WHERE tbl_A.fld_1 IS NOT NULL")
While Not .EOF
existVal = Mid(.Fields("aFieldThatContainsCaseID"), 58, 5) & " " & existVal
Open in New Window