Thema Datum  Von Nutzer Rating
Antwort
Rot Function Fehler
24.09.2008 14:11:49 Joe
NotSolved
26.09.2008 18:00:07 jh
NotSolved

Ansicht des Beitrags:
Von:
Joe
Datum:
24.09.2008 14:11:49
Views:
1567
Rating: Antwort:
  Ja
Thema:
Function Fehler
Hallo Leute,

bin ganz neu in der VBA Programmierung. Ich habe die Aufgabe in Access 2007 einen Button zu erstellen, der eine Abfrage durchführt und das erhaltene Ergebnis an Word 2003 (leider habe ich kein Word 2007 schickt und dieser soll dann einen Serienbrief erstellen.
Im Internet habe ich folgenden Quellcode gefunden:

Sub ConnectWord(strSource As String)
'Deklaration
Dim wrdApp As Object
Dim wrdDoc As Object
Dim dbs As DAO.Database
'Datenbank-Objekt öffnen
Set dbs = CurrentDb
'Word öffnen
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
'Neues Dokument erstellen
Set wrdDoc = wrdApp.Documents.Add("Normal.dot")
'Word-Dokument mit Daten verbinden
wrdDoc.MailMerge.OpenDataSource _
Name:=dbs.Name, _
LinkToSource:=True, _
SQLStatement:="SELECT " & strSource & ".* FROM " & strSource & ";"
End Sub

Um diesen Quellcode an einen Makro zu übergeben habe ich es in eine Funktion eingebaut und dies sieht dann folgendermaßen aus:

Public Function AbsageErstellen()
Sub ConnectWord(strSource As String)
'Deklaration
Dim wrdApp As Object
Dim wrdDoc As Object
Dim dbs As DAO.Database
'Datenbank-Objekt öffnen
Set dbs = CurrentDb
'Word öffnen
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
'Neues Dokument erstellen
Set wrdDoc = wrdApp.Documents.Add("Normal.dot")
'Word-Dokument mit Daten verbinden
wrdDoc.MailMerge.OpenDataSource _
Name:=dbs.Name, _
LinkToSource:=True, _
SQLStatement:="SELECT " & strSource & ".* FROM " & strSource & ";"
End Sub
End Function


wenn ich dann den Button betätige bzw. Makro ausführe kommt eine Fehlermeldung:

Fehler beim Kompilieren!

End Function erwartet.

Ich komme nicht mehr weiter...

Hoffe auf Eure hilfe...

Danke...

Gruß Joe

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Function Fehler
24.09.2008 14:11:49 Joe
NotSolved
26.09.2008 18:00:07 jh
NotSolved