-
1
- #1
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
For Index = 0 To m_objOpenSubs.cn.Errors.Count - 1
sql = m_objOpenSubs.cn.Errors(Index).Description
'delete all "[info]" blocks in each string
Do
position1 = InStr(sql, "[")
position2 = InStr(sql, "]")
If position1 > 0 And position2 > 0 And position1 < position2 Then
sql = Mid(sql, position2 + 1, Len(sql) - position2)
End If
Loop Until position1 = 0 Or position2 = 0 Or (position1 >= position2)
For Index = 0 To m_objOpenSubs.cn.Errors.Count - 1
sql = m_objOpenSubs.cn.Errors(Index).Description
'delete all "[info]" blocks in each string
Do
position1 = InStr(sql, "[")
position2 = InStr(sql, "]")
If position1 > 0 And position2 > 0 And position1 < position2 Then
sql = Mid(sql, position2 + 1, Len(sql) - position2)
End If
Loop Until position1 = 0 Or position2 = 0 Or (position1 >= position2)