Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 4282 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 Schnellbausteine aus Word 2007 nach Word 2016 übernehmen (2)

Frage von TiTux zum Thema Microsoft Office ...

Microsoft Office
gelöst Access 2007 (2)

Frage von Everest zum Thema Microsoft Office ...

Vmware
ESXI Template erstellen (2)

Frage von Phill93 zum Thema Vmware ...

Neue Wissensbeiträge
Humor (lol)

Taschenrechner in IOS kaputt!

(5)

Information von Lochkartenstanzer zum Thema Humor (lol) ...

Sicherheit

Kanadischer Geheimdienst veröffentlicht erstmals Sicherheitssoftware

(3)

Information von BassFishFox zum Thema Sicherheit ...

Virtualisierung

Docker Monitoring und Steuerung per "sen"

Tipp von Frank zum Thema Virtualisierung ...

Heiß diskutierte Inhalte
Windows 7
Abbruch bei Brennvorgang (19)

Frage von Simulant zum Thema Windows 7 ...

Router & Routing
Externe IP von innen erreichbar machen (16)

Frage von Windows10Gegner zum Thema Router & Routing ...

Firewall
WIndows 7 RDP Massen Angriff (14)

Frage von Motte990 zum Thema Firewall ...