CODEWITHSUNDEEP
vbaexcel
Vincent
Vincent

Reputation: 1

String delimiters in VBA

I'm new to VBA and I'm writing a query within a module. At the moment I'm getting a syntax error. I believe it is because I have misplaced an " to implicate a string. However, I cannot see it. Maybe it is another error... Can anyone have a look?

Code: 

        QryInsertTracks = "INSERT INTO IMP_TRACK_GLOBAL_INFO VALUES (" & recTracksMissing(0) & ", " & recTracksMissing(1) & ", " & recTracksMissing(2) & ", " & recTracksMissing(3) & ", " & _
            recTracksMissing(4) & ", " & "'" & fixQuotes(recTracksMissing(5)) & "' , " & "'" & recTracksMissing(6) & "' , " & "'" & recTracksMissing(7) & "' , " & _
            "'" & recTracksMissing(8) & "', " & _
            fixNull(recTracksMissing(9)) & ", " & _
            "'" & fixQuotes(recTracksMissing(10)) & "' , " & _
            recTracksMissing(11) & ", " & _
            fixNullAgain("'" & fixQuotes(fixNull(recTracksMissing(12))) & "'") & ", " & _
            "'" & recTracksMissing(13) & "'" & ", '" & recTracksMissing(14) & "', '" & recTracksMissing(15) & "', '" & recTracksMissing(16) & "', " & fixNullAgain("'" & fixQuotes(fixNull(recTracksMissing(17))) & "'") & ", " & _
            "'" & fixQuotes(recTracksMissing(18)) & "' , " & _
            fixNull(recTracksMissing(19)) & ", " & _
            "'" & fixQuotes(fixNull(recTracksMissing(20))) & "' , " & _
            fixNullAgain("'" & fixQuotes(fixNull(recTracksMissing(21))) & "'") & ", " & _
            fixNullAgain("'" & fixQuotes(fixNull(recTracksMissing(22))) & "'") & ", " & _
            fixNullAgain("'" & fixQuotes(fixNull(recTracksMissing(23))) & "'") & ", " & _
            fixNullAgain("'" & fixQuotes(fixNull(recTracksMissing(24))) & "'") & ", " & _
            fixNullAgain("'" & fixQuotes(fixNull(recTracksMissing(25))) & "'") & ", " & _
            "'" & recTracksMissing(26) & "' , " & _
            "'" & recTracksMissing(27) & "' , " & _
            fixNull(recTracksMissing(28)) & ", " & _
            fixNull(recTracksMissing(29)) & ", " & _
            "'" & recTracksMissing(30) & "' , " & _
            fixNull(recTracksMissing(31)) & ", " & _
            "'" & recTracksMissing(32) & "' , " & _
            "'" & fixQuotes(recTracksMissing(33)) & "' , " & _
            "'" & recTracksMissing(34) & "', '" & Now & "', " & fixNullAgain("'" & fixQuotes(fixNull(recTracksMissing(35))) & "'") & ", " & fixNull(recTracksMissing(36)) & ", " & fixNull(recTracksMissing(37)) & ")"

Upvotes: 0

Views: 74

Answers (1)

Vityata
Vityata

Reputation: 43595

  1. Write Stop after the you have written;
  2. Run the code;
  3. It will stop on the Stop word;
  4. Press Ctrl+G
  5. Write ?QryInsertTracks and press Enter
  6. Take a look at the result - it should be visible;

Upvotes: 3

Related Questions