Cuestión : Fusión de correo de la palabra del problema de la tabla del acceso

Estoy intentando combinar el valor de una tabla del acceso 2007 a una fusión de correo del documento de la palabra.  La tabla tendrá solamente un expediente.  El documento Quote.doc de la palabra se fija con los fileds y es acentuado en los usuarios \ mesa \ QuoteMaster.accdb

When de C:\Documents and Settings\All de la base de datos que el código funciona, yo recibe un error en palabra: acceso no del hallazgo del
Could del archivo de C:\Documents and Settings\All de los usuarios \ de la mesa \ Quotes.mdb'.

in, consigo un error visual de Baisc: error “5922” del
Run-time: se destaca el
Word no podía abrir los datos source.

When que chasco elimino errores, el siguiente:
objDoc.MailMerge.OpenDataSource _
Name:= " usuarios \ mesa \ cotizaciones \ QuoteMaster.accdb de C:\Documents and Settings\All”, _
LinkToSource: =True, conexión: = " tblSendQuote de la TABLA”, _
SQLStatement: = " SELECTO * la ayuda del


Any del tblSendQuote] “sería appreciated.

 class= > " claro " 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 secundario " del id= " codeSnippet953950 del 
Private " notpretty " ()
NOMBRE DE FICHERO dévil como secuencia
objWord dévil como nuevo Word.Application
objDoc dévil como Word.Document
'Hacer la palabra visible
objWord.Application.Visible = verdad
'Fija el documento de la palabra para hacer la combinación del correo
Fijar el objDoc = objWord.Documents.Open (“c:\Quotes\Quote.doc ")
objWord.Application.Visible = verdad
'Fijar la fuente de datos de la fusión de correo
_ de objDoc.MailMerge.OpenDataSource
Nombre: = " usuarios \ mesa \ cotizaciones \ QuoteMaster.accdb de C:\Documents and Settings\All ", _
LinkToSource: =True, conexión: = " tblSendQuote de la TABLA ", _
SQLStatement: = " SELECCIONAR * de tblSendQuote] “

objDoc.MailMerge.Destination = wdSendToNewDocument
objDoc.MailMerge.Execute
    
NOMBRE DE FICHERO = “prueba File.doc”
objWord.Application.Documents (1).SaveAs (“C:\Quotes\” y NOMBRE DE FICHERO)
objWord.Application.Documents (wdDoNotSaveChanges 2).Close
objWord.Application.Documents (NOMBRE DE FICHERO). Cierre
    
Fijar el objWord = nada
Fijar el objDoc = nada
Terminar el submarino
class= del

Respuesta : Fusión de correo de la palabra del problema de la tabla del acceso

Aparece que usted tiene un soporte incomparable en la línea 14.  Suprimir el soporte cerrado o agregar un soporte de la abertura antes de tblSenQuote.

--
Graham
Otras soluciones  
 
programming4us programming4us