Вопрос : Слияние почты слова от проблемы таблицы доступа

Я пытаюсь слить значение от таблицы доступа 2007 к слиянию почты документа слова.  Таблица только будет иметь один показатель.  Документ Quote.doc слова setup с fileds и остроконечн на потребителях C:\Documents and Settings\All базы данных \ настольный компьютер \ QuoteMaster.accdb

When, котор Кодий бежит, я получает ошибку в слове: доступ не находки
Could архива C:\Documents and Settings\All потребителей \ настольный компьютер \ Quotes.mdb'.

in, я получаю визуально ошибку Baisc: ошибка «5922»
Run-time: выделено
Word было неспособно раскрыть данные source.

When, котор я щелкаю отлаживаю, следующий:
objDoc.MailMerge.OpenDataSource _
Name:= " потребители C:\Documents and Settings\All \ настольный компьютер \ цитаты \ QuoteMaster.accdb», _
LinkToSource: =True, соединение: = " tblSendQuote ТАБЛИЦЫ», _
SQLStatement: = " ОТБОРНО * ОТ помощью


Any tblSendQuote] «было бы appreciated.

class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

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 " id= " codeSnippet953950 Private Sub () Тусклый FILENAME как шнур Тусклое objWord как новое Word.Application Тусклое objDoc как Word.Document 'Сделайте слово видимым objWord.Application.Visible = True 'Устанавливает документ слова для того чтобы сделать сливать почты Установите objDoc = objWord.Documents.Open («c:\Quotes\Quote.doc ") objWord.Application.Visible = True 'Установите источник данным по слияния почты _ objDoc.MailMerge.OpenDataSource Имя: = " потребители C:\Documents and Settings\All \ настольный компьютер \ цитаты \ QuoteMaster.accdb ", _ LinkToSource: =True, соединение: = " tblSendQuote ТАБЛИЦЫ ", _ SQLStatement: = " ВЫБЕРИТЕ * ОТ tblSendQuote] « objDoc.MailMerge.Destination = wdSendToNewDocument objDoc.MailMerge.Execute FILENAME = «испытание File.doc» objWord.Application.Documents (1).SaveAs (" C:\Quotes\» & FILENAME) objWord.Application.Documents (wdDoNotSaveChanges 2).Close objWord.Application.Documents (FILENAME). Конец Установите objWord = ничего Установите objDoc = ничего Закончите подводную лодку

class=

Ответ : Слияние почты слова от проблемы таблицы доступа

Оно кажется вы имеет бесподобный кронштейн в линии 14.  Или уничтожьте заключительный кронштейн или добавьте кронштейн отверстия перед tblSenQuote.

--
Graham