Memo Field

S

Shari

I have a memo field in my table and the user can update this field from a
form. The problem is that when they input a lot of data at one time, it
turns the last lines to garbage and/or truncates the last lines.

I would appreicate any suggestions as to why this is happening.
Is there something in the text box property I should set so access knows
this is a memo field? ( grasping at straws)

Thank you in advance for your help.
 
K

Ken Snell \(MVP\)

Post the SQL statement of the form's Record Source. Identify the field that
is the memo data type.
 
S

Shari

The record source is the table. T001_task_table. When the user inputs data
into the SLD field(text box) it updates the table with the new status notes.
Below is the code. The SHLD (text box) is a string field to add the words
"updated and date" showing when the update occured. Cur_stat_info( which is
a memo field) is the field name in my table.
Thanks for your help.

Private Sub clse_Click()Dim em As String
If IsNull(Me.SUS.Value) Or Me.SUS.Value = " " Then
MsgBox "You must Enter Your Name", vbOKOnly, "Required Data"
Me.SUS.SetFocus
ElseIf IsNull(DLookup("Task_compl_on", "T001_Task_table", "N_task=" & STN)
Then
strcom = "Updated on " & Me.SDT & " " & " " & "- " & Me.SLD & vbCrLf
Me.SHLD = strcom & Me.SHLD

Application.SetOption "Confirm Action Queries", 0
Application.SetOption "Confirm Document Deletions", 0
Application.SetOption "Confirm Record Changes", 0

DoCmd.RunSQL "UPDATE T001_Task_table SET
T001_Task_table.cur_stat_info=SHLD,T001_Task_table.CurStatDte =
SDT,T001_Task_table.who_updtd_task = SUS WHERE [N_task] = STN;"

Application.SetOption "Confirm Action Queries", 1
Application.SetOption "Confirm Document Deletions", 1
Application.SetOption "Confirm Record Changes", 1

em = " Attached please find a snapshot of the completed task" & vbCrLf & _
" This is only a snapshot, you will need to go to:
\\afscvs01\Hqsfs1\Data\fsc\DMC" & vbCrLf & _
" to official close this task. Please press the close button to
official close task."

DoCmd.SendObject acSendReport, "R003_DMC_Com_task", "snapshotformat",
"(e-mail address removed);ronald.cato@ US.army.mil", , "Task
Assignment", em, _
 
K

Ken Snell \(MVP\)

I don't see any problem in the code that would be a possible source of a
truncation issue.

How are the users entering the data into the memo field's control on the
form -- typing? copy/paste?

Are you seeing the truncation in the table itself? or in the snapshot
report?
--

Ken Snell
<MS ACCESS MVP>




Shari said:
The record source is the table. T001_task_table. When the user inputs
data
into the SLD field(text box) it updates the table with the new status
notes.
Below is the code. The SHLD (text box) is a string field to add the
words
"updated and date" showing when the update occured. Cur_stat_info( which
is
a memo field) is the field name in my table.
Thanks for your help.

Private Sub clse_Click()Dim em As String
If IsNull(Me.SUS.Value) Or Me.SUS.Value = " " Then
MsgBox "You must Enter Your Name", vbOKOnly, "Required Data"
Me.SUS.SetFocus
ElseIf IsNull(DLookup("Task_compl_on", "T001_Task_table", "N_task=" & STN)
Then
strcom = "Updated on " & Me.SDT & " " & " " & "- " & Me.SLD & vbCrLf
Me.SHLD = strcom & Me.SHLD

Application.SetOption "Confirm Action Queries", 0
Application.SetOption "Confirm Document Deletions", 0
Application.SetOption "Confirm Record Changes", 0

DoCmd.RunSQL "UPDATE T001_Task_table SET
T001_Task_table.cur_stat_info=SHLD,T001_Task_table.CurStatDte =
SDT,T001_Task_table.who_updtd_task = SUS WHERE [N_task] = STN;"

Application.SetOption "Confirm Action Queries", 1
Application.SetOption "Confirm Document Deletions", 1
Application.SetOption "Confirm Record Changes", 1

em = " Attached please find a snapshot of the completed task" & vbCrLf & _
" This is only a snapshot, you will need to go to:
\\afscvs01\Hqsfs1\Data\fsc\DMC" & vbCrLf & _
" to official close this task. Please press the close button to
official close task."

DoCmd.SendObject acSendReport, "R003_DMC_Com_task", "snapshotformat",
"(e-mail address removed);ronald.cato@ US.army.mil", , "Task
Assignment", em, _

Ken Snell (MVP) said:
Post the SQL statement of the form's Record Source. Identify the field
that
is the memo data type.
Click to expand...
Click to expand...
 
P

Pieter Wijnen

Always use the GetChunk /AppendChunk methods of a Recordset when dealing
with Memo Fields
Also it seems you try to Edit (Update) when there's no record?!?.
Also how is The RunSQL to know the form variables (Controls)??

Assuming your memo field is less than 32K (64K? - don't remember)

this Should do (barring the usual typos)

Dim Db As DAO.Database
Dim Rs As DAO.Recordset

Set Db = Access.CurrentDB()
Set Rs = Db.OpenRecordset("SELECT cur_stat_info, CurStatDte,
who_updtd_task FROM T001_Task_table WHERE N_task=" & Me.STN.Value,
DAO.DbOpenDynaset, DAO.dbSeeChanges)
If Rs.EOF Then
Rs.AddNew
Rs.Fields("N_task").Value = Me.STN.Value
Me.SHLD.Value = "Updated on " & Me.SDT.Value & " - " & Me.SLD.Value &
vbCrLf & Me.SHLD.Value
Rs.Fields("cur_stat_info").AppendChunck(SHLD.Value)
Rs.Fields("CurStatDte").Value = "#" &
VBA.Format(Me.SDT.Value,"yyyy-mm-dd") & "#"
Rs.Fields("who_updtd_task").Value = Me.SUS.Value
Rs.Update
End If
Rs.Close : Set Rs = Nothing
'etc

HTH

Pieter

Shari said:
The record source is the table. T001_task_table. When the user inputs
data
into the SLD field(text box) it updates the table with the new status
notes.
Below is the code. The SHLD (text box) is a string field to add the
words
"updated and date" showing when the update occured. Cur_stat_info( which
is
a memo field) is the field name in my table.
Thanks for your help.

Private Sub clse_Click()Dim em As String
If IsNull(Me.SUS.Value) Or Me.SUS.Value = " " Then
MsgBox "You must Enter Your Name", vbOKOnly, "Required Data"
Me.SUS.SetFocus
ElseIf IsNull(DLookup("Task_compl_on", "T001_Task_table", "N_task=" & STN)
Then
strcom = "Updated on " & Me.SDT & " " & " " & "- " & Me.SLD & vbCrLf
Me.SHLD = strcom & Me.SHLD

Application.SetOption "Confirm Action Queries", 0
Application.SetOption "Confirm Document Deletions", 0
Application.SetOption "Confirm Record Changes", 0

DoCmd.RunSQL "UPDATE T001_Task_table SET
T001_Task_table.cur_stat_info=SHLD,T001_Task_table.CurStatDte =
SDT,T001_Task_table.who_updtd_task = SUS WHERE [N_task] = STN;"

Application.SetOption "Confirm Action Queries", 1
Application.SetOption "Confirm Document Deletions", 1
Application.SetOption "Confirm Record Changes", 1

em = " Attached please find a snapshot of the completed task" & vbCrLf & _
" This is only a snapshot, you will need to go to:
\\afscvs01\Hqsfs1\Data\fsc\DMC" & vbCrLf & _
" to official close this task. Please press the close button to
official close task."

DoCmd.SendObject acSendReport, "R003_DMC_Com_task", "snapshotformat",
"(e-mail address removed);ronald.cato@ US.army.mil", , "Task
Assignment", em, _

Ken Snell (MVP) said:
Post the SQL statement of the form's Record Source. Identify the field
that
is the memo data type.
Click to expand...
Click to expand...
 
P

Pieter Wijnen

might have to ammend the code to

Set Rs = Db.OpenRecordset("SELECT cur_stat_info, CurStatDte,
who_updtd_task, Task_compl_on FROM T001_Task_table WHERE N_task=" &
Me.STN.Value, DAO.DbOpenDynaset, DAO.dbSeeChanges)
If Rs.EOF Then
Rs.AddNew
Rs.Fields("N_task").Value = Me.STN.Value
ElseIf VBA.IsNull(Rs.Fields("Task_compl_on").Value Then
Rs.Edit
Else
Goto Done
End If
Me.SHLD.Value = "Updated on " & Me.SDT.Value & " - " & Me.SLD.Value &
vbCrLf & Me.SHLD.Value
Rs.Fields("cur_stat_info").AppendChunck(SHLD.Value)
Rs.Fields("CurStatDte").Value = "#" &
VBA.Format(Me.SDT.Value,"yyyy-mm-dd") & "#"
Rs.Fields("who_updtd_task").Value = Me.SUS.Value
Rs.Update
Done:
Rs.Close : Set Rs = Nothing
'etc

Pieter

"Pieter Wijnen"
Always use the GetChunk /AppendChunk methods of a Recordset when dealing
with Memo Fields
Also it seems you try to Edit (Update) when there's no record?!?.
Also how is The RunSQL to know the form variables (Controls)??

Assuming your memo field is less than 32K (64K? - don't remember)

this Should do (barring the usual typos)

Dim Db As DAO.Database
Dim Rs As DAO.Recordset

Set Db = Access.CurrentDB()
Set Rs = Db.OpenRecordset("SELECT cur_stat_info, CurStatDte,
who_updtd_task FROM T001_Task_table WHERE N_task=" & Me.STN.Value,
DAO.DbOpenDynaset, DAO.dbSeeChanges)
If Rs.EOF Then
Rs.AddNew
'etc

HTH

Pieter

Shari said:
The record source is the table. T001_task_table. When the user inputs
data
into the SLD field(text box) it updates the table with the new status
notes.
Below is the code. The SHLD (text box) is a string field to add the
words
"updated and date" showing when the update occured. Cur_stat_info( which
is
a memo field) is the field name in my table.
Thanks for your help.

Private Sub clse_Click()Dim em As String
If IsNull(Me.SUS.Value) Or Me.SUS.Value = " " Then
MsgBox "You must Enter Your Name", vbOKOnly, "Required Data"
Me.SUS.SetFocus
ElseIf IsNull(DLookup("Task_compl_on", "T001_Task_table", "N_task=" &
STN)
Then
strcom = "Updated on " & Me.SDT & " " & " " & "- " & Me.SLD & vbCrLf
Me.SHLD = strcom & Me.SHLD

Application.SetOption "Confirm Action Queries", 0
Application.SetOption "Confirm Document Deletions", 0
Application.SetOption "Confirm Record Changes", 0

DoCmd.RunSQL "UPDATE T001_Task_table SET
T001_Task_table.cur_stat_info=SHLD,T001_Task_table.CurStatDte =
SDT,T001_Task_table.who_updtd_task = SUS WHERE [N_task] = STN;"

Application.SetOption "Confirm Action Queries", 1
Application.SetOption "Confirm Document Deletions", 1
Application.SetOption "Confirm Record Changes", 1

em = " Attached please find a snapshot of the completed task" & vbCrLf &
_
" This is only a snapshot, you will need to go to:
\\afscvs01\Hqsfs1\Data\fsc\DMC" & vbCrLf & _
" to official close this task. Please press the close button to
official close task."

DoCmd.SendObject acSendReport, "R003_DMC_Com_task", "snapshotformat",
"(e-mail address removed);ronald.cato@ US.army.mil", , "Task
Assignment", em, _

Ken Snell (MVP) said:
Post the SQL statement of the form's Record Source. Identify the field
that
is the memo data type.
--

Ken Snell
<MS ACCESS MVP>



I have a memo field in my table and the user can update this field from
a
form. The problem is that when they input a lot of data at one time,
it
turns the last lines to garbage and/or truncates the last lines.

I would appreicate any suggestions as to why this is happening.
Is there something in the text box property I should set so access
knows
this is a memo field? ( grasping at straws)

Thank you in advance for your help.
Click to expand...
Click to expand...
Click to expand...
 
S

Shari

They are copy/paste. I see the truncation in the table along with corrupt
data(symbols and whatnot)

Ken Snell (MVP) said:
I don't see any problem in the code that would be a possible source of a
truncation issue.

How are the users entering the data into the memo field's control on the
form -- typing? copy/paste?

Are you seeing the truncation in the table itself? or in the snapshot
report?
--

Ken Snell
<MS ACCESS MVP>




Shari said:
The record source is the table. T001_task_table. When the user inputs
data
into the SLD field(text box) it updates the table with the new status
notes.
Below is the code. The SHLD (text box) is a string field to add the
words
"updated and date" showing when the update occured. Cur_stat_info( which
is
a memo field) is the field name in my table.
Thanks for your help.

Private Sub clse_Click()Dim em As String
If IsNull(Me.SUS.Value) Or Me.SUS.Value = " " Then
MsgBox "You must Enter Your Name", vbOKOnly, "Required Data"
Me.SUS.SetFocus
ElseIf IsNull(DLookup("Task_compl_on", "T001_Task_table", "N_task=" & STN)
Then
strcom = "Updated on " & Me.SDT & " " & " " & "- " & Me.SLD & vbCrLf
Me.SHLD = strcom & Me.SHLD

Application.SetOption "Confirm Action Queries", 0
Application.SetOption "Confirm Document Deletions", 0
Application.SetOption "Confirm Record Changes", 0

DoCmd.RunSQL "UPDATE T001_Task_table SET
T001_Task_table.cur_stat_info=SHLD,T001_Task_table.CurStatDte =
SDT,T001_Task_table.who_updtd_task = SUS WHERE [N_task] = STN;"

Application.SetOption "Confirm Action Queries", 1
Application.SetOption "Confirm Document Deletions", 1
Application.SetOption "Confirm Record Changes", 1

em = " Attached please find a snapshot of the completed task" & vbCrLf & _
" This is only a snapshot, you will need to go to:
\\afscvs01\Hqsfs1\Data\fsc\DMC" & vbCrLf & _
" to official close this task. Please press the close button to
official close task."

DoCmd.SendObject acSendReport, "R003_DMC_Com_task", "snapshotformat",
"(e-mail address removed);ronald.cato@ US.army.mil", , "Task
Assignment", em, _

Ken Snell (MVP) said:
Post the SQL statement of the form's Record Source. Identify the field
that
is the memo data type.
--

Ken Snell
<MS ACCESS MVP>



I have a memo field in my table and the user can update this field from
a
form. The problem is that when they input a lot of data at one time,
it
turns the last lines to garbage and/or truncates the last lines.

I would appreicate any suggestions as to why this is happening.
Is there something in the text box property I should set so access
knows
this is a memo field? ( grasping at straws)

Thank you in advance for your help.
Click to expand...
Click to expand...
Click to expand...
 
K

Ken Snell \(MVP\)

Copy/paste from what? Is the information being pasted from other
applications (WORD or EXCEL, for example)?

--

Ken Snell
<MS ACCESS MVP>


Shari said:
They are copy/paste. I see the truncation in the table along with corrupt
data(symbols and whatnot)

Ken Snell (MVP) said:
I don't see any problem in the code that would be a possible source of a
truncation issue.

How are the users entering the data into the memo field's control on the
form -- typing? copy/paste?

Are you seeing the truncation in the table itself? or in the snapshot
report?
--

Ken Snell
<MS ACCESS MVP>




Shari said:
The record source is the table. T001_task_table. When the user inputs
data
into the SLD field(text box) it updates the table with the new status
notes.
Below is the code. The SHLD (text box) is a string field to add the
words
"updated and date" showing when the update occured. Cur_stat_info(
which
is
a memo field) is the field name in my table.
Thanks for your help.

Private Sub clse_Click()Dim em As String
If IsNull(Me.SUS.Value) Or Me.SUS.Value = " " Then
MsgBox "You must Enter Your Name", vbOKOnly, "Required Data"
Me.SUS.SetFocus
ElseIf IsNull(DLookup("Task_compl_on", "T001_Task_table", "N_task=" &
STN)
Then
strcom = "Updated on " & Me.SDT & " " & " " & "- " & Me.SLD & vbCrLf
Me.SHLD = strcom & Me.SHLD

Application.SetOption "Confirm Action Queries", 0
Application.SetOption "Confirm Document Deletions", 0
Application.SetOption "Confirm Record Changes", 0

DoCmd.RunSQL "UPDATE T001_Task_table SET
T001_Task_table.cur_stat_info=SHLD,T001_Task_table.CurStatDte =
SDT,T001_Task_table.who_updtd_task = SUS WHERE [N_task] = STN;"

Application.SetOption "Confirm Action Queries", 1
Application.SetOption "Confirm Document Deletions", 1
Application.SetOption "Confirm Record Changes", 1

em = " Attached please find a snapshot of the completed task" & vbCrLf
& _
" This is only a snapshot, you will need to go to:
\\afscvs01\Hqsfs1\Data\fsc\DMC" & vbCrLf & _
" to official close this task. Please press the close button to
official close task."

DoCmd.SendObject acSendReport, "R003_DMC_Com_task", "snapshotformat",
"(e-mail address removed);ronald.cato@ US.army.mil", , "Task
Assignment", em, _

:

Post the SQL statement of the form's Record Source. Identify the field
that
is the memo data type.
--

Ken Snell
<MS ACCESS MVP>



I have a memo field in my table and the user can update this field
from
a
form. The problem is that when they input a lot of data at one
time,
it
turns the last lines to garbage and/or truncates the last lines.

I would appreicate any suggestions as to why this is happening.
Is there something in the text box property I should set so access
knows
this is a memo field? ( grasping at straws)

Thank you in advance for your help.
Click to expand...
Click to expand...
Click to expand...
 
S

Shari

Word - could the problem be that user inputs data into a text box on the
form. Is there a limit to how much data can be typed into the text box. Once
the user finishes inputting the data, I update the memo field in the table.

Ken Snell (MVP) said:
Copy/paste from what? Is the information being pasted from other
applications (WORD or EXCEL, for example)?

--

Ken Snell
<MS ACCESS MVP>


Shari said:
They are copy/paste. I see the truncation in the table along with corrupt
data(symbols and whatnot)

Ken Snell (MVP) said:
I don't see any problem in the code that would be a possible source of a
truncation issue.

How are the users entering the data into the memo field's control on the
form -- typing? copy/paste?

Are you seeing the truncation in the table itself? or in the snapshot
report?
--

Ken Snell
<MS ACCESS MVP>




The record source is the table. T001_task_table. When the user inputs
data
into the SLD field(text box) it updates the table with the new status
notes.
Below is the code. The SHLD (text box) is a string field to add the
words
"updated and date" showing when the update occured. Cur_stat_info(
which
is
a memo field) is the field name in my table.
Thanks for your help.

Private Sub clse_Click()Dim em As String
If IsNull(Me.SUS.Value) Or Me.SUS.Value = " " Then
MsgBox "You must Enter Your Name", vbOKOnly, "Required Data"
Me.SUS.SetFocus
ElseIf IsNull(DLookup("Task_compl_on", "T001_Task_table", "N_task=" &
STN)
Then
strcom = "Updated on " & Me.SDT & " " & " " & "- " & Me.SLD & vbCrLf
Me.SHLD = strcom & Me.SHLD

Application.SetOption "Confirm Action Queries", 0
Application.SetOption "Confirm Document Deletions", 0
Application.SetOption "Confirm Record Changes", 0

DoCmd.RunSQL "UPDATE T001_Task_table SET
T001_Task_table.cur_stat_info=SHLD,T001_Task_table.CurStatDte =
SDT,T001_Task_table.who_updtd_task = SUS WHERE [N_task] = STN;"

Application.SetOption "Confirm Action Queries", 1
Application.SetOption "Confirm Document Deletions", 1
Application.SetOption "Confirm Record Changes", 1

em = " Attached please find a snapshot of the completed task" & vbCrLf
& _
" This is only a snapshot, you will need to go to:
\\afscvs01\Hqsfs1\Data\fsc\DMC" & vbCrLf & _
" to official close this task. Please press the close button to
official close task."

DoCmd.SendObject acSendReport, "R003_DMC_Com_task", "snapshotformat",
"(e-mail address removed);ronald.cato@ US.army.mil", , "Task
Assignment", em, _

:

Post the SQL statement of the form's Record Source. Identify the field
that
is the memo data type.
--

Ken Snell
<MS ACCESS MVP>



I have a memo field in my table and the user can update this field
from
a
form. The problem is that when they input a lot of data at one
time,
it
turns the last lines to garbage and/or truncates the last lines.

I would appreicate any suggestions as to why this is happening.
Is there something in the text box property I should set so access
knows
this is a memo field? ( grasping at straws)

Thank you in advance for your help.
Click to expand...
Click to expand...
Click to expand...
 
K

Ken Snell \(MVP\)

Try an experiment... copy the text from Word, paste it into a Notepad (.txt)
file, then copy the text again, and paste it into the ACCESS form's textbox.
Does this work?

Note that other Office applications use different characters for "new line"
than what ACCESS uses.. I don't know for sure what WORD uses, but EXCEL uses
Chr(10) (the line feed character), but ACCESS uses the combination of
Chr(13) and Chr(10) (carriage return and line feed). If ACCESS/Jet sees just
the Chr(10), it'll show as a rectangular box instead of a "new line" of
text.

--

Ken Snell
<MS ACCESS MVP>



Shari said:
Word - could the problem be that user inputs data into a text box on the
form. Is there a limit to how much data can be typed into the text box.
Once
the user finishes inputting the data, I update the memo field in the
table.

Ken Snell (MVP) said:
Copy/paste from what? Is the information being pasted from other
applications (WORD or EXCEL, for example)?

--

Ken Snell
<MS ACCESS MVP>


Shari said:
They are copy/paste. I see the truncation in the table along with
corrupt
data(symbols and whatnot)

:

I don't see any problem in the code that would be a possible source of
a
truncation issue.

How are the users entering the data into the memo field's control on
the
form -- typing? copy/paste?

Are you seeing the truncation in the table itself? or in the snapshot
report?
--

Ken Snell
<MS ACCESS MVP>




The record source is the table. T001_task_table. When the user
inputs
data
into the SLD field(text box) it updates the table with the new
status
notes.
Below is the code. The SHLD (text box) is a string field to add
the
words
"updated and date" showing when the update occured. Cur_stat_info(
which
is
a memo field) is the field name in my table.
Thanks for your help.

Private Sub clse_Click()Dim em As String
If IsNull(Me.SUS.Value) Or Me.SUS.Value = " " Then
MsgBox "You must Enter Your Name", vbOKOnly, "Required Data"
Me.SUS.SetFocus
ElseIf IsNull(DLookup("Task_compl_on", "T001_Task_table", "N_task="
&
STN)
Then
strcom = "Updated on " & Me.SDT & " " & " " & "- " & Me.SLD & vbCrLf
Me.SHLD = strcom & Me.SHLD

Application.SetOption "Confirm Action Queries", 0
Application.SetOption "Confirm Document Deletions", 0
Application.SetOption "Confirm Record Changes", 0

DoCmd.RunSQL "UPDATE T001_Task_table SET
T001_Task_table.cur_stat_info=SHLD,T001_Task_table.CurStatDte =
SDT,T001_Task_table.who_updtd_task = SUS WHERE [N_task] = STN;"

Application.SetOption "Confirm Action Queries", 1
Application.SetOption "Confirm Document Deletions", 1
Application.SetOption "Confirm Record Changes", 1

em = " Attached please find a snapshot of the completed task" &
vbCrLf
& _
" This is only a snapshot, you will need to go to:
\\afscvs01\Hqsfs1\Data\fsc\DMC" & vbCrLf & _
" to official close this task. Please press the close button to
official close task."

DoCmd.SendObject acSendReport, "R003_DMC_Com_task",
"snapshotformat",
"(e-mail address removed);ronald.cato@ US.army.mil", , "Task
Assignment", em, _

:

Post the SQL statement of the form's Record Source. Identify the
field
that
is the memo data type.
--

Ken Snell
<MS ACCESS MVP>



I have a memo field in my table and the user can update this field
from
a
form. The problem is that when they input a lot of data at one
time,
it
turns the last lines to garbage and/or truncates the last lines.

I would appreicate any suggestions as to why this is happening.
Is there something in the text box property I should set so
access
knows
this is a memo field? ( grasping at straws)

Thank you in advance for your help.
Click to expand...
Click to expand...
Click to expand...
 
S

Shari

Thanks I will try that.

Ken Snell (MVP) said:
Try an experiment... copy the text from Word, paste it into a Notepad (.txt)
file, then copy the text again, and paste it into the ACCESS form's textbox.
Does this work?

Note that other Office applications use different characters for "new line"
than what ACCESS uses.. I don't know for sure what WORD uses, but EXCEL uses
Chr(10) (the line feed character), but ACCESS uses the combination of
Chr(13) and Chr(10) (carriage return and line feed). If ACCESS/Jet sees just
the Chr(10), it'll show as a rectangular box instead of a "new line" of
text.

--

Ken Snell
<MS ACCESS MVP>



Shari said:
Word - could the problem be that user inputs data into a text box on the
form. Is there a limit to how much data can be typed into the text box.
Once
the user finishes inputting the data, I update the memo field in the
table.

Ken Snell (MVP) said:
Copy/paste from what? Is the information being pasted from other
applications (WORD or EXCEL, for example)?

--

Ken Snell
<MS ACCESS MVP>


They are copy/paste. I see the truncation in the table along with
corrupt
data(symbols and whatnot)

:

I don't see any problem in the code that would be a possible source of
a
truncation issue.

How are the users entering the data into the memo field's control on
the
form -- typing? copy/paste?

Are you seeing the truncation in the table itself? or in the snapshot
report?
--

Ken Snell
<MS ACCESS MVP>




The record source is the table. T001_task_table. When the user
inputs
data
into the SLD field(text box) it updates the table with the new
status
notes.
Below is the code. The SHLD (text box) is a string field to add
the
words
"updated and date" showing when the update occured. Cur_stat_info(
which
is
a memo field) is the field name in my table.
Thanks for your help.

Private Sub clse_Click()Dim em As String
If IsNull(Me.SUS.Value) Or Me.SUS.Value = " " Then
MsgBox "You must Enter Your Name", vbOKOnly, "Required Data"
Me.SUS.SetFocus
ElseIf IsNull(DLookup("Task_compl_on", "T001_Task_table", "N_task="
&
STN)
Then
strcom = "Updated on " & Me.SDT & " " & " " & "- " & Me.SLD & vbCrLf
Me.SHLD = strcom & Me.SHLD

Application.SetOption "Confirm Action Queries", 0
Application.SetOption "Confirm Document Deletions", 0
Application.SetOption "Confirm Record Changes", 0

DoCmd.RunSQL "UPDATE T001_Task_table SET
T001_Task_table.cur_stat_info=SHLD,T001_Task_table.CurStatDte =
SDT,T001_Task_table.who_updtd_task = SUS WHERE [N_task] = STN;"

Application.SetOption "Confirm Action Queries", 1
Application.SetOption "Confirm Document Deletions", 1
Application.SetOption "Confirm Record Changes", 1

em = " Attached please find a snapshot of the completed task" &
vbCrLf
& _
" This is only a snapshot, you will need to go to:
\\afscvs01\Hqsfs1\Data\fsc\DMC" & vbCrLf & _
" to official close this task. Please press the close button to
official close task."

DoCmd.SendObject acSendReport, "R003_DMC_Com_task",
"snapshotformat",
"(e-mail address removed);ronald.cato@ US.army.mil", , "Task
Assignment", em, _

:

Post the SQL statement of the form's Record Source. Identify the
field
that
is the memo data type.
--

Ken Snell
<MS ACCESS MVP>



I have a memo field in my table and the user can update this field
from
a
form. The problem is that when they input a lot of data at one
time,
it
turns the last lines to garbage and/or truncates the last lines.

I would appreicate any suggestions as to why this is happening.
Is there something in the text box property I should set so
access
knows
this is a memo field? ( grasping at straws)

Thank you in advance for your help.
Click to expand...
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Task Information Dialog Box not making duration changes to task 0
Memo Field Delete last line 4
Finding the right style field in VBA 0
Finding the proper style field and the numbered paragraph value within the style 0
Format change in merge data - Bold formatting after a comma 0
Memo Field in Table Truncated in query results and in report 1
Write to a Memo Field 1
Truncated memo field display 3

Top