Expected End Statement

[Joe]

Hello,

My vb code is giving me an error after I enter and underscore to seperate my
lines...

Any ideas why? I receive the Error: Expected End Statement...

Function

Dim strSQL As String

strSQL = "Select [mast].acct_nbr, [mast].bank, _
INTO portfolio FROM mast WHERE balance > 0"

DoCmd.RunSQL strSQL

Thanks

 

[Dirk Goldgar]

Hello,

My vb code is giving me an error after I enter and underscore to seperate
my
lines...

Any ideas why? I receive the Error: Expected End Statement...

Function

Dim strSQL As String

strSQL = "Select [mast].acct_nbr, [mast].bank, _
INTO portfolio FROM mast WHERE balance > 0"

DoCmd.RunSQL strSQL

You can't break your line in the middle of a string literal. Try this
instead:

strSQL = "Select [mast].acct_nbr, [mast].bank " & _
"INTO portfolio FROM mast WHERE balance > 0"

I also took out the extra comma you had after "[mast].bank", which would
have made the SQL statement fail when executed.

 

[Joe]

Thanks Dirck... That worked just fine

Hello,

My vb code is giving me an error after I enter and underscore to seperate
my
lines...

Any ideas why? I receive the Error: Expected End Statement...

Function

Dim strSQL As String

strSQL = "Select [mast].acct_nbr, [mast].bank, _
INTO portfolio FROM mast WHERE balance > 0"

DoCmd.RunSQL strSQL

You can't break your line in the middle of a string literal. Try this
instead:

strSQL = "Select [mast].acct_nbr, [mast].bank " & _
"INTO portfolio FROM mast WHERE balance > 0"

I also took out the extra comma you had after "[mast].bank", which would
have made the SQL statement fail when executed.

--
Dirk Goldgar, MS Access MVP
www.datagnostics.com

(please reply to the newsgroup)