1. Willkommen im Forum für alle Datenbanken! Registriere Dich kostenlos und diskutiere über DBs wie Mysql, MariaDB, Oracle, Sql-Server, Postgres, Access uvm
    Information ausblenden

Access Serienbrief

Dieses Thema im Forum "Microsoft Access" wurde erstellt von Mara7, 30 Juli 2019.

  1. Mara7

    Mara7 Neuer Benutzer

    Hallo,
    Folgender Code funktioniert super mit Access 2010 nicht aber mit Access 2016 hier geht immer die Datenquelle verloren:
    Private Sub btnWord2_Click()
    Dim objword As Word.Application
    Dim objDocument As Word.Document
    On Error Resume Next
    Set objword = GetObject(, "Word.Application")
    If Err.Number > 0 Then
    On Error GoTo 0
    Set objword = CreateObject("Word.Application")
    Else
    objword.Activate
    End If

    DoCmd.OutputTo acOutputQuery, "qyrAdressen", acFormatRTF, "S:\Privat\DB-Vorlagen\Adressen.rtf", False, ""
    With objword
    .Visible = True

    .Documents.Open "S:\Privat\DB-Vorlagen\Brief01.docx"

    End With

    objword.Visible = True

    End Sub
    Kann mir jemand einen Tipp geben?
    Danke
    Mara7
     
  2. Dravion

    Dravion Aktiver Benutzer

    Ohne genaue Fehlermeldung können wir nicht helfen.
     
  3. Mara7

    Mara7 Neuer Benutzer

    Hallo Dravion!
    Es gibt keine Fehlermeldung dazu. Mit Office 2016 geht die Datenquelle verloren. RTF-Datei ist aktualisiert, muss aber jedes Mal in das Dokument neu eingebunden werden "Erstellen\Serienbrief, Daten abrufen\Datenquelle öffnen, Zusammenführen.
    LG
    Mara7
     
  4. Mara7

    Mara7 Neuer Benutzer

    Habe das Problem gelöscht, es war der fehlende Eintrag in der Registry.
     
Die Seite wird geladen...

Diese Seite empfehlen

  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden