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.
Function SetName(nName As String) dim rs as recordset Set curDB = currendb() strSQL = "Select Name from TT_GeneralInfo" Set rs = curDB.OpenRecordset(strSQL) rs.MoveFirst Do Until rs.EOF nName = rs.Fields("Name") if instr(nname), "("))= true then rs.Edit rs.fields("Name")= ?????? rs.Update rs.MoveNext Loop End Function
Join the community of 500,000 technology professionals and ask your questions.