Line Break in VB Code

[Ice Rhino]

I have quite a long line of code in VB and I wanted to break it down into a number of lines.

Normally I would use the _ in the code but for some reason as soon as I do that the auto syntax is not happy and says that the first word of the second line is

Complie Error:
Expected List seperator or )


Anybody?

Toni

 

[Ice Rhino]

This is the line I want to break up as I have another 10 query selections to add

Set rs = db.OpenRecordset("SELECT Last(tbl_system_check.Cypher_C) AS 0, Last(tbl_system_check.Cypher_D) AS 1, Last(tbl_system_check.Cypher_E) AS 2, Last(tbl_system_check.ECS_C) AS 3, Last(tbl_system_check.ECS_D) AS 4,Last(tbl_system_check.ECS_C) AS 5 FROM tbl_system_check;")


Anybody?

Toni

 

[chrismcbride]

Did you do it like this???

Set rs = db.OpenRecordset("SELECT " _
& "Last(tbl_system_check.Cypher_C) AS 0, " _
& "Last(tbl_system_check.Cypher_D) AS 1, " _
& "Last(tbl_system_check.Cypher_E) AS 2, " _
& "Last(tbl_system_check.ECS_C) AS 3, " _
& "Last(tbl_system_check.ECS_D) AS 4," _
& "Last(tbl_system_check.ECS_C) AS 5 " _
& "FROM tbl_system_check;")

Let us know...
Chris

 

[Ice Rhino]

Hi Chris

No I did not list it like that. However I did end up doing it like this and all is now well.

Thanks for the intetrest in the problem though

SQL = "SELECT Last(tbl_system_check.Cypher_C) AS 0, Last(tbl_system_check.Cypher_D) AS 1,"
SQL = SQL + "Last(tbl_system_check.Cypher_E) AS 2, Last(tbl_system_check.ECS_C) AS 3,"
SQL = SQL + "Last(tbl_system_check.ECS_D) AS 4,"
SQL = SQL + "Last(tbl_system_check.Morpheus_C) AS 5, Last(tbl_system_check.Morpheus_D) AS 6,"
SQL = SQL + "Last(tbl_system_check.Morpheus_E) AS 7, Last(tbl_system_check.Magenta_C) AS 8,"
SQL = SQL + "Last(tbl_system_check.Magenta_D) AS 9, Last(tbl_system_check.Neo_C) AS 10,"
SQL = SQL + "Last(tbl_system_check.Neo_D) AS 11, Last(tbl_system_check.Neo_E) AS 12,"
SQL = SQL + "Last(tbl_system_check.White_Rabbit_C) AS 13 "
SQL = SQL + "FROM tbl_system_check;"

Set db = CurrentDb()
Set rs = db.OpenRecordset(SQL)

All the Best

Toni

 

[chrismcbride]

Glad to hear it!