Setting Text Box Value from Multiple other Text Boxes

[mwolfod]

I want to set the value of a text box on a form to equal values assembled from other text boxes on the same form:



[LastName][FirstName] followed by the current date.

So I want a string stored in the new text box such as:

SmithJohn-02-14-2010


I would then like this string automatically copied to the Windows Clipboard and/or with an adjacent command button that allows the user to do this.


Thanks for the help!

[maximus]

suppose I have 4 text boxes txt1,txt2,txt3,txt4 on the control source put:

txt1=FirstName
txt2=LastName
txt3=Date

=[txt1]&"" & [txt2] & "-" & [txt3]

[mwolfod]

Beautiful, but how I do insert the current date in mm-dd-yyyy format.

Also, any idea how this entire text string can then be automatically copied to the Windows Clipboard, and I would also like to set up a Command Button so that the users can do the Copy manually.


Thanks much!

[maximus]

I have used three textboxes in this example:
Text0=FirstName
Text2=LastName
Text3=is were the string is assembled

I will have first assembled my string in the textbox Text3 attaching this expression in its controlsource. this expression will ensure your current date is formatted as u want:

=[Text0] & [Text2] & "-" & Format(Date(),"mm-dd-yyyy")

I have attached this code to the onclick event of a Commandbutton this code will copy the string to the windows clipboard.

Me.Text3.SetFocus
RunCommand acCmdCopy

Mark the thread solved if this solves your problem.

[mwolfod]

Yes, thanks.

I had worked the date problem out myself, but couldn't work the code out for the Copy.

The Copy to Clipboard code works fine with a command button, but for some reason I cannot get it to work in the AfterUpdate or OnChange fields on various TextBoxes on the form.

Thanks.