Posted by David on 07/23/05 00:24

I want to loop through a table (tblrelmanager) and merge the results with a

> word doc. The trouble is I am not used to SQL coding and I cant get my
> WHERE

> statement to work.

> Can anyone tell me where I am going wrong

>

> Thanks in advance

> Dave

>

>

>

>

>

> Set rst = db.OpenRecordset("tblrelmanager")

>

> Do Until rst.EOF

>

> Set objWord = GetObject("N:\Customer Management Centre\Warrington\Reach

> Team\Database\fire risk assessment.doc", "Word.Document")

> objWord.Application.Visible = True

> objWord.MailMerge.OpenDataSource _

> Name:="D:\Documents and Settings\All Users\Documents\WSS\WSS.mdb", _

> LinkToSource:=True, _

> Connection:="table tblAccenture", _

> SQLStatement:="SELECT * FROM [tblAccenture] WHERE [Relationship

> Manager] = rst.[Relationship Manager]"

>

> objWord.MailMerge.Execute

> rst.MoveNext

> Loop

[Back to original message]