עזרה באקסס מחיקת מעברי שורה בטבלה

[ארי4791]

יש לי קוד לייבא טבלה מXML, ומשום מה יש שם כמה שורות שיש להם מעבר שורה בתוך השדה.
יש איזשהו קוד למחוק את כל מעברי השורה בטבלה?
אולי עם לולאה או משהו כזה.

תודה רבה

 

[לוי א]

על ידי Replace

strImport = Replace(strImport, Chr(13), " ")

הקוד הזה מחליף כל מעבר שורה (קוד אסקיי 13) לרווח
גם קוד אסקיי 10 מציין מעבר שורה, לכן רצוי להוסיף גם את השורה הזו

strImport = Replace(strImport, Chr(10), " ")

 

[אפר]

על ידי Replace

strImport = Replace(strImport, Chr(13), " ")

הקוד הזה מחליף כל מעבר שורה (קוד אסקיי 13) לרווח
גם קוד אסקיי 10 מציין מעבר שורה, לכן רצוי להוסיף גם את השורה הזו

strImport = Replace(strImport, Chr(10), " ")

ולהכניס ל trim על מנת למנוע רווחים מיותרים