Vraag : De Fusie van de Post van Word van het Probleem van de Lijst van de Toegang

Ik probeer om de waarde van een lijst van de Toegang 2007 aan een fusie van de het documentpost van Word samen te voegen.  De lijst zal slechts één verslag hebben.  Het woorddocument Quote.doc is opstelling met fileds en is op de gegevensbestandC:\Documents and Settings\All Desktop \ QuoteMaster.accdb

When van Gebruikers \ de codelooppas wordt gericht, ontvang ik een fout in Word dat:
Could om dossierC:\Documents and Settings\All de Toegang Quotes.mdb'.

in, krijg ik een Visuele Fout Baisc:
Run-time fout „5922“:
Word kon de gegevens source.

When openen niet die ik zuiver heb geklikt, wordt het volgende benadrukt:
objDoc.MailMerge.OpenDataSource _
Name: = " C:\Documents and Settings\All de Desktop \ van Gebruikers \ citeert \ QuoteMaster.accdb“, _
LinkToSource: =True, Verbinding: = " LIJST tblSendQuote“, _
SQLStatement: = " UITGEZOCHT * VAN tblSendQuote] „de hulp


Any appreciated.

 zijn
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
van 
Private SubcmdPrintQuote_Click ()
Schemerige FILENAME als Koord
Schemerige objWord als Nieuwe Word.Application
Schemerige objDoc als Word.Document
'Maak Word zichtbaar
objWord.Application.Visible = Waar
'Plaatst het document van Word om post het samenvoegen te doen
Reeks objDoc = objWord.Documents.Open („c:\Quotes\Quote.doc“)
objWord.Application.Visible = Waar
'Plaats de gegevensbron van de postfusie
objDoc.MailMerge.OpenDataSource _
Naam: = " C:\Documents and Settings\All de Desktop \ van Gebruikers \ citeert \ QuoteMaster.accdb ", _
LinkToSource: =True, Verbinding: = " LIJST tblSendQuote ", _
SQLStatement: = " SELECTEER * UIT tblSendQuote] „

objDoc.MailMerge.Destination = wdSendToNewDocument
objDoc.MailMerge.Execute
    
FILENAME = „Test File.doc“
objWord.Application.Documents (1) .SaveAs („C:\Quotes\“ & FILENAME)
objWord.Application.Documents (2). Dichte wdDoNotSaveChanges
objWord.Application.Documents (FILENAME). Sluit
    
Plaats objWord = niets
Plaats objDoc = niets
Beëindig Sub

Antwoord : De Fusie van de Post van Word van het Probleem van de Lijst van de Toegang

Het verschijnt u een onovertroffen steun in lijn 14 hebt.  Of schrap de sluitende steun of voeg een het openen steun vóór tblSenQuote toe.

--
Graham
Andere oplossingen  
 
programming4us programming4us