title image


Smiley Re: Zeilenumbrüche und Tabellen-Export (DAO): wie kann ich sie behalten?
Hallo Protoss,



wie wäre es, die Zeilen:



For j = 0 To rs.Fields.Count - 1

strT = strT & rs.Fields(j).Value & Chr(222)

Next j



folgendermaßen zu ergänzen:



For j = 0 To rs.Fields.Count - 1

If Instr(rs.Fields(j).Value, chr(10))>0 then

strT = strT & strt & Replace(rs.fields(j).Value, Chr(10), vbCrLf, 1, 1) & Chr(222)

Else

strT = strT & rs.Fields(j).Value & Chr(222)

End If

Next j



Nur mal so als Vorschlag.



Gruß

Schräubchen

Für Desi:
Menschen begegnen uns und begleiten uns eine Weile. Manche bleiben für immer, denn sie hinterlassen Spuren in unseren Herzen.

Hunde haben Herrchen oder Frauchen, Katzen haben Angestellte!
Kurt Tucholsky

Zu Willi und Sunnys Homepage

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: