Vba &引用；“行连续体过多”；MS Access 2010更新时出错

我在MS Access 2010中遇到了一个问题，因为由于24行有限，出现了一个错误“太多行连续”。我目前正在做的是一个项目，在ms access vb中有超过24行用于更新表单中的记录

我已经做了一些研究，但它与我目前正在做的工作无关。如何取消ms access vb中的行限制？这是示例代码：

更新：

我已经按照@Andre的建议做了，但是出现了一个错误，上面写着“UPDATE语句中的语法错误”。有什么帮助吗？这是更新后的代码

Dim S As String, S1 As String, S2 As String, S3 As String, S4 As String, S5 
As String, S6 As String, S7 As String, S8 As String, S9 As String, S10 As 
String, S11 As String, S12 As String, S13 As String, S14 As String, S15 As 
String, S16 As String, S17 As String, S18 As String, S19 As String

S1 = "Update frm_NTE " & _
     " set EHRID = '" & Me.EHRID.Value & "'" & _
     ",NTEDate = '" & Me.NTEDate.Value & "'"
S2 = ",To = '" & Me.To.Value & "'" & _
     ",From = '" & Me.From.Value & "'" & _
     ",DatesWhenActsWasWereCommited = '" & Me.DatesWhenActsWasWereCommited.Value & "'"
S3 = ",DatesWhenActsWasWereDiscovered = '" & Me.DatesWhenActsWasWereDiscovered.Value & "'" & _
     ",PlacesWhereActsWasWereCommitted = '" & Me.PlacesWhereActsWasWereCommitted.Value & "'" & _
     ",DetailsOfTheActs = '" & Me.DetailsOfTheActs.Value & "'" & _
     ",cmdComboListt1 = '" & Me.cmdComboListt1.Value & "'"
S4 = ",Offense = '" & Me.Offense.Value & "'" & _
     ",ObjectOfViolation = '" & Me.ObjectOfViolation.Value & "'" & _
     ",ClassPenalty = '" & Me.ClassPenalty.Value & "'" & _
     ",CorrectiveActionPenalty = '" & Me.CorrectiveActionPenalty.Value & "'"
S5 = ",cmdComboListt2 = '" & Me.cmdComboListt2.Value & "'" & _
     ",Offense2 = '" & Me.Offense2.Value & "'" & _
     ",ObjectOfViolation2 = '" & Me.ObjectOfViolation2.Value & "'" & _
     ",ClassPenalty2 = '" & Me.ClassPenalty2.Value & "'"
S6 = ",CorrectiveActionPenalty2 = '" & Me.CorrectiveActionPenalty2.Value & "'" & _
     ",cmdComboListt3 = '" & Me.cmdComboListt3.Value & "'" & _
     ",Offense3 = '" & Me.Offense3.Value & "'" & _
     ",ObjectOfViolation3 = '" & Me.ObjectOfViolation3.Value & "'"
S7 = ",ClassPenalty3 = '" & Me.ClassPenalty3.Value & "'" & _
     ",CorrectiveActionPenalty3 = '" & Me.CorrectiveActionPenalty3.Value & "'" & _
     ",cmdComboListt4 = '" & Me.cmdComboListt4.Value & "'" & _
     ",Offense4 = '" & Me.Offense4.Value & "'"
S8 = ",ObjectOfViolation4 = '" & Me.ObjectOfViolation4.Value & "'" & _
     ",ClassPenalty4 = '" & Me.ClassPenalty4.Value & "'" & _
     ",CorrectiveActionPenalty4 = '" & Me.CorrectiveActionPenalty4.Value & "'" & _
     ",cmdComboListt5 = '" & Me.cmdComboListt5.Value & "'"
S9 = ",Offense5 = '" & Me.Offense5.Value & "'" & _
     ",ObjectOfViolation5 = '" & Me.ObjectOfViolation5.Value & "'" & _
     ",ClassPenalty5 = '" & Me.ClassPenalty5.Value & "'" & _
     ",CorrectiveActionPenalty5 = '" & Me.CorrectiveActionPenalty5.Value & "'"
S10 = ",cmdComboListt6 = '" & Me.cmdComboListt6.Value & "'" & _
      ",Offense6 = '" & Me.Offense6.Value & "'" & _
      ",ObjectOfViolation6 = '" & Me.ObjectOfViolation6.Value & "'" & _
      ",ClassPenalty6 = '" & Me.ClassPenalty6.Value & "'"
S11 = ",CorrectiveActionPenalty6 = '" & Me.CorrectiveActionPenalty6.Value & "'" & _
      ",cmdComboListt7 = '" & Me.cmdComboListt7.Value & "'" & _
      ",Offense7 = '" & Me.Offense7.Value & "'" & _
      ",ObjectOfViolation7 = '" & Me.ObjectOfViolation7.Value & "'"
S12 = ",ClassPenalty7 = '" & Me.ClassPenalty7.Value & "'" & _
      ",CorrectiveActionPenalty7 = '" & Me.CorrectiveActionPenalty7.Value & "'" & _
      ",IssuingManager = '" & Me.IssuingManager.Value & "'" & _
      ",AuthorizedHRPartner = '" & Me.AuthorizedHRPartner.Value & "'"
S13 = ",ApprovingManager = '" & Me.ApprovingManager.Value & "'" & _
      ",EmployeeName = '" & Me.EmployeeName.Value & "'" & _
      ",cmdFunction = '" & Me.cmdFunction.Value & "'" & _
      ",DateOfReceipt = '" & Me.DateOfReceipt.Value & "'"
S14 = ",TimeOfReceipt = '" & Me.TimeOfReceipt.Value & "'" & _
      ",EndorsedNTENoticeToHR = '" & Me.EndorsedNTENoticeToHR.Value & "'" & _
      ",EndorsedNTENoticeToHRLastUser = '" & Me.EndorsedNTENoticeToHRLastUser.Value & "'" & _
      ",EndorsedNTENoticeToHRLastDateModified = '" & Me.EndorsedNTENoticeToHRLastDateModified.Value & "'"
S15 = ",EndorsedNTENoticeToHRLastTimeModified = '" & Me.EndorsedNTENoticeToHRLastTimeModified.Value & "'" & _
      ",EndorsementOfNTEToIs = '" & Me.EndorsementOfNTEToIs.Value & "'" & _
      ",EndorsementOfNTEToISLastUser = '" & Me.EndorsementOfNTEToISLastUser.Value & "'" & _
      ",EndorsementOfNTEToISLastDateModified = '" & Me.EndorsementOfNTEToISLastDateModified.Value & "'"
S16 = ",EndorsementOfNTEToISLastTimeModified = '" & Me.EndorsementOfNTEToISLastTimeModified.Value & "'" & _
      ",DateReceivedNTEByTheEmployee = '" & Me.DateReceivedNTEByTheEmployee.Value & "'" & _
      ",DateReceivedNTEByTheEmployeeLastUser = '" & Me.DateReceivedNTEByTheEmployeeLastUser.Value & "'" & _
      ",DateReceivedNTEByTheEmployeeLastDateModified = '" & Me.DateReceivedNTEByTheEmployeeLastDateModified.Value & "'"
S17 = ",DateReceivedNTEByTheEmployeeLastTimeModified = '" & Me.DateReceivedNTEByTheEmployeeLastTimeModified.Value & "'" & _
      ",WrittenExplanationDueDate = '" & Me.WrittenExplanationDueDate.Value & "'" & _
      ",WrittenExplanationDueDateLastUser = '" & Me.WrittenExplanationDueDateLastUser.Value & "'" & _
      ",WrittenExplanationDueDateLastDateModified = '" & Me.WrittenExplanationDueDateLastDateModified.Value & "'"
S18 = ",WrittenExplanationDueDateLastTimeModified = '" & Me.WrittenExplanationDueDateLastTimeModified.Value & "'" & _
      ",SubmissionOfWEtoIS = '" & Me.SubmissionOfWEtoIS.Value & "'" & _
      ",SubmissionOfWEtoISLastUser = '" & Me.SubmissionOfWEtoISLastUser.Value & "'" & _
      ",SubmissionOfWEtoISLastDateModified = '" & Me.SubmissionOfWEtoISLastDateModified.Value & "'"
S19 = ",SubmissionOfWEtoISLastTimeModified = '" & Me.SubmissionOfWEtoISLastTimeModified.Value & "'" & _
      "Where CaseIDNo = " & Me.CaseIDNo.Value & ""

S = S1 & S2 & S3 & S4 & S5 & S6 & S7 & S8 & S9 & S10 & S11 & S12 & S13 & S14 & S15 & S16 & S17 & S18 & S19
Debug.Print S
CurrentDb.Execute S

---

你不能取消这个限制。。。你可以少换行，长换行

---

（作为一个插件，您的代码很容易受到SQL注入的攻击，但这属于另一个问题）

如果您确实必须这样做，请将其分解为多个字符串

Dim S作为字符串，S1作为字符串，S2作为字符串，S3作为字符串'。。。
S1=“更新frm\u NTE”和_
“set EHRID=”&Me.EHRID.Value&“”&_
“，datetoday=”&Me.datetoday.Value&“”&_
，EHRID='&Me.EHRID.Value&''
S2=“，datetoday=”&Me.datetoday.Value&“”&_
“，To='”&Me.To.Value&“'”&_
，From='&Me.From.Value&''
“等等，pp。
S=S1和S2
调试。打印S
CurrentDb.executes

---

请注意，您有几个

&“'”

，它们是打字错误或bug。还是要附加空格？

这是一个可怕的查询。使用参数。我已经做了一些研究，但与我目前正在做的工作无关。我知道这句话可能在翻译中丢失了，但那句话让我发笑。曾设想过你研究海洋中的塑料问题，而不是线条延续问题。这一限制是为了防止编写不可理解的代码。@DarrenBartrup Cook实际上这是我第一次使用MS Access，我不熟悉Visual Basic，直到现在我还没有创建任何数据库的经验为什么我要从头做起。我研究的一个是关于创建一个有很多字符串的表，并且不需要更新，我不知道我在做什么，但由于这是我的要求，我正在尽最大努力。：）@ErikvonAsmuth实际上，一开始没有问题，因为他们只需要我几个字段，并且在允许的行中。但随着系统的发展，他们希望增加更多的领域，而我没有编程方面的知识或正规教育，所以请不要评判我的代码。哈哈哈.）我已经按照您的建议做了，但是发生了一个错误，上面写着“UPDATE语句中的语法错误”。