Need help printing " double quotes

[James]

I've got the following code... I need the number to be in "double
quotes", not 'single quotes'

so it will look like this when it prints:

UPDATE TableName SET ColumnName =
'x'+Right(ColumnName,Len(ColumnName)-1) WHERE (ColumnName=
"021615039");


any ideas? here's the code:

Option Compare Database

Public Sub buildSQL()
Open "C:\UpdateUSAAID\1.txt" For Input As #1
Open "C:\UpdateUSAAID\excludeListSQL.txt" For Output As #2

Do While Not EOF(1)

Line Input #1, excludeMember

Print #2, "UPDATE TableName SET ColumnName =
'x'+Right(ColumnName,Len(ColumnName)-1) WHERE (ColumnName = '" &
excludeMember & "');"


Loop
Close #1
Close #2
End Sub



Thanks!

 

[Roger Carlson]

Replace each apostrophe with TWO double quotes:

Print #2, "UPDATE TableName SET ColumnName =
'x'+Right(ColumnName,Len(ColumnName)-1) WHERE (ColumnName = """ &
excludeMember & """);"

--
--Roger Carlson
MS Access MVP
Access Database Samples: www.rogersaccesslibrary.com
Want answers to your Access questions in your Email?
Free subscription:
http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L

 

[James]

I figured it out, thanks though.... code looks like this in case you
care.
Print #2, "UPDATE TableName SET ColumnName =
'x'+Right(ColumnName,Len(ColumnName)-1) WHERE (ColumnName = '""" &
excludeMember & "'"");"

 

[Kerry]

Use the Chr function:
Print #2, "UPDATE TableName SET ColumnName =
'x'+Right(ColumnName,Len(ColumnName)-1) WHERE (ColumnName = '" &
Chr(34) &
excludeMember & chr(34) & "');"