MS-Office-Forum

Zurück   MS-Office-Forum > Archive > Microsoft Access - Archiv > Microsoft Access - Archiv (2000)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 04.01.2001, 00:41   #1
Quwi
Standard Datensatz Weitergabe an Word 2000

Hallo,

suche ein Tool, dass meinen aktuellen Datensatz aus Access 2000 unter SQL an eine Word Dot weiter gibt. Alle die unter A97 gelaufen sind, funktionieren nicht.
Wer weiß hilfe.

Danke Erhard
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.01.2001, 19:45   #2
GASSNER
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Erhard

Schicke dir mal ein Beispiel mit dem ich aus Access 2000 eine Vorlage.dot in Word 2000 mit dem in der DB aktuellen Datensatz mittels Buttondruck drucke:

Code:

Private Sub Befehl20_Click()
On Error GoTo fehler
Dim oApp As Object
Dim DOC As Document
Dim DBName As String
Const DOCName = "GAESTEMELDUNG.dot"
 Set oApp = CreateObject("Word.Application")
 oApp.Visible = True
 Set DOC = oApp.Documents.Open(Application.CurrentProject. _
 Path & "\" & DOCName)
DBName = Application.CurrentDb.Name
With DOC.MailMerge
 .OpenDataSource Name:= _
 DBName, SQLStatement:= _
"SELECT * FROM [tbladressen] WHERE AdressID =" & _
AdressID.Value
 .Destination = wdSendToPrinter
 .Execute
 End With
 oApp.Quit savechanges:=False
 Exit Sub
fehler:
 MsgBox Err.Description
 Exit Sub
End Sub
Die Vorlage muss in Word mit den Seriendruckfeldern der Access-Tabelle erstellt werden. Funktioniert bestens

Vielleicht hilft dir das weiter
Gruß Walter
GASSNER ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.01.2001, 22:02   #3
Horst Schulte
Standard

Hi,

das sollte auch klappen:

Code:

Private Sub Word_Export_Click()
Dim WordObj As Object
Dim Adresse As String
Dim LF As String * 2
Dim Ende As Label
On Error GoTo Text:
Set WordObj = GetObject(, "Word.Application")
        
LF = Chr$(13) + Chr$(10)
If Not IsNull(Me!Kundenstamm_Name) Then
    Adresse = Me!Kundenstamm_Name & LF & Me!ZEILE2 & LF & Me!STRASSE & LF & LF & Me!PLZ_ORT
MsgBox "Die Anschrift wurde an Word übertragen!", vbOKOnly

End If

WordObj.Selection.TypeText Text:=Adresse & LF
Set WordObj = Nothing
GoTo Ende:


Text:
MsgBox "Die Adresse kann nicht eingefügt werden, weil Word nicht gestartet ist!", vbOKOnly + vbCritical
Ende:
End Sub
Grüße
Horst http://www.horst-schulte.de
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:06 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.