Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Word Template zieht Daten aus Access 2007

Frage Microsoft Microsoft Office

Mitglied: RicoTumb

RicoTumb (Level 1) - Jetzt verbinden

03.05.2010 um 11:20 Uhr, 4276 Aufrufe, 1 Kommentar

Hallo zusammen,

ich habe ein Word Template mit folgendem Code:

01.
Sub LeseDaten() 
02.
03.
' LeseDaten Makro 
04.
     
05.
    ActiveDocument.MailMerge.OpenDataSource Name:= _ 
06.
        "\\dwdf035\esf\Anfragen\Anfragen.MDB", ConfirmConversions:=False, _ 
07.
        ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _ 
08.
        PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _ 
09.
        WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _ 
10.
        Connection:= _ 
11.
        "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=\\dwdf035\esf\Anfragen\Anfragen.MDB;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet " _ 
12.
        , SQLStatement:="SELECT * FROM `Angebote`", SQLStatement1:="", SubType:= _ 
13.
        wdMergeSubTypeAccess 
14.
         
15.
     
16.
    With ActiveDocument.MailMerge 
17.
        .Destination = wdSendToNewDocument 
18.
        .SuppressBlankLines = True 
19.
        With .DataSource 
20.
            .FirstRecord = wdDefaultFirstRecord 
21.
            .LastRecord = wdDefaultLastRecord 
22.
        End With 
23.
        .Execute Pause:=False 
24.
    End With 
25.
     
26.
End Sub
Die Datenbank aus der für das Template Daten gezogen werden ist Anfragen.MDB (wie oben im Quellpfad 2 mal angegeben). Anstelle dieser DB möchte ich nun eine andere DB einsetzen. Es ist eigentlich die selbe DB, nur dass sie in Access 2007 (also .accdb) konvertiert worden ist. Die "neue" DB liegt im selben Verzeichnis. Wenn ich jedoch nur den Namen der Datei (also Anfragen_neu.accdb statt Anfragen.MDB) umändere, funktioniert das Makro nicht. Es funktioniert nicht heißt: Das Word-Makro läuft nicht durch. Als Fehlermeldung kommt: Die Zeichenfolge ist länger als 255 Zeichen. Wenn ich dann auf Debuggen klicke wird der obere Teil des Word-Makros (also der Teil in dem der Quell-Pfad steht) komplett gelb markiert.

Hier auch die Function aus der DB, welche das Word Template aufruft:

01.
Function OpenAngebot(lDatei As String) 
02.
    Dim oApp As Object 
03.
    Dim aNr As String 
04.
    Dim dStr As String 
05.
 
06.
 
07.
    Set oApp = CreateObject("Word.Application") 
08.
    oApp.Visible = True 
09.
    oApp.Documents.Open FileName:=lDatei + Form_AngebotErstellen.Template.Value + ".doc" 
10.
     
11.
    oApp.Application.Run "LeseDaten" 
12.
    oApp.Documents(Form_AngebotErstellen.Template.Value + ".doc").Close SaveChanges:=wdDoNotSaveChanges 
13.
 
14.
 
15.
End Function
Könnte mir jemand evtl. sagen, weshalb das nicht funktioniert, obwohl es die selbe DB ist die ich einsetze, nur eben konvertiert???

Vielen Dank schonmal...

Rico
Mitglied: RicoTumb
03.05.2010 um 13:36 Uhr
Hallo,

mein Problem hat sich von selbst erledigt. Der Connection String war nach der Änderung des Dateinamen länger als 255 Zeichen, was nicht erlaubt ist. Mit einem kürzeren Dateinamen funktioniert alles wunderbar!

Grüße,
Rico
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst Access 2007 (2)

Frage von Everest zum Thema Microsoft Office ...

VB for Applications
Von einer Exceltabelle Daten in eine Informix Datenbank übertragen (4)

Frage von Voosjey zum Thema VB for Applications ...

Microsoft Office
MS Access 2016 Oberfläche nach Win 10 Creators Upgrade zerstört (3)

Frage von 3lingus zum Thema Microsoft Office ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
LAN, WAN, Wireless
Zwei Subnetze mit je eigenem Router und Internetzugang verbinden (17)

Frage von hannsgmaulwurf zum Thema LAN, WAN, Wireless ...

Windows Server
WIndows Server 2016 core auf dem Intel NUC NUC5i5RYK i5 5250U (17)

Frage von IxxZett zum Thema Windows Server ...

Windows Server
gelöst Einzelnes Windows Update über GPO deinstallieren (16)

Frage von lordofremixes zum Thema Windows Server ...