Pergunta : Using o instr a encontrar “&” então para substitui-lo com “e”

Os peritos I têm o seguinte código;  Eu estou tentando encontrar que eventualmente dos dados que os processos deste laço têm “&” se tão então eu quero o substituir com o texto” e " mas ele nunca encontrar “&”. exemplo do
The dos dados que eu estou procurarando sou LORRIE & o
What que de DARRYL eu preciso é LORRIE e laço do
The de DARRYL e trabalhos dos proces apenas nunca encontram & do

For c = 1 a rs7.Fields.count - 1
se rs7.RecordCount > 0 strCurrTxt de Then
= strCurrTxt do
do "" = rs7.Fields (c) 'não precisar o primeiro campo não usam b-1
se InStr (1, strCurrTxt, “&") > 0 msgbox strCurrTxt” instring do " de Then

= substitui (strCurrTxt, “&”,” e “, 1) a extremidade If
rs8.AddNew
rs8 do
! A exportação = o strCurrTxt
rs8.Update
strCurrTxt de rs8.Bookmark = de rs8.LastModified
Else
= “NENHUM TEXTO ENCONTRARAM " ruptura do msgbox do
a “e verific "

Thank de rs7.MoveNext
de If
/> 'você os peritos, mdlp class= do

Resposta : Using o instr a encontrar “&” então para substitui-lo com “e”

InStr ainda não o compra qualquer coisa.

Tentar isto, e relatá-lo para trás com o que está nas caixas de mensagem.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Para c = 1 a rs7.Fields.count - 1 '        
         Se rs7.RecordCount > 0 então
            strCurrTxt = ""
            strCurrTxt = rs7.Fields (c)  'não precisar o primeiro campo  não usa b-1
MsgBox “1: ” & strCurrTxt
            o strCurrTxt = substitui (strCurrTxt, “&”,” e “, 1)
MsgBox “2: ” & strCurrTxt
            'Se InStr (1, strCurrTxt, “&") > 0 então
              'msgbox “que instring”
              'o strCurrTxt = substitui (strCurrTxt, “&”,” e “, 1)
            'Terminar se
             rs8.AddNew
            rs8! Exportação = strCurrTxt
            rs8.Update
MsgBox “3: ” & rs8! Exportação
            rs8.Bookmark = rs8.LastModified
        Mais
            o strCurrTxt = “NENHUM TEXTO ENCONTROU”
            msgbox “ruptura e verificação”
        Terminar se
        'rs7.MoveNext
      C seguinte
Outras soluções  
 
programming4us programming4us