Use VBA to copy table contents to the clipboard?

[Deutz]

I have a 2003 Access database with a table containing one number field and one text field and would like to be able to copy all records in that table into the clipboard ready for pasting into email or Word. When you copy and paste table contents manually you get the table outline and headings which is what I want. How can you do it with VBA though?



Thanks in advance

[slave138]

This might help with what you are trying to do:

Export Access Data with VBA

[Deutz]

Thanks for that link. The code exports the fields to Word as required but I am having trouble lining up the text as not all rows tab evenly in Word for some reason.

Any suggestions would be appreciated.

Here is my code:

Set db = CurrentDb()
Set rs = db.OpenRecordset("tblResult")
Set fld1 = rs.Fields(0)
Set fld2 = rs.Fields(1)

WordEx
sel.TypeText Text:="DIN: " & vbTab & vbTab & "Letter Name: " & vbCrLf
sel.TypeText Text:="==== " & vbTab & vbTab & "========= " & vbCrLf
Do Until rs.EOF
sel.TypeText Text:=fld1.Value & vbTab & vbTab & fld2.Value & vbCrLf
rs.MoveNext
Loop

[ajetrumpet]

I have a 2003 Access database with a table containing one number field and one text field and would like to be able to copy all records in that table into the clipboard ready for pasting into email or Word. When you copy and paste table contents manually you get the table outline and headings which is what I want. How can you do it with VBA though?

Thanks in advance

you should never have to do this through VBA.