Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim db As DAO.Database
- Set db = CurrentDb()
- db.Execute "Update TABLE1 set (select TABLE2.MappingColumn from TABLE2)=(select Normalized from TABLE2 where [TABLE1.Description] like '%TABLE2.word%' )"
- Dim db As DAO.Database
- Set db = CurrentDb
- Dim rsNormalized As DAO.Recordset
- Set rsNormalized = db.OpenRecordset("Table1")
- Dim rsWords As DAO.Recordset
- rsNormalized.Edit
- Do While Not rsNormalized.EOF
- Set rsWords = db.OpenRecordset("SELECT * FROM Table2 WHERE '" & rsNormalized!Description & "' LIKE'*' & word & '*'")
- Do While Not rsWords.EOF
- If rsNormalized.Fields(rsWords!MappingColumn).Value & "" <> "" Then
- rsNormalized.Fields(rsWords!MappingColumn).Value = rsNormalized.Fields(rsWords!MappingColumn).Value & ", "
- End If
- rsNormalized.Fields(rsWords!MappingColumn).Value = rsNormalized.Fields(rsWords!MappingColumn).Value & rsWords!Normalized
- rsNormalized.Update
- rsWords.MoveNext
- Loop
- rsNormalized.MoveNext
- Loop
Add Comment
Please, Sign In to add comment