Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
I could probably solve this over the next few knuckleheaded days but seems better to ask the experts. Feedback welcomed.
Dim dbs As DAO.Database Dim rs1 As DAO.Recordset Dim rs2 As DAO.Recordset Dim iDataID As String Dim WordData As String Set dbs = CurrentDb Set rs1 = dbs.OpenRecordset("SELECT [Table1].[Dump] FROM Table1") Set rs2 = dbs.OpenRecordset("SELECT [Table2],[Word] FROM Table2") rs2.MoveFirst Do While Not rs2.EOF iDataID = rs2.Fields("Word").Value WordData = rs1.Fields("Dump").Value rs1.MoveFirst Do While Not rs1.EOF WordData = Replace(rs1.Fields("Dump"), iDataID, " ") rs1.MoveNext Loop rs1.MoveFirst rs2.MoveNext Loop rs1.Close rs2.Close Set rs1 = Nothing Set rs2 = Nothing Set dbs = Nothing
Join the community of 500,000 technology professionals and ask your questions.