We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Set rs1 = db.OpenRecordset("SELECT DocLink FROM Documents") Set rs2 = db.OpenRecordset("SELECT DocDesc FROM Documents") Dim FinalClean As String rs1.MoveFirst rs2.MoveFirst Do Until rs1.EOF Do Until rs2.EOF rs2.Edit FinalClean = rs2![DocDesc] FinalClean = Replace(FinalClean, rs1![DocLink], Space(0), , vbTextCompare) FinalClean = Replace(FinalClean, Chr(34), Space(0)) FinalClean = Replace(FinalClean, ")", Space(1)) FinalClean = Replace(FinalClean, "(", Space(1)) FinalClean = Replace(FinalClean, Space(2), Space(1)) rs2![DocDesc] = FinalClean rs2.Update rs2.MoveNext Loop rs1.MoveNext Loop
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Excel: Calculating during business hour time versus after business hour time||24||20|
|Embed XL WS and Objects into a PPTX||8||33|
|WIthin VBA summing record count in 3 tabs||7||37|
|Access date picker/Monday dates only||3||5|
Join the community of 500,000 technology professionals and ask your questions.