Copy Fields in Text Format to Clipboard

[chris]

I'm not sure this is even feasible. What I want to do is create a
command button. When this command button is pressed, it taes field
values and puts them into text format. I think I know how to do this
part thru code. Then I want to copy this text to the clipboard so
that I can paste it into a memo field. This is the part I need help
with.

I will create the text by the following method on the On Click Event
of the command button:

Dim strBaseLineText As String

strBaseLineText = "Project due date = " & Text1.Value & ". Project
completion date = " & Text2.Value

How can I copy this value into a clipboard or a at the end of the data
in a memo field?

Thank you,
Chris

[salad]

chris wrote:

I'm not sure this is even feasible. What I want to do is create a
command button. When this command button is pressed, it taes field
values and puts them into text format. I think I know how to do this
part thru code. Then I want to copy this text to the clipboard so
that I can paste it into a memo field. This is the part I need help
with.

I will create the text by the following method on the On Click Event
of the command button:

Dim strBaseLineText As String

strBaseLineText = "Project due date = " & Text1.Value & ". Project
completion date = " & Text2.Value

How can I copy this value into a clipboard or a at the end of the data
in a memo field?

Thank you,
Chris

IF your memo field is on a form you could enter
Me.YourMemoFiel dName = Me.YourMemoFiel dName & strBaseLineText

If not on the form, you need to find the record and then update it.
Dim rst As DAO.Recordset
set rst = CUrrentdb.openr ecordset("YourT ableName,dbopen dynaset)
rst.findfirst "YourIDFieldNam e = " & Me.YourIDFieldN ame
if not rst.NoMatch then
rst.Edit
rst!YourMemoFie ldName = rst!YourMemoFie ldName & strBaseLineText
rst.Update
Endif
rst.close
set rst = Nothing