in MS Access i have a field that stores the SQL used for a project. the sql field is a memo field with “Rich Text” property enabled. what that means is that a code below
CREATE TABLE NR_TMP_1_104 AS
SELECT DISTINCT tmp.otherid
,tmp.groupno
FROM NR_tmp_1_900 tmp
,NR_TMP_1_103 vp
WHERE tmp.otherid = vp.otherid;
SELECT groupno, COUNT(otherid) Counts
FROM NR_TMP_1_104
GROUP BY groupno;
SELECT otherid, actualvpchoice FROM NR_TMP_2_102
really looks like all the way below (i’m sorry for this huge chunk). so that means i can’t do docmd.transfertext, the only way to get normal looking text is to copy and paste.
i need to be able to export this field to a text file and save it with the extension of .sql.
here’s what i have so far))))
Forms!freports!sql.SetFocus
DoCmd.RunCommand acCmdCopy
how do i open a text file, paste what’s on my clipboard and save it as .sql.
thank you very much
"<div> </div>
<div><font size=3 color=blue style=""BACKGROUND-COLOR:#FFFFFF"">CREATE</font><font
size=3 color=black style=""BACKGROUND-COLOR:#FFFFFF""> </font><font size=3
color=blue style=""BACKGROUND-COLOR:#FFFFFF"">TABLE</font><font size=3
color=black style=""BACKGROUND-COLOR:#FFFFFF""> </font><font size=3 color=olive
style=""BACKGROUND-COLOR:#FFFFFF"">NR_TMP_1_104</font><font size=3 color=black
style=""BACKGROUND-COLOR:#FFFFFF""> </font><font size=3 color=blue
style=""BACKGROUND-COLOR:#FFFFFF"">AS</font></div>
<div><font size=3 color=black style=""BACKGROUND-COLOR:#FFFFFF""> </font><font
size=3 color=blue style=""BACKGROUND-COLOR:#FFFFFF"">SELECT</font><font size=3
color=black style=""BACKGROUND-COLOR:#FFFFFF""> </font><font size=3 color=blue
style=""BACKGROUND-COLOR:#FFFFFF"">DISTINCT</font><font size=3 color=black
style=""BACKGROUND-COLOR:#FFFFFF""> tmp</font><font size=3 color=blue
style=""BACKGROUND-COLOR:#FFFFFF"">.</font><font size=3 color=black
style=""BACKGROUND-COLOR:#FFFFFF"">otherid</font></div>
<div><font size=3 color=black style=""BACKGROUND-COLOR:#FFFFFF""> </font><font
size=3 color=blue style=""BACKGROUND-COLOR:#FFFFFF"">,</font><font size=3
color=black style=""BACKGROUND-COLOR:#FFFFFF"">tmp</font><font size=3 color=blue
style=""BACKGROUND-COLOR:#FFFFFF"">.</font><font size=3 color=black
style=""BACKGROUND-COLOR:#FFFFFF"">groupno</font></div>
<div><font size=3 color=black style=""BACKGROUND-COLOR:#FFFFFF""> </font><font
size=3 color=blue style=""BACKGROUND-COLOR:#FFFFFF"">FROM</font><font size=3
color=black style=""BACKGROUND-COLOR:#FFFFFF""> NR_tmp_1_900 tmp</font></div>
<div><font size=3 color=black style=""BACKGROUND-COLOR:#FFFFFF""> </font><font
size=3 color=blue style=""BACKGROUND-COLOR:#FFFFFF"">,</font><font size=3
color=olive style=""BACKGROUND-COLOR:#FFFFFF"">NR_TMP_1_103</font><font size=3
color=black style=""BACKGROUND-COLOR:#FFFFFF""> vp</font></div>
<div><font size=3 color=black style=""BACKGROUND-COLOR:#FFFFFF""> </font><font
size=3 color=blue style=""BACKGROUND-COLOR:#FFFFFF"">WHERE</font><font size=3
color=black style=""BACKGROUND-COLOR:#FFFFFF""> tmp</font><font size=3
color=blue style=""BACKGROUND-COLOR:#FFFFFF"">.</font><font size=3 color=black
style=""BACKGROUND-COLOR:#FFFFFF"">otherid </font><font size=3 color=blue
style=""BACKGROUND-COLOR:#FFFFFF"">=</font><font size=3 color=black
style=""BACKGROUND-COLOR:#FFFFFF""> vp</font><font size=3 color=blue
style=""BACKGROUND-COLOR:#FFFFFF"">.</font><font size=3 color=black
style=""BACKGROUND-COLOR:#FFFFFF"">otherid</font><font size=3 color=blue
style=""BACKGROUND-COLOR:#FFFFFF"">;</font></div>
<div><font size=3 color=black style=""BACKGROUND-COLOR:#FFFFFF""> </font></div>
<div><font size=3 color=black style=""BACKGROUND-COLOR:#FFFFFF""> </font></div>
<div><font size=3 color=black style=""BACKGROUND-COLOR:#FFFFFF""> </font></div>
<div><font size=3 color=black style=""BACKGROUND-COLOR:#FFFFFF""> </font><font
size=3 color=blue style=""BACKGROUND-COLOR:#FFFFFF"">SELECT</font><font size=3
color=black style=""BACKGROUND-COLOR:#FFFFFF""> groupno</font><font size=3
color=blue style=""BACKGROUND-COLOR:#FFFFFF"">,</font><font size=3 color=black
style=""BACKGROUND-COLOR:#FFFFFF""> </font><font size=3 color=blue
style=""BACKGROUND-COLOR:#FFFFFF"">COUNT(</font><font size=3 color=black
style=""BACKGROUND-COLOR:#FFFFFF"">otherid</font><font size=3 color=blue
style=""BACKGROUND-COLOR:#FFFFFF"">)</font><font size=3 color=black
style=""BACKGROUND-COLOR:#FFFFFF""> Counts</font></div>
<div><font size=3 color=black style=""BACKGROUND-COLOR:#FFFFFF""> </font><font
size=3 color=blue style=""BACKGROUND-COLOR:#FFFFFF"">FROM</font><font size=3
color=black style=""BACKGROUND-COLOR:#FFFFFF""> </font><font size=3 color=olive
style=""BACKGROUND-COLOR:#FFFFFF"">NR_TMP_1_104</font></div>
<div><font size=3 color=black style=""BACKGROUND-COLOR:#FFFFFF""> </font><font
size=3 color=blue style=""BACKGROUND-COLOR:#FFFFFF"">GROUP</font><font size=3
color=black style=""BACKGROUND-COLOR:#FFFFFF""> </font><font size=3 color=blue
style=""BACKGROUND-COLOR:#FFFFFF"">BY</font><font size=3 color=black
style=""BACKGROUND-COLOR:#FFFFFF""> groupno</font><font size=3 color=blue
style=""BACKGROUND-COLOR:#FFFFFF"">;</font></div>
<div><font size=3 color=black style=""BACKGROUND-COLOR:#FFFFFF""> </font></div>
<div><font size=3 color=black style=""BACKGROUND-COLOR:#FFFFFF""> </font><font
size=3 color=blue style=""BACKGROUND-COLOR:#FFFFFF"">SELECT</font><font size=3
color=black style=""BACKGROUND-COLOR:#FFFFFF""> otherid</font><font size=3
color=blue style=""BACKGROUND-COLOR:#FFFFFF"">,</font><font size=3 color=black
style=""BACKGROUND-COLOR:#FFFFFF""> actualvpchoice </font><font size=3
color=blue style=""BACKGROUND-COLOR:#FFFFFF"">FROM</font><font size=3
color=black style=""BACKGROUND-COLOR:#FFFFFF""> NR_TMP_2_102</font></div>"
You can use the
PlainText()function to get just the plain text from your memo field’s rich text. Here’s an example from the Immediate window.Once you get the plain text, you don’t need to go through Notepad in order to write it to a file. You can write to a file directly using VBA file functions or via the
Scripting.FileSystemObjectmethods. Here is an example of the first approach. (I’m assumingForms!freports!sqlcontains the rich text.)