VBA- Copy in Access

[sbadvipour]

I have been asked to create a copy button in an access form to copy the Data in the fields that users enter so they can paste it in an internal system. I crated button and created VBA code "on the click:

Private Sub Command6_Click()
 On Error GoTo Err_cmdDuplicate_Click
   DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
 
Exit_cmdDuplicate_Click:
    Exit Sub
 
Err_cmdDuplicate_Click:
     MsgBox Err.Description
    Resume Exit_cmdDuplicate_Click
 
End Sub

I am having 2 problems:
it copies all the data with the headers but and it paste it vertically other than horizontally . which I guess it needs to be formatted but I am not sure how since I am not VBA SAVVY. I have to add since the code was grabbing everything in the form even the information that I didn't want to and it looked like a chaos ,I created a query then a report based on the query then made copy button with the code behind it.
I appreciate your help in advance.

[twinnyfo]

If it is only certain fields that you need to copy, then you will ave to write the VBA to select those particular fields and save them separately. The code you posted simply copies the entire record.

[zmbd]

the fields that users enter so they can paste it in an internal system

Looks like you are using a word document, is this correct?
If so, take a look at:
home > topics > microsoft access / vba > insights > application automation
The two examples are for Outlook and Excel; however, simple step to do this same thing with Word. Before we can help you do that we would need a bit more information about what you are doing with the information... may be easier to create a report in Access or to link the Word document to the database using the mail-merge if the access-report can't handle something (although, since Access2003 I've been moving more and more of my stuff from external Word merges to internal reports).

[sbadvipour]

no I was just trying to show where its pasted

[sbadvipour]

I found the code

Private Sub cmdCopy_Click()
On Error GoTo Err_cmdDuplicate_Click
 
 
 
'Copies values from agent entered data fields into
'required format and copies to
'system clipboard.
 
'control name and type are as follows:
'CboTeam
'CboTax
'TboCallBack
'TboCaller
'TboBusName
'CboAuthType
'TboAuthID
'CboContact
'TboDetail
'TboBal
'TboDelqs
 
 
Application.Echo False
Me.PasteBox.Visible = True
 
Me!PasteBox.Value = _
"Team:  " & Me!CboTeam & vbNewLine & _
"Tax Type: " & Me!CboTax & vbNewLine & _
"Phone:  " & Me!TboCallBack & vbNewLine & _
"Caller:  " & Me!TboCaller & vbNewLine & _
"Business Name:  " & Me!TboBusnAME & vbNewLine & _
"Authentication Method:  " & Me!CboAuthType & vbNewLine & _
"Authentication ID:  " & Me!TboAuthID & vbNewLine & _
"Contact Reason:  " & Me!CboContact & vbNewLine _
    & vbNewLine & _
"Call Detail:" & vbNewLine & _
Me!TboDetail & vbNewLine _
    & vbNewLine & _
"Balance:  " & Me!TboBal & vbNewLine & _
"Delinquent Periods:  " & Me!TboDelqs
 
 
 
Me.PasteBox.SetFocus
DoCmd.RunCommand acCmdCopy
 
Me.cmdcopy.SetFocus
 
 
Me.PasteBox.Visible = False
Application.Echo True
 
 
Exit_cmdDuplicate_Click:
    Exit Sub
Application.Echo True
 
Err_cmdDuplicate_Click:
     MsgBox Err.Description
Application.Echo True
    Resume Exit_cmdDuplicate_Click
Application.Echo True
End Sub

[zmbd]

So is this the code that you are using now... or is this Code that you found somewhere online?

You also haven't answered if you've tried to do this by creating report in Access based on your query or a mail-merge document in Word based on your query. Both methods can yield some very sophisticated reports and are my first goto methods verses VBA.