Fråga : Using instr som finner ”&” byt ut därefter, den med ”och”,

Experter I har efter kodifiera;  Pröva förmiddag I att finna, om några av datan som detta kretsar, bearbetar har ”&”, om jag önskar så därefter att byta ut den med texten” och ", men det finner aldrig ”&”. exemplet för
The av data, som I-förmiddagsökande är LORRIE, &
What för DARRYL som jag behöver, är LORRIE, och
The för DARRYL kretsar, och proces fungerar precis aldrig fyndet &

For c = 1 till rs7.Fields.count - 1
, om rs7.RecordCount > 0 Then
strCurrTxt = strCurrTxt för ""
= rs7.Fields (c) 'inte behöver först att sätta in, använder inte b-1
, om InStr (1, strCurrTxt, ”&”) > 0 strCurrTxt för
för Then
msgbox” instring " = byter ut (strCurrTxt, ”&”,” och ”, 1)
avslutar If
rs8.AddNew
rs8! Exporten = strCurrTxt
rs8.Update
rs8.Bookmark- = för rs8.LastModified
Else
strCurrTxt = ”INGEN TEXT GRUNDAR " det msgbox”avbrottet för
, och nästa c

Thank för kontroll"
avslutar If
'rs7.MoveNext
dig experter, mdlp " klar "

Svar : Using instr som finner ”&” byt ut därefter, den med ”och”,

Den InStr stillbilden gör inte köp dig något.

Försök detta och rapportbaksida med vad är i meddelandet, boxas.
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 till rs7.Fields.count - 1 ',        
         Om rs7.RecordCount > 0 därefter
            strCurrTxt = "",
            strCurrTxt = rs7.Fields (c)  'behöver inte först att sätta in  använder inte b-1
MsgBox ”1: ” & strCurrTxt
            strCurrTxt = byter ut (strCurrTxt, ”&”,” och ”, 1)
MsgBox ”2: ” & strCurrTxt
            'Om InStr (1, strCurrTxt, ”&”) > 0 därefter
              'msgbox ”som instring”,
              'strCurrTxt = byter ut (strCurrTxt, ”&”,” och ”, 1)
            'Avsluta om
             rs8.AddNew
            rs8! Export = strCurrTxt
            rs8.Update
MsgBox ”3: ” & rs8! Export
            rs8.Bookmark = rs8.LastModified
        Annars
            strCurrTxt = ”INGEN TEXT GRUNDAR”,
            msgbox ”avbrott och kontroll”,
        Avsluta om
        'rs7.MoveNext
      Nästa c
Andra lösningar  
 
programming4us programming4us