Data Exporting

I am looking to export certain variables from ms access to ms word, Does
anyone have any idea how this is done. So far my function collects data from
two separate tables, and can open the word document that I need, but I am
unable to figure out how to make it write the collected data to the new word
document. Any help would be great.

Public Sub ShipmentRequest_Click()

Dim inv As Double
Dim getINV As String
Dim invNum As Double
Dim Exists As Boolean
Exists = False
inv = Me.Invoice

Me.OrderBy = "Invoice #"
Me.OrderByOn = True
DoCmd.GoToRecord acDataForm, "Sales Order Log", acLast


Do
getINV = InputBox("Enter Invoice Number", "Shipment Request", getINV)
Loop While (Not IsNumeric(getINV)) And getINV <> ""
If getINV <> "" Then invNum = getINV
Me.Invoice.SetFocus
DoCmd.FindRecord invNum, acEntire, , acSearchAll, True, acCurrent
If Me.Invoice = getINV Then
Exists = True
Else
MsgBox "Invoice Number Not Found"
End If

If Exists = True Then

Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("customerdbnew")
rst.MoveLast
Dim dbtotal As Integer
dbtotal = rst.Fields("ID") - 11
rst.MoveFirst


Dim CusNum As String
CusNum = 0
If Me.Customer__ <> "" Then
CusNum = Me.Customer__
End If
MsgBox CusNum
Dim i As Integer
i = 0
Dim PONum As String
PONum = 0
If Me.Customer_PO__ <> "" Then
PONum = Me.Customer_PO__
End If
MsgBox PONum
Do
If CusNum = rst.Fields("Customer Number") Then
Dim BillTo As String
BillTo = " "
If rst.Fields("Bill To") <> "" Then
BillTo = rst.Fields("Bill To")
End If

Dim ShipTo As String
ShipTo = " "
If rst.Fields("Ship To") <> "" Then
ShipTo = rst.Fields("Ship To")
End If

Dim VAT As String
VAT = " "
If rst.Fields("VAT #") <> "" Then
VAT = rst.Fields("VAT #")
End If

Exit Do
Else
rst.MoveNext
i = i + 1
End If
Loop While i < dbtotal
End If

MsgBox BillTo
MsgBox ShipTo
MsgBox VAT
Dim LWordDoc As String
Dim oApp As Object
'Path to the word document
LWordDoc = "\\Backup\misos bu\Released\SALE\Sale-4004_REV_9.doc"
'Create an instance of MS Word
Set oApp = CreateObject(Class:="Word.Application")
oApp.Visible = True

'Open the Document
oApp.Documents.Open filename:=LWordDoc



End Sub


--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200508/1

It looks like you're trying to create an invoice in Word using a
template. (Boy, ain't I a sleuth?!)

This is covered really well in Access Developer's Handbook, Desktop
Edition. There's sample code you can use/incorporate into your own
application. Essentially, there's an "Invoice" recordset and an
"InvoiceDetails" recordset, and if memory serves, they're sent
individually. The Invoice stuff populates the "top" of the invoice -
customer, date, blah blah. then the second recordset is converted to a
table in Word. if you have the basics of Access down and understand at
least basic VBA, then you should have no problem with it. Well worth
the $60 or whatever they're asking. But don't take my word for it - go
to Amazon and read the reviews yourself.

If you have a list of data, then you use the number of records, and create a
table to accomodate them. If you want to position the other field freely on
the page/pages, then a template with bookmarks, will do it. Do your totals
in access, and add them in the same way. I learned most of this through
making macros using the macro maker, then adapting them into access.

To make a table,
Add this function to your modules, then modify it to suit.and call it.
Theres examples of some formatting also.
If you need some example of populating a bookmark, let me know, and i'll try
to dig it out.
--------------------------------------------------------------------
Public Function OpenDoc() As Boolean 'file type is the constant value from
the document type

Dim myWord As Word.Application
Dim rst As DAO.Recordset
Dim sWordTemplate As String
Dim i As Integer
Dim mTable As Word.Table
Dim myRange As Word.Range
Dim test As Range
Set myWord = New Word.Application
myWord.Visible = True
myWord.Documents.Add "g:\Access\Development\Normal.dot"
Set myRange = myWord.ActiveDocument.Bookmarks.Item("a1").Range


myWord.ActiveDocument.Tables.Add myRange, 10, 2


With myWord.ActiveDocument.Tables(1)
.Borders.InsideLineStyle = wdLineStyleNone
.Borders.OutsideLineStyle = wdLineStyleNone
.Columns(1).Borders.OutsideLineStyle = wdLineStyleSingle
For i = 1 To 10
.Cell(i, 1).Range.Text = "Column 1, row " & i
.Cell(i, 2).Range.Text = "Column 2, row " & i
Next i

End With

If MsgBox("Save ? ", vbYesNo) = vbYes Then
myWord.ActiveDocument.SaveAs "c:\My Documents\Your.doc"
End If


Set myWord = Nothing

End Function
----------------------------------------------------------------

Gerry Abbott