Guest User

Untitled

a guest
Apr 25th, 2018
57
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.96 KB | None | 0 0
  1. Dim db As DAO.Database
  2. Set db = CurrentDb()
  3. db.Execute "Update TABLE1 set (select TABLE2.MappingColumn from TABLE2)=(select Normalized from TABLE2 where [TABLE1.Description] like '%TABLE2.word%' )"
  4.  
  5. Dim db As DAO.Database
  6. Set db = CurrentDb
  7. Dim rsNormalized As DAO.Recordset
  8. Set rsNormalized = db.OpenRecordset("Table1")
  9. Dim rsWords As DAO.Recordset
  10. rsNormalized.Edit
  11. Do While Not rsNormalized.EOF
  12. Set rsWords = db.OpenRecordset("SELECT * FROM Table2 WHERE '" & rsNormalized!Description & "' LIKE'*' & word & '*'")
  13. Do While Not rsWords.EOF
  14. If rsNormalized.Fields(rsWords!MappingColumn).Value & "" <> "" Then
  15. rsNormalized.Fields(rsWords!MappingColumn).Value = rsNormalized.Fields(rsWords!MappingColumn).Value & ", "
  16. End If
  17. rsNormalized.Fields(rsWords!MappingColumn).Value = rsNormalized.Fields(rsWords!MappingColumn).Value & rsWords!Normalized
  18. rsNormalized.Update
  19. rsWords.MoveNext
  20. Loop
  21. rsNormalized.MoveNext
  22. Loop
Add Comment
Please, Sign In to add comment