Results 1 to 2 of 2
  1. #1
    Alphix is offline Advanced Beginner
    Windows 7 64bit Access 2010 64bit
    Join Date
    Sep 2014
    Posts
    61

    How do I extend a INSERT INTO line of code to the 2nd, third and fourth line???

    I have a INSERT INTO function line of code which is very long. I would like to make this one line of code visually appealing by vertically extending it to several lines.



    How do I take each part of the code and make multiple lines?

    For example:

    ecSql = "INSERT INTO 04Event_Collector ([Date_Collection],[User_Name],[Machine_Number],[Time1Start],[Time1Stop],[UElapsed1],[Time2Start],[Time2Stop],[UElapsed2],[DElapsed2],[Event_Code2],[Time3Start],[Time3Stop],[UElapsed3],[DElapsed3],[Event_Code3],[Time4Start],[Time4Stop],[UElapsed4],[DElapsed4],[Event_Code4],[Time5Start],[Time5Stop],[UElapsed5],[DElapsed5],[Event_Code5],[Time6Start],[Time6Stop],[UElapsed6],[DElapsed6],[Event_Code6],[Time7Start],[Time7Stop],[UElapsed7],[DElapsed7],[Event_Code7],[Total_Up_Time],[Total_Down_Time],[Total_Time]) VALUES (#" & Date & "#, '" & TempVars!pvUserUser & "',#" & TempVars!pvMach_Area & "#, #" & Time1Start & "#,#" & Time1Stop & "#,# " & UElapsed1 & "#, # " & Time2Start & " #, # " & Time2Stop & " #, # " & UElapsed2 & " #,# " & DElapsed2 & " #, ' " & Event2 & "', # " & Time3Start & " #, # " & Time3Stop & " #, # " & UElapsed3 & " #, # " & DElapsed3 & " #, ' " & Event3 & " ', # " & Time4Start & " #, # " & Time4Stop & " #, # " & UElapsed4 & " #, # " & DElapsed4 & " #,
    )"
    Debug.Print ecSql

    CurrentDb.Execute ecSql, dbFailOnError

    Thanks.

  2. #2
    ssanfu is offline Master of Nothing
    Windows XP Access 2000
    Join Date
    Sep 2010
    Location
    Anchorage, Alaska, USA
    Posts
    9,664
    This is how I split the lines:

    Code:
        ecSql = "INSERT INTO 04Event_Collector ([Date_Collection],[User_Name],[Machine_Number],"
        ecSql = ecSql & " [Time1Start],[Time1Stop],[UElapsed1],[Time2Start],"
        ecSql = ecSql & " [Time2Stop],[UElapsed2],[DElapsed2],[Event_Code2],[Time3Start],[Time3Stop],[UElapsed3],[DElapsed3],[Event_Code3],"
        ecSql = ecSql & " [Time4Start],[Time4Stop],[UElapsed4],[DElapsed4],[Event_Code4],[Time5Start],[Time5Stop],[UElapsed5],[DElapsed5],"
        ecSql = ecSql & " [Event_Code5],[Time6Start],[Time6Stop],[UElapsed6],[DElapsed6],[Event_Code6],[Time7Start],[Time7Stop],[UElapsed7],"
        ecSql = ecSql & " [DElapsed7],[Event_Code7],[Total_Up_Time],[Total_Down_Time],[Total_Time]) "
        ecSql = ecSql & " VALUES (#" & Date & "#, '" & TempVars!pvUserUser & "',#" & TempVars!pvMach_Area & "#, #" & Time1Start & "#,#" & Time1Stop
        ecSql = ecSql & "#, #" & UElapsed1 & "#, #" & Time2Start & "#, #" & Time2Stop & "#, #" & UElapsed2 & "#, #" & DElapsed2 & "#, '" & Event2
        ecSql = ecSql & "', #" & Time3Start & " #, #" & Time3Stop & "#, #" & UElapsed3 & "#, #" & DElapsed3 & "#, '" & Event3 & "', #" & Time4Start
        ecSql = ecSql & "#, #" & Time4Stop & "#, #" & UElapsed4 & "#, #" & DElapsed4 & "#,)"
    BTW, you have an extra comma before the last closing parenthesis.

Please reply to this thread with any new information or opinions.

Similar Threads

  1. Replies: 10
    Last Post: 06-10-2014, 09:03 AM
  2. INSERT INTO from multi line text box
    By Only4Access in forum Forms
    Replies: 3
    Last Post: 01-08-2014, 08:06 PM
  3. Replies: 7
    Last Post: 04-11-2011, 03:58 PM
  4. How to do line by line compare of VB code?
    By Buakaw in forum Access
    Replies: 2
    Last Post: 02-14-2011, 11:46 PM
  5. Insert Into Statement with Line Numbers
    By Cheshire101 in forum Programming
    Replies: 1
    Last Post: 10-11-2010, 02:53 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Other Forums: Microsoft Office Forums