Need help printing " double quotes

#1 (**permalink**) 28-Jul-2006, 08:31 AM

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

Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/12708-need-help-printing-double-quotes.html
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
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=12708

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!

#2 (**permalink**) 28-Jul-2006, 08:31 AM

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/...UBED1=ACCESS-L

"James" wrote in message
news:1152209841.073526.227240@s53g2000cws.googlegr oups.com...
> I've got the following code... I need the number to be in "double
> quotes", not 'single quotes'
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=12708
>
> 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)
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=12708
>
> 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!
>

#3 (**permalink**) 28-Jul-2006, 08:31 AM

I figured it out, thanks though.... code looks like this in case you
care.
Print #2, "UPDATE TableName SET ColumnName =
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=12708
'x'+Right(ColumnName,Len(ColumnName)-1) WHERE (ColumnName = '""" &
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=12708
excludeMember & "'"");"

James wrote:
> 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!

#4 (**permalink**) 28-Jul-2006, 08:31 AM

Use the Chr function:
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=12708
Print #2, "UPDATE TableName SET ColumnName =
'x'+Right(ColumnName,Len(ColumnName)-1) WHERE (ColumnName = '" &
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=12708
Chr(34) &
excludeMember & chr(34) & "');"

James wrote:
> 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!