SQL to VBA problem

[motogbbj]

The statement below is causing an error. The meassage is as following, sorry for the length of it:
Syntax error: operator is missing. Somewhere behind FROM


strNewRecord = "SELECT DISTINCTROW Codes.[ID-PROJECT], Codes.[ID-DOC], Codes.[ID-CODE], Codes.[P&ID], Codes.Proj_System, tbl_Proj_Systems.Proj_System_name, Codes.Equipm_status, tbl_Equipment_status.Equipm_status_name, codes.Prim_mover, tbl_Primary_mover.Prim_mover_name, Codes.Building, tbl_Building.Bldg_nr, [Area type].Type, [Area type].Description_1, Codes.Code, Codes.Description, Codes.Description_2, Codes.ATEX_Equipm_cat, Codes.ATEX_Equipm_prot_type, Codes.ATEX_Equipm_group_subdiv, Codes.ATEX_Equipm_temp_class, Codes.Label_required, Codes.Properties, Codes.Manufacturer, Codes.Manufacturer_ref_doc, Codes.Prod_data_present, Codes.O_M_manual_present, Codes.CE_conf_decl_present, Codes.ATEX_certificate_present, Codes.Supplier, Codes.[Specification ref], Codes.IP, Codes.Length, Codes.Width, Codes.Depth" _
& "Codes.Weight_dry , Codes.Weight_operation, Codes.Weight_test, Codes.[Heat dissipation_A], Codes.[Heat dissipation_W], Codes.[Cable entry], Codes.Area, Codes.Room, tbl_Room.Room_nr, Codes.[Location X], Codes.[Location Y], Codes.[Location Z], Codes.Status, Codes.Consumer, Codes.[Distri board], Codes.[on report], Codes.REMARKS, Codes.REVISION, Consumers.[rated power], Consumers.[nom voltage], Codes.Manufacturer_order_no, Codes.Manufacturer_type, Codes.Manufacturer_product_code, Codes.Manufacturer_serial_no, Codes.[Supplier order no], Codes.Supplier_product_code, Codes.SIL_level, Codes.Valve, Codes.Instrument, Codes.Line, Codes.On_ILD_electr, Codes.In_block_diagr, Codes.In_circ_diagr, Codes.In_cable_list, Codes.In_PID, Codes.SSY_Revision_Date, Codes.SSY_Revision_Description" _


& "FROM tbl_ATEX_prot_types RIGHT JOIN (tbl_ATEX_temp_class RIGHT JOIN (tbl_ATEX_sub_groups RIGHT JOIN (tbl_ATEX_equipm_cat RIGHT JOIN (([Area type] RIGHT JOIN (tbl_Equipment_status RIGHT JOIN (tbl_Primary_mover RIGHT JOIN (tbl_Proj_Systems RIGHT JOIN (tbl_Room RIGHT JOIN (tbl_Building RIGHT JOIN, Codes ON tbl_Building.[ID-BUILDING] = Codes.Building) ON tbl_Room.[ID-ROOM] = Codes.Room) ON tbl_Proj_Systems.[ID-Proj_Systems] = Codes.Proj_System) ON tbl_Primary_mover.[ID-Prim_mover] = Codes.Prim_mover) ON tbl_Equipment_status.[ID-Equipm_status] = Codes.Equipm_status)ON [Area type].[ID-AREA] = tbl_Room.Classification) LEFT JOIN Consumers ON Codes.[ID-CODE] = Consumers.[ID-CODE]) ON tbl_ATEX_equipm_cat.[ID-Equipm_cat] = Codes.ATEX_Equipm_cat) ON tbl_ATEX_sub_groups.[ID-Gasgroup] = Codes.ATEX_Equipm_group_subdiv) ON tbl_ATEX_temp_class.[ID-Temp_class] = Codes.ATEX_Equipm_temp_class) ON tbl_ATEX_prot_types.Id_Prot_type = Codes.ATEX_Equipm_prot_type" _
& "WHERE (((Codes.Consumer)=True));"
Me.Subform_Codes.Form.RecordSource = strNewRecord

[recyan]

@motogbbj,
At first glance, Are you missing a comma after

Codes.Depth

?

Thanks

[recyan]

@motogbbj,

On second glance,
Do you have a comma in

tbl_Building 	RIGHT JOIN, Codes

Thanks

[thebigthing313]

The 2 errors recyan found are the only ones I spotted as well.