Frage : Wort-Post-Mischen vom Zugangs-Tabellen-Problem

Ich versuche, den Wert von einer Tabelle des Zugangs 2007 zu einem Wortdokumenten-Postmischen zu vermischen.  Die Tabelle hat nur eine Aufzeichnung.  Das Wortdokument Quote.doc wird mit den fileds gegründet und ist an den Datenbank-C:\Documents and Settings\All-Benutzern \ Schreibtisch \ QuoteMaster.accdb

When, das der Code läuft, ich empfangen eine Störung im Wort spitz:
Could nicht des Entdeckungakten-C:\Documents and Settings\All-Benutzer-\ Schreibtisch-\ Quotes.mdb'.

in Zugang, erhalte ich eine SichtBaisc Störung:
Run-time Störung „5922“:
Word war nicht imstande, das Datenquelle.

When zu öffnen, das ich ausprüfe anklicke, das folgende wird hervorgehoben:
objDoc.MailMerge.OpenDataSource _
Name:= " C:\Documents and Settings\All-Benutzer \ Schreibtisch \ Anführungsstriche \ QuoteMaster.accdb“, _
LinkToSource: =True, Anschluss: = " TABELLE tblSendQuote“, _
SQLStatement: = " AUSERWÄHLT * vom tblSendQuote] „


Any würde Hilfe appreciated.

 sein 
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:

Private VorcmdPrintQuote_Click ()
Schwacher DATEINAME als Schnur
Schwaches objWord als neues Word.Application
Schwaches objDoc als Word.Document
'Wort sichtbar bilden
objWord.Application.Visible = richten aus
'Stellt das Wortdokument ein, um das Postmischen zu tun
objDoc = objWord.Documents.Open („c:\Quotes\Quote.doc ") einstellen
objWord.Application.Visible = richten aus
'Die Postmischendatenquelle einstellen
objDoc.MailMerge.OpenDataSource _
Name: = " C:\Documents and Settings\All-Benutzer \ Schreibtisch \ Anführungsstriche \ QuoteMaster.accdb ", _
LinkToSource: =True, Anschluss: = " TABELLE tblSendQuote ", _
SQLStatement: = " * vom tblSendQuote VORWÄHLEN] „

objDoc.MailMerge.Destination = wdSendToNewDocument
objDoc.MailMerge.Execute
    
DATEINAME = „Test File.doc“
objWord.Application.Documents (1).SaveAs („C:\Quotes\“ u. DATEINAME)
objWord.Application.Documents (wdDoNotSaveChanges 2).Close
objWord.Application.Documents (DATEINAME). Abschluss
    
objWord einstellen = nichts
objDoc einstellen = nichts
Unterseeboot beenden

Antwort : Wort-Post-Mischen vom Zugangs-Tabellen-Problem

Es scheint, dass Sie einen nicht angepassten Haltewinkel in Linie 14 haben.  Entweder den closing Haltewinkel löschen oder einen Öffnungshaltewinkel vor tblSenQuote hinzufügen.

--
Graham
Weitere Lösungen  
 
programming4us programming4us