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