Question : Using l'instr à trouver « et » puis pour le remplacer par « et »

Les experts I ont le code suivant ;  J'essaye de trouver que le cas échéant des données les processus que de cette boucle a « et » si tellement alors je veux le remplacer par le texte » et " mais il ne jamais trouver « et ». exemple du
The des données que je recherche est LORRIE et le
What de DARRYL que j'ai besoin est LORRIE et boucle du
The de DARRYL et travaux de proces ne trouvent jamais juste et du

For c = 1 à rs7.Fields.count - 1
si rs7.RecordCount > 0 strCurrTxt de Then
= strCurrTxt du
de "" = rs7.Fields (c) 'ne pas avoir besoin de premier champ n'emploient pas b-1
s'InStr (1, strCurrTxt, « &") > 0 msgbox strCurrTxt » instring " de Then
du
= remplacent (strCurrTxt, « et », » et « , extrémité If
rs8.AddNew
rs8 de 1)
! L'exportation = le strCurrTxt
rs8.Update
strCurrTxt de rs8.Bookmark = de rs8.LastModified
Else
= « AUCUN TEXTE ONT TROUVÉ " coupure de msgbox du
la « et vérifient " le

Thank de rs7.MoveNext
d'If
/> 'le prochain vous les experts, mdlp class= de

Réponse : Using l'instr à trouver « et » puis pour le remplacer par « et »

InStr ne vous achète toujours pas quelque chose.

Essayer ceci, et faire rapport avec ce qui est dans les boîtes de message.

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 :

Pour c = 1 à rs7.Fields.count - 1 ' Si rs7.RecordCount > 0 puis strCurrTxt = "" strCurrTxt = rs7.Fields (c) 'ne pas avoir besoin de premier champ n'emploie pas b-1 MsgBox « 1 :  » et strCurrTxt le strCurrTxt = remplacent (strCurrTxt, « et », » et « , 1) MsgBox « 2 :  » et strCurrTxt 'S'InStr (1, strCurrTxt, « &") > 0 puis 'msgbox « instring » le 'strCurrTxt = remplacent (strCurrTxt, « et », » et « , 1) 'Finir si rs8.AddNew rs8 ! Exportation = strCurrTxt rs8.Update MsgBox « 3 :  » et rs8 ! Exportation rs8.Bookmark = rs8.LastModified Autrement le strCurrTxt = « AUCUN TEXTE A TROUVÉ » msgbox « coupure et contrôle » Finir si 'rs7.MoveNext Prochain c