autotext in the forms

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Is it possible to have a shortcut for autotext (about 15 lines) to be inputed
in the form field. I am not sure that I can set up a default value with this
amounth of text. In addition, this text is slightly formated (bold subtitles)
Thanks
 
Do you want to insert the text every time you open the form for input, or
only when the user select to do so?

If every time you open the form for input, then on the load event of the
form you can assign the value to the field

me.fieldname="Insert text here"

If you want to insert the text only when the user select to do so, then
create a button next to the text field and on the on click event you can
write the line above.

About the bold or underline, it can be specify for the all field only, you
can't specify bold for a part of the field.
 
Yes, try it
On the on click event enter the code
me.FieldName = "insert text " & vbCrLf & _
"more text " & vbCrLf & _
"more text"
 
I have inserted the following
Private Sub Command4_Click()
Me.ROS = "General: no fever, chills, no weight loss"
Me.ROS = "Nose: no nose bleeding, no congestion, no postnasal drip"
Me.ROS = "Throat and Mouth: no hoarseness, no sore throat, no bleeding gums,
no mouth ulcers"
Me.ROS = "Cardiovascular: No chest pain, no palpitations, no claudication"
Me.ROS = "Chest and Lungs: No cough, no sputum production, no shortness of
breath."
Me.ROS = "Gastrointestinal: No indigestion, no vomiting, bowel movements
unchanged"
Me.ROS = "Lymph: No tenderness or enlargement of lymph nodes"
Me.ROS = "Musculoskeletal: No joint pain, no deformities, no muscle pain"
Me.ROS = "Hematologic: No spontaneous bleeding or bruising."
Me.ROS = "Endocrine: no heat/cold intolerance, no polydipsia, no polyuria,
no hair changes."
Me.ROS = "Psychiatric: no depression, no suicidal thoughts, no mood changes."
End Sub

Only last line inserts when I click the button. If I can insert all text,
then this option will work for me. Also, how can I make text bold or
italized.
Thanks
 
THis code worked perfect, thanks.
Now, how can I bold and italize some of the text (first one - two words in
each line)
 
Try this
Private Sub Command4_Click()
Me.ROS = "General: no fever, chills, no weight loss" & vbCrLf & _
"Nose: no nose bleeding, no congestion, no postnasal drip" & vbCrLf & _
"Throat and Mouth: no hoarseness, no sore throat, no bleeding gums, no
mouth ulcers" & vbCrLf & _
"Cardiovascular: No chest pain, no palpitations, no claudication" &
vbCrLf & _
"Chest and Lungs: No cough, no sputum production, no shortness of
breath." & vbCrLf & _
"Gastrointestinal: No indigestion, no vomiting, bowel movements
unchanged" & vbCrLf & _
"Lymph: No tenderness or enlargement of lymph nodes" & vbCrLf & _
"Musculoskeletal: No joint pain, no deformities, no muscle pain" &
vbCrLf & _
"Hematologic: No spontaneous bleeding or bruising." & vbCrLf & _
"Endocrine: no heat/cold intolerance, no polydipsia, no polyuria, no
hair changes." & vbCrLf & _
"Psychiatric: no depression, no suicidal thoughts, no mood changes."
End Sub
 
Back
Top