Hi,
I'm getting the above error when amending a record on a text box on a form that links to a Memo field.
I mention this because this error has just started occurring on one record, and the text in the memo field exceeds 2k characters - looking at other internet searches, other people have had this problem so I thought it might be the same issue.
Is there a way around this would anyone please be able to help? The controls on the form aren't bound, and the form itself is only bound to a recordset via code upon Form_Load.
This is my code - error occurs on this line:
many thanks to anyone who can assist!
I'm getting the above error when amending a record on a text box on a form that links to a Memo field.
I mention this because this error has just started occurring on one record, and the text in the memo field exceeds 2k characters - looking at other internet searches, other people have had this problem so I thought it might be the same issue.
Is there a way around this would anyone please be able to help? The controls on the form aren't bound, and the form itself is only bound to a recordset via code upon Form_Load.
This is my code - error occurs on this line:
Code:
DoCmd.RunSQL (strSQL)many thanks to anyone who can assist!
Code:
Select Case cmbDeathType.Value
Case "Natural Causes"
.....
Case Else
strSQL = "UPDATE tbl_Death SET Death_Name = " & Chr(34) & Me.txtName & Chr(34) & ", Death_Age = " & Me.txtAge & "," & _
"Death_Gender = '" & Me.cmbGender & "'," & _
"Death_Ethnicity = '" & Me.cmbEthnicity & "'," & _
"death_date = #" & Format((Me.txtDateDeath), "mm/dd/yyyy") & "#," & _
"Type_Death_No = " & intdeathtypeid & "," & _
"death_level = '" & Me.cmbDeathLevel & "'," & _
"Date_Notified = #" & Format((Me.txtDateNotify), "mm/dd/yyyy") & "#," & _
"Death_Cause = '" & Me.txtDeathCause & "'," & _
"Equivalent_Care_With_Community = " & chkCareCommunity & "," & _
"Date_Notes_Due = #" & Format(addduedate(Me.txtDateDeath, "2"), "mm/dd/yyyy") & "#," & _
"Date_Chronology_Due_To_CR = #" & Format(addduedate(Me.txtDateDeath, "10"), "mm/dd/yyyy") & "#," & _
"Date_Report_Due_From_CR = #" & Format(addduedate(Me.txtDateDeath, "39"), "mm/dd/yyyy") & "#," & _
"Date_Report_Due_To_QA_Panel = #" & Format(addduedate(Me.txtDateDeath, "40"), "mm/dd/yyyy") & "#," & _
"Date_Report_Due_From_QA_Panel = #" & Format(addduedate(Me.txtDateDeath, "50"), "mm/dd/yyyy") & "#," & _
"Date_Comments_Due_Back_From_CR = #" & Format(addduedate(Me.txtDateDeath, "54"), "mm/dd/yyyy") & "#," & _
"Date_Report_Due_To_Commissioner = #" & Format(addduedate(Me.txtDateDeath, "55"), "mm/dd/yyyy") & "#," & _
"Date_Report_Due_To_PPO = #" & Format(addduedate(Me.txtDateDeath, "60"), "mm/dd/yyyy") & "# WHERE tbl_Death.Death_ID = " & Me.txtDeathID & ""
End Select
DoCmd.SetWarnings False
DoCmd.RunSQL (strSQL)
DoCmd.SetWarnings True
Forms![frmmain]![NavigationSubform].Requery
