简体   繁体   English

VBA中的字符串定界符

[英]String delimiters in VBA

I'm new to VBA and I'm writing a query within a module. 我是VBA的新手,正在模块中编写查询。 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)) & ")"
  1. Write Stop after the you have written; 写完后写Stop
  2. Run the code; 运行代码;
  3. It will stop on the Stop word; 它将在“ Stop字上Stop
  4. Press Ctrl + G Ctrl + G
  5. Write ?QryInsertTracks and press Enter 编写?QryInsertTracks并按Enter
  6. Take a look at the result - it should be visible; 看一下结果-它应该是可见的;

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM