Frage : Using das instr zum zu finden „u.“ dann es durch zu ersetzen „und“

Experten I haben den folgenden Code;  Ich versuche, zu finden, dass wenn überhaupt von den Daten Prozesse, die dieser Schleife „u.“, wenn so dann ich es durch den Text ersetzen möchte“ und " aber es hat, nie finden „u.“.
The Beispiel von Daten, die ich bin LORRIE suche u. DARRYL
What, das ich benötige, LORRIE ist und DARRYL
The Schleife und proces Arbeiten gerade nie finden u. von

For c = 1 zu rs7.Fields.count - 1
wenn rs7.RecordCount > 0 Then
strCurrTxt = ""
strCurrTxt = rs7.Fields (c) 'erstes Feld nicht benötigen verwenden nicht b-1
wenn InStr (1, strCurrTxt, „&") > 0 Then
msgbox“ instring "
strCurrTxt = ersetzen (strCurrTxt, „u.“,“ und „, 1)
Ende If
rs8.AddNew
rs8! Export = strCurrTxt
rs8.Update
rs8.Bookmark = rs8.LastModified
Else
strCurrTxt = „KEIN TEXT FANDEN "
msgbox „Bruch und überprüfen "
/> 'rs7.MoveNext
folgendes c

Thank Sie Experten, mdlp

Antwort : Using das instr zum zu finden „u.“ dann es durch zu ersetzen „und“

InStr noch kauft Sie nichts.

Dieses versuchen und Bericht erstatten mit, was in den Mitteilungkästen ist.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Für c = 1 zu rs7.Fields.count - 1 '        
         Wenn rs7.RecordCount > 0 dann
            strCurrTxt = ""
            strCurrTxt = rs7.Fields (c)  'erstes Feld nicht benötigen  verwenden nicht b-1
MsgBox „1: “ u. strCurrTxt
            strCurrTxt = ersetzen (strCurrTxt, „u.“,“ und „, 1)
MsgBox „2: “ u. strCurrTxt
            'Wenn InStr (1, strCurrTxt, „&") > 0 dann
              '„instring“ msgbox
              'strCurrTxt = ersetzen (strCurrTxt, „u.“,“ und „, 1)
            'Beenden wenn
             rs8.AddNew
            rs8! Export = strCurrTxt
            rs8.Update
MsgBox „3: “ u. rs8! Export
            rs8.Bookmark = rs8.LastModified
        Sonst
            strCurrTxt = „KEIN TEXT FAND“
            msgbox „Bruch und Überprüfung“
        Beenden wenn
        'rs7.MoveNext
      Folgendes c
Weitere Lösungen  
 
programming4us programming4us