I would have done a search in the forum but didnt see anyway to do it.

my code below will work if i leave out:
With DataSource
.FirstRecord = Forms!frmGNOA.CurrentRecord
.LastRecord = Forms!frmAGNOA.CurrentRecord
End With

but it does not pull the current record it only gets the first one and
merges it. what do i need to change to make it get the current record
to merge???


Set oApp = CreateObject("Word.Application")

oApp.Visible = True

Set oDoc = oApp.Documents.Add(conagnoa)

oDoc.MailMerge.OpenDataSource Name:="C:\re\support.mdb", _
Connection:="TABLE tblAGNOA", SQLStatement:="SELECT * FROM [tblAGNOA]"

With oDoc.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True

With DataSource
.FirstRecord = Forms!frmGNOA.CurrentRecord
.LastRecord = Forms!frmAGNOA.CurrentRecord
End With

.Execute pause:=True

End With

oDoc.Close savechanges:=wdDoNotSaveChanges
oApp.ScreenUpdating = True


--
oakleyp2
Posted from - http://www.officehelp.in

Why would the current record be anything other than the first record?

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"oakleyp2" wrote in message
news

I would have done a search in the forum but didnt see anyway to do it.

my code below will work if i leave out:
With DataSource
FirstRecord = Forms!frmGNOA.CurrentRecord
LastRecord = Forms!frmAGNOA.CurrentRecord
End With

but it does not pull the current record it only gets the first one and
merges it. what do i need to change to make it get the current record
to merge???


Set oApp = CreateObject("Word.Application")

oApp.Visible = True

Set oDoc = oApp.Documents.Add(conagnoa)

oDoc.MailMerge.OpenDataSource Name:="C:\re\support.mdb", _
Connection:="TABLE tblAGNOA", SQLStatement:="SELECT * FROM [tblAGNOA]"

With oDoc.MailMerge
Destination = wdSendToNewDocument
MailAsAttachment = False
MailAddressFieldName = ""
MailSubject = ""
SuppressBlankLines = True

With DataSource
FirstRecord = Forms!frmGNOA.CurrentRecord
LastRecord = Forms!frmAGNOA.CurrentRecord
End With

Execute pause:=True

End With

oDoc.Close savechanges:=wdDoNotSaveChanges
oApp.ScreenUpdating = True


--
oakleyp2
Posted from - http://www.officehelp.in

If you have a table that has like 15 records and you want to merge only
the 5th one.


--
oakleyp2
Posted from - http://www.officehelp.in

But where in your code do you be select a particular record?

See the following page of Bill Gate's look-a-like website at:

http://www.members.shaw.ca/AlbertKal...rge/index.html

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"oakleyp2" wrote in message
news

If you have a table that has like 15 records and you want to merge only
the 5th one.


--
oakleyp2
Posted from - http://www.officehelp.in