Cuestión : Usar el instr a encontrar “y” entonces para substituirlo por “y”

Los expertos I tienen el código siguiente;  Estoy intentando encontrar que eventualmente de los datos que los procesos de este lazo tienen “y” si tan entonces quiero substituirlo por el texto” y " pero él nunca encontrar “y”. ¡ejemplo del
The de los datos que estoy buscando soy LORRIE y el
What de DARRYL que necesito es LORRIE y lazo del
The de DARRYL y los trabajos de los proces apenas nunca encuentran y del

For c = 1 a rs7.Fields.count - 1
si rs7.RecordCount > 0 strCurrTxt de Then
= strCurrTxt del
del "" = rs7.Fields (c) 'no necesitar el primer campo no utilizan b-1
si InStr (1, strCurrTxt, “&") > 0 msgbox strCurrTxt” instring " de Then
del
= substituye (strCurrTxt, “y”,” y “, extremo If
rs8.AddNew
rs8 de 1)
! La exportación = el strCurrTxt
rs8.Update
strCurrTxt de rs8.Bookmark = de rs8.LastModified
Else
= “NINGÚN TEXTO ENCONTRARON " rotura del msgbox del
la “y comprueban "

Thank de rs7.MoveNext
de If
/> 'usted los expertos, mdlp class= del

Respuesta : Usar el instr a encontrar “y” entonces para substituirlo por “y”

InStr todavía no le compra cualquier cosa.

Intentar esto, e informar con cuál está en las cajas de mensaje.
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 '        
         Si rs7.RecordCount > 0 entonces
            strCurrTxt = ""
            strCurrTxt = rs7.Fields (c)  'no necesitar el primer campo  no utiliza b-1
MsgBox “1: ” y strCurrTxt
            el strCurrTxt = substituye (strCurrTxt, “y”,” y “, 1)
MsgBox “2: ” y strCurrTxt
            'Si InStr (1, strCurrTxt, “&") > 0 entonces
              'msgbox “instring”
              el 'strCurrTxt = substituye (strCurrTxt, “y”,” y “, 1)
            'Terminar si
             rs8.AddNew
            ¡rs8! Exportación = strCurrTxt
            rs8.Update
MsgBox “3: ¡” y rs8! Exportación
            rs8.Bookmark = rs8.LastModified
        
            el strCurrTxt = “NINGÚN TEXTO ENCONTRÓ”
            msgbox “rotura y cheque”
        Terminar si
        'rs7.MoveNext
      C siguiente
Otras soluciones  
 
programming4us programming4us