Office: MS-Office-Forum Team

Hallo,

bin gerade wieder nach Hause gekommen, und habe gesehen, daß ihr ja zwischenzeitlich so fleißig gewesen seid. Phillips Beispiel läuft bei mir jetzt einwandfrei, momentan mit AccXP. Werde es später nochmal mit 2k versuchen. Danke für Eure Mühe.

@Manuela, bei EICDoc bekomme ich nicht diesen ominösen Fehler 5922. Es passiert einfach irgendwann nichts mehr, Access stürzt ab und Word ist mit einigen Instanzen in den Prozessen zu sehen. Wenn Dir also dazu noch irgendetwas einfallen würde wäre toll. Vorab schon mal danke für Deine Mühe.

Auch von mir die besten Wünsche für ein schönes Wochenende.

 

\@manuela - ich hatte ja das selbe problem wie peppi ... es liegt an dieser "where in (' etc." klausel im sSQL ...

imho ist die von mir erstellte version der von dir vorgeschlagenen in sachen performance und stabilität überlegen *unschuldig.gif*

es geht einfach schneller word mit einer fertigen abfrage in access zu verbinden als word per sql die filterung zu überlassen

außerdem habe ich mit word-docs mit über 100 seiten nicht besonders gute erfahrungen gemacht *Smilie

ein wehrmutstropfen: wenn du eine .mde hast muss immer günthers methode mit der steuerdatei herhalten (relativ langsam wenn es um viele 300+ datensätze geht) oder du schmeisst die abfrage ins .mdb backend (so habe ich es gemacht wenn es viele viele datensätze sein mussten)

naja ich denke die frage nach seriengeschichten ist damit abgegessen *Smilie

NEIN halt! ich habe da noch eine hübsche serien-FAX funktion *lachen.gif*

aber jetzt muss ich heim

 

Lieber Phillip,

mein Beispiel hab ich auf die Schnelle heute Morgen um fünf geschrieben *cool.gif* ! Das mit der Performance und der Stabilität ist mir schon klar (ich verwende in meiner Kunden-DB auch keine IN-Klausel & setze gespeicherte Abfragen ein). Es sollte eigentlich nur den Aufruf MailMerge verdeutlichen.

IMO ärgert mich nach wie vor der Fehler 5922 bzw. die Tatsache, das Peppi Probleme mit EICDocu hat (da ich dort u.a. auch mit Late-Binding arbeite).

Hast du oder vielleicht auch die Anderen diesbezüglich eine Lösung? Auf Early-Binding möchte ich eigentlich nicht zurückgreifen (w. d. üblichen Verweisproblemen).

Lieben Gruß

 

Zu SQL und Office-Produkten,
da ich eigentlich von der Oracelseite komme aber viele unsere Datenbanken zu Standalone-Lösungen
konvertiere bin ich auf das Problem mit SQL-Abfragen schon öfter gestossen.
Habe mir mal den Spaß gemacht und Manuelas Beispiel auf eine Oraceldatenbank aufzusetzen und
siehe da es geht einwandfrei, und ich hatte vorher auch diesen Fehler.
Es bestädigt mich immer wieder darin, daß SQL Statments und Access noch nicht hundertprozentig zusammen arbeiten. Hatte schon oft das Phänomen,
daß Sql-Staments die auf Oracel einwandfreie Ergebnisse geliefert haben in Accesss nur Müll
geliefert haben.

 

\@manuela ... meine allergrößte hochachtung! morgens um fünf ist mit mir nicht viel los *Smilie

zur 5922 kann ich leider nichts weiter beitragen

 

ich habe lange überlegt ob ich überhaupt auf diesen beitrag posten kann/ darf / soll, aber wiso löst ihr abgesehen von der sache mit dem listenfeld das ganze nicht über eine herkömmliche access word automation wie z.b.

Dim Pfad As String
Dim wordobj As New Word.Application
Pfad = Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name)))
DoCmd.OutputTo acOutputQuery, "Abfrage", acFormatRTF, Pfad & "daten.rtf", False
With wordobj
.Documents.Open Pfad & "brief.doc"
.Visible = True
.Activate
End With

Im Word Document dann noch folgenden Code:

ActiveDocument.MailMerge.OpenDataSource Name:=ActiveDocument.Path & "\daten.rtf"
ActiveDocument.MailMerge.EditMainDocument
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = False

Sollte ich die Problemstellung gänzlich falsch verstanden haben tuts mir leid.

Ich habe früher anstelle des .rtf Formates docmd.transfertext verwendet auf Grund einiger Probleme je nach Word Version bin ich auf diese Lösung umgestiegen.

 

\@nesti - das ist doch im prinzip recht ähnlich mit

 

\@nesti - dein tip hat mir gerade sehr geholfen! auf 2 rechnern im netzewerk ging es mit der "transfer-text" methode ... auf dem driten nicht *frown.gif* ... alle drei fast identische software!
1.pc w2k office2k sr-2
2.pc wxp-home office2k sr-1
3.pc wxp-pro office2k sr-1 fehler 5922 allerdings ging es zwischenzeitlich .. dann aber nichtmehr *frown.gif*

na jedenfalls hats mit output2RTF funktioniert!!

danke

 

Hallo Manuela,

danke für das Beispiel.
Leider habe ich mit deinem und dem ergänzten von Phillip etwas Probleme. Es liegt aber mit Sicherheit daran, dass ich meine MDB/MDE mit einer bestimmten *.mdw verbunden habe. Selbst wenn ich alle Berechtigungen auf diese Abfrage und auch auf die Datenbank selbst gebe, kommt Word immer mit einer Abfrage, in der man die Datenquelle bzw. Tabelle auswählen soll.




Dialog, wenn ich eine Abfrage als Datenherkunft angebe.

Wenn ich dann die Tabelle bzw. Abfrage auswähle und bestätige, klappt auch alles wunderbar. Aber ich möchte diesen Dialog meinen Kunden nicht zumuten. Hat Jemand eine Idee, woran das liegen kann?








Dialog, wenn ich eine Tabelle als Datenherkunft angebe.

HINWEIS:
Verbinde ich die Abfrage manuell mit der selben Vorlage, macht Word anstandslos den Serienbrief ohne Abfrage. *confused.gif*

@phillip

Doch, aber die habe ich wirklich nicht gesehen. Mag sein, dass ich im aktuellen Access-Forum gesucht und mir nur die Beiträge mit Quellcode angesehen habe. Ich gelobe Besserung. *wink.gif*

 

Hi Günther,

du musst eine ODBC-Datenquelle angeben, dann funktioniert es ;o). Anbei die Modifikation meiner kleinen Routine, Phillip Beispiel-DB müsstest du dementsprechend verändern.

Achtung: Bevor du den ersten Aufruf startest, solltest du vorab einmal manuell deine Vorlage bzw. dein Dokument mit einer Standard-Datenquelle verbinden und speichern, da sonst (je nachdem) ein Automatisierungsfehler bzw. schwerer Ausnahmefehler erscheint.

Modifizierte Funktion:

Code:

 

Hallo Manuela,

danke für die Ergänzungen. Ich werde es heute Abend gleich einmal versuchen und mich wieder melden. *top

 

Hallo Manuela,

ich danke dir noch einmal recht herzlich für deine Bemühungen, aber leider bekomme ich den Laufzeitfehler "438". Die DNS lautet bei mir auch "Microsoft Access-Datenbank".

Selbst wenn ich die Tabelle in eine Temp_MDB auslagere und von der eigentlichen Arbeitsdatei den Serienbrief aufrufe und dabei die Abfrage aus der Temp-MDB übergebe, erhalte ich die Abfrage nach der Datenquelle (Tabelle/Abfrage).

Nehme ich zum Testen deine Testdatenbank, erstelle eine neue Worddatei, verbinde diese Worddatei als Serienbrief mit der Abfrage aus deiner Beispieldate, speicher & schließe diese Worddatei und lasse dein Beispiel laufen, erhalte ich plötzlich die Abfrage nach dem Datenbanknamen.

Beispiel




Was läuft bei mir falsch?

Liegt es darn, dass ich die Accessanmeldung aktiviert habe? Aber weshalb geht es dann mit Manuelas Beispiel?
Oder mache ich beim Erstellen des Word-Dokumentes etwas falsch?
Für sachdienliche *grins Hinweise wäre ich sehr dankbar.

 

Ich bin ein kleines Stück weiter.
Der o.g. Fehler tritt auf, wenn man am VBA-Code etwas geänder und die Datenbank im Anschluß nicht neu kompiliert hat. Meine MDB ist in der Zwischenzeit ca. 55 MB groß, vielleicht hat die Größe ja etwas damit zu tun.

Wenn ich kompiliere, stelle ich nun mit Manuelas Code das gleiche Verhalten wie Gaby fest. Entweder es kommt der Fehler 5922 oder es tut sich ca. 5 Minuten (bei 109 Datensätze) gar nichts und plötzlich ist die Word-Instanz da und alle Briefe werden angezeigt.

Ich werde mal mit Phillips Code testen.

 

Guten Morgen Günther,

es ist schade, dass es nicht funktioniert (beim Testen habe ich auch mit einer kleinen geschützten DB gearbeitet, sprich mit Anmeldedialog), der Wurm steckt 100% in Word. Ein Angebot von mir:

Schick mir mal deine Dummy-DB mit Dummy-MDW und zusätzlich noch dein Word-Dokument (oder Vorlage) und ich teste es mal bei mir.

Als letzte Alternative würde ich dir auch vorschlagen, dies über eine Textdatei zu realisieren, aber eigentlich ist das ja nicht der Sinn der Sache oder!

Lieben Gruß

 

Hallo Günther,

nachfolgend das Codebeispiel, welches bei mir einwandfrei funktioniert. Allerdings schiebe ich erst per vba die selektierten Daten in eine bestehende als rtf-Datei, die dann als Datenquelle benutzt wird. Anschließend wird Word aufgerufen und der Serienbrief anhand dieser Daten erstellt:

Code: