Questione : Fusione di posta di parola dal problema della Tabella di accesso

Sto provando a fondere il valore da una tabella di accesso 2007 ad una fusione di posta del documento di parola.  La tabella avrà soltanto un'annotazione.  Il documento Quote.doc di parola è installato con i fileds ed è aguzzo agli utenti \ tavolo \ QuoteMaster.accdb

When che di C:\Documents and Settings\All della base di dati il codice funziona, io riceve un errore nella parola: accesso non del ritrovamento del
Could della lima di C:\Documents and Settings\All degli utenti \ tavolo \ Quotes.mdb'.

in, ottengo un errore visivo di Baisc: errore “5922„ del
Run-time: il
Word non poteva aprire i dati source.

When che mi scatto metto a punto, il seguente è evidenziato:
objDoc.MailMerge.OpenDataSource _
Name:= " utenti \ tavolo \ citazioni \ QuoteMaster.accdb di C:\Documents and Settings\All„, _
LinkToSource: =True, collegamento: = " tblSendQuote della TABELLA„, _
SQLStatement: = " PRESCELTO * l'aiuto del


Any dal tblSendQuote] “sarebbe appreciated.

 class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
class= cmdPrintQuote_Click secondario " del id= " codeSnippet953950 del 
Private " notpretty " ()
NOME DI SCHEDARIO fioco come stringa
objWord fioco come nuovo Word.Application
objDoc fioco come Word.Document
'Rendere la parola visibile
objWord.Application.Visible = allineano
'Regola il documento di parola per fare la fusione della posta
Regolare il objDoc = objWord.Documents.Open (“c:\Quotes\Quote.doc ")
objWord.Application.Visible = allineano
'Fissare la fonte di dati di fusione di posta
_ di objDoc.MailMerge.OpenDataSource
Nome: = " utenti \ tavolo \ citazioni \ QuoteMaster.accdb di C:\Documents and Settings\All ", _
LinkToSource: =True, collegamento: = " tblSendQuote della TABELLA ", _
SQLStatement: = " SELEZIONARE * A PARTIRE da tblSendQuote] “

objDoc.MailMerge.Destination = wdSendToNewDocument
objDoc.MailMerge.Execute
    
NOME DI SCHEDARIO = “prova File.doc„
objWord.Application.Documents (1).SaveAs (" C:\Quotes\„ & NOME DI SCHEDARIO)
objWord.Application.Documents (wdDoNotSaveChanges 2).Close
objWord.Application.Documents (NOME DI SCHEDARIO). Fine
    
Regolare il objWord = niente
Regolare il objDoc = niente
Concludere il sommergibile
class= del

Risposta : Fusione di posta di parola dal problema della Tabella di accesso

Sembra che abbiate una staffa ineguagliata nella linea 14.  Cancellare la staffa closing o aggiungere una staffa di apertura prima di tblSenQuote.

--
Graham
Altre soluzioni  
 
programming4us programming4us