Office: (Office 2000) Datenabfrage mit Serienbrief Word ausdrucken

ebs17 · 12. Januar 2012

Ich komme mal auf die ursprüngliche Fragestellung zurück:

Habe eine Abfrage mit folgenden Feldern

Name | Bücherbarcode | Ausleihdatum

Schüler hab z.B. 6 Bücher ausgeliehen, würden 6 Datensätze in der Abfrage stehen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit dieser Abfrage wird pro Buch ein Datensatz erzeugt, worauf der Seriendruck entsprechend reagiert. Logisch.

Die Lösung für einen Seriendruck, die Maxel schon andeutet, aber nicht richtig beschreibt, könnte so aussehen:
Du verwendest als Seriendruckquelle eine geänderte Abfrage:
Code:

SELECT DISTINCT P.Name,
ADOSQLListe("SELECT Code, Datum FROM tblCodes WHERE IDPerson = " & P.ID) AS Auflistung
FROM tblPersonen AS P INNER JOIN tblCodes AS C ON P.ID = C.IDPerson
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Public Function ADOSQLListe(ByVal SQLString As String, _
Optional ByVal NumRows As Long = 2000, _
Optional ByVal ColumnDelimiter As String = vbTab, _
Optional ByVal RowDelimiter As String = vbCrLf, _
Optional ByVal NullExpr As String = "") As String

Dim rs As ADODB.Recordset
If NumRows = 0 Or NumRows < -1 Then Exit Function
Set rs = New ADODB.Recordset
rs.Open SQLString, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
If Not rs Is Nothing Then
If Not (rs.EOF And rs.BOF) Then
ADOSQLListe = rs.GetString(, NumRows, ColumnDelimiter, RowDelimiter, NullExpr)
End If
rs.Close
Set rs = Nothing
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

So klappt es dann auch mit dem Seriendruck in gewohnter Manier.

Anne Berg · 7. Januar 2021

Hi,

wenn ich nochmal auf mein Problem zurückkommen darf...

von Atrus2711

den Pfad kannst du ja vorgeben... per Automation z.B.

Auch ein normaler Serienbrief hat eine Verbindung zu irgendeiner Datenquelle - irgendwo muss die Information halt übergeben werden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wie man einen Serienbrief an eine Datenquelle bindet weiß ich, das geht über die Eigenschaften des MailMerge-Objekts.
Aber wie bekomme ich den oben gezeigten Code dynamisch ins Word-Dokument?
Wenn dazu noch jemand eine Idee hätte - rein interessehalber. *Smilie

Atrus2711 · 13. Januar 2012

Die Frage vereinfacht sich auf "wie kriege ich per Automation das Database-Feld in das Dokument?"

Code:

ActiveDocument.Range.InsertDatabase Format:=0, Style:=0, LinkToSource:=False, _
Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=U:\vhs\Nordwind_2007.accdb;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Part" _
, SQLStatement:= _
"SELECT `Bestell-Nr`, `Kunden-Code` FROM `Bestellungen` WHERE ((`Kunden-Code` = 'ALFKI'))" _
& "", PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument _
:="", WritePasswordTemplate:="", DataSource:="U:\vhs\Nordwind_2007.accdb" _
, From:=-1, To:=-1, IncludeFields:=False
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anne Berg · 13. Januar 2012

Upps, das ging ja schnell - hast du schon auf die Frage gewartet? *wink.gif*
Vielen Dank nochmal, ich werde nun alles ausprobieren und ziehe mich zurück in die Bastelstube...

Atrus2711 · 13. Januar 2012

Ich teste es gerade selbst. Versuch macht kluch *Smilie

Das ALFKI steht momentan noch explizit drin. Nächster Schritt: Einbetten der Feldfunktion für das Kundenfeld.

espada · 15. Januar 2012

Hallo zusammen,

erstmal schönen Dank für die vielen Anregungen.

Bin dabei mal die Antworten abzuarbeiten und umzusetzen.

Viele Wege für nach Rom*Smilie

Office: (Office 2000) Datenabfrage mit Serienbrief Word ausdrucken

Datenabfrage mit Serienbrief Word ausdrucken

Datenabfrage mit Serienbrief Word ausdrucken

Datenabfrage mit Serienbrief Word ausdrucken

Datenabfrage mit Serienbrief Word ausdrucken - Similar Threads - Datenabfrage Serienbrief Word

Word serianbrief

Serienbrief, Datum plus 7 Tage

Übertragung von Formeln in ergänzte Abfragezeilen

Datenabfrage

Excel - Externe Datenabfrage fehler

Datenabfrage aus Excel File aber Daten aus Zelle

Datenabfrage Excel2003