Office: Access soll Word-Dokument erzeugen und SPEICHERN

Hallo Ihr Beiden!
Vielen Dank auch für Eure Hilfe.
Also ich verstehe die Welt nicht mehr! Die Fehlerroutine ist eingebaut.

Die Fehlermeldung lautet immer noch:
Die Ausführung dieser Anwendung wurde wegen eines Laufzeitfehlers angehalten.
Die Anwendung kann nicht weiter ausgeführt werden und wird beendet.

Aber jetzt kommt es! Dieser Fehler tritt erst auf, seitdem ich
unter Verweise ein Häkchen bei Microsoft-Word gesetzt habe.

Und der Fehler tritt auch an anderen Stellen auf.

Z.B. hier:

' ######### Aufruf ##############

Private Sub Befehl_open_KdOrdner2_Click()
On Error GoTo Err_Befehl_open_KdOrdner2_Click

Dim stOrdnerPfad As String

' ### Aufruf meiner neuen Prozedur
Call proc_open_KdOrdner77("C:\_ext\Orga\")


Exit_Befehl_open_KdOrdner2_Click:
Exit Sub

Err_Befehl_open_KdOrdner2_Click:
MsgBox Err.Description
Resume Exit_Befehl_open_KdOrdner2_Click

End Sub


' ######### Sub ##############
Sub proc_open_KdOrdner77(stOrdnerPfad As String)
On Error GoTo Err_proc_open_KdOrdner77

Dim stKdName As String
Dim returnCode As Variant
Dim ReturnWert_von_GetAttr2
Dim Antwort2

' ### INIT ###
ReturnWert_von_GetAttr2 = 3
MsgBox ("err081201 - 2 - proc_open_KdOrdner77")

' ### hier stürzt das Programm in der Runtime nun auch ab! ####
If IsNull(Trim(Me.KdOrdner)) Then
' Feld KdOrdner mit Name und Vorname vorbelegen
MsgBox ("err081201 - 3 - proc_open_KdOrdner77")
stKdName = Me.[TESTDB.NAME] & (" " + Me.VORNAME)
MsgBox ("err081201 - 4 - proc_open_KdOrdner77")
Else
MsgBox ("err081201 - 5 - proc_open_KdOrdner77")
stKdName = Me.KdOrdner
End If

MsgBox ("err081201 - 6 - proc_open_KdOrdner77")



Exit_proc_open_KdOrdner77:
Exit Sub

Err_proc_open_KdOrdner77:
MsgBox Err.Description


End Sub

Ich weiß! Es war ziemlich blöd von mir ein Feld mit Feldnamen 'name' zu deklarieren. Aber das noch zu ändern wäre ziemlich schwer, da die Anwendung schon zu groß ist.
Aber das ging jetzt schon Jahrelang gut! ERst seit dem Word-Häkchen spinnt das Programm.


Zum alten Thema:
Es ist wirklich so:
Ich setze den Verweis auf Word innerhalb einer Office 2007 Umgebung
und in der Zielumgebung ist Office 2002 installiert.

Insofern sollte man über Late-Binding nachdenken.
Ok! Hast Du eine Idee wie man das macht?

 

Hallo,

über Late-Binding findest Du sicher hier im Forum genug gute Beiträge, in denen das
Prinzip erklärt wird.

Warum Dein Programm sich verabschiedet, kann ich aus der Ferne nicht so
genau sehen. Vielleicht solltest Du generell statt dem '.' bei Referenzen auf
Steuerelemente das '!' verwenden. Welche MsgBox wird denn als letzte gezeigt?

Folgendes ist mir noch aufgefallen:
Code:

Trim() entfernt von einem String führende und abschließende Leerzeichen und
liefert einen String zurück, welcher ja dann nicht Null ist.
Trim(Null) liefert Null - jedenfalls bei mir unter AC03.
Das einzige, was mir einfällt, falls Dein Programm an genau dieser Zeile
aussteigt ist:

Code:

Ansonsten erscheint mir noch

Code:

seltsam. Kann man in einem Steuerelementnamen einen '.' (Punkt) verwenden?

Hm, leider war das alles, was mir gerade einfällt.

Grüße
Michael

 

Hi.

Code:

Bitte verwende Code-Tags. Ist besser zu lesen. ;-)

Was hat das mit der MsgBox da am Hut? Wo stürzt er genau ab, bzw bringt den Fehler?

 

Nachtrag:

Word mit Late-Binding:

Code:

EDIT:\ Dein Code aus #1 verwendet eigentlich bereits Late-Binding. Vielleicht hast Du ein grundsätzlich anderes Problem?

 

Hallo Sascha!
Danke für Deine Hilfe!
Ich arbeite daran ...

 

Hallo Sascha!
Du schreibst: "Bitte verwende Code-Tags"

Was meinst du damit?

 

Hi Sascha!
Du hast mich tatsächlich auf die richtige Spur gebracht!

es liegt tatsächlich am trim()

so stürzt Access in der Runtime schon ab, wenn ich die Prozedur nur aufrufe:
If IsNull(Trim(Me.KdOrdner)) Then

und ohne dem Trim() funktioniert es:
If IsNull(Me.KdOrdner) Then

Warum ich den Trim()-Befehl überhaupt verwendet habe? Nun, ich habe immer Probleme mit der Abfrage von leeren Strings. Manche empfehlen die Stringlänge mit len() auf 0 zu prüfen, was bei mir nicht immer gelingt.

Deshalb habe ich gedacht, falls im Feld nur ein Blank steht, dann will ich den sicherheitshalber mit Trim() loswerden.

So nun suche ich weiter im Wordaufruf ...

Danke nochmal!

 

Hi nochmal!
Also ich habe die Folgende Prozedur, welche in der Runtime schon beim Aufruf abstürzt:


Private Sub proc_Word_KdAbsender()
On Error GoTo Err_proc_Word_KdAbsender

' 14.11.2008 777
' ausgelagert weil Runtime am NB abstürzt, vorher Version abfragen

Dim sAbsender As String
Dim sAbsender2 As String
Dim sDatum As String
Dim sMfg As String

Dim sKdOrdner As String

Dim oWord As Word.Application ' sobald ich diese Zeile nicht mehr ausklammere stürzt Access in der Runtime
' schon beim Aufruf dieser Prozedur ab!

' Dim oWordWork As Word.Document ' Word Dokument

MsgBox ("08 12 03 - proc_Word_KdAbsender() - 2") ' Diese Zeile wird nicht mehr ausgeführt!



Exit_proc_Word_KdAbsender:
Exit Sub

Err_proc_Word_KdAbsender:
MsgBox Err.Description
Resume Exit_proc_Word_KdAbsender

End Sub


Ich habe mir erstmal so beholfen, dass ich diese Funktion in der Runtime nicht mehr zugänglich mache.

Meine Umgebung sieht so aus:
Entwicklungsumgebung:
WIN XP, SP3
Access 2002, Version 6771
Visual Basic 6.5
Word 2002 (allerdings ist Outlook, Excel in der Version 2007 installiert)

Runtime - Umgebung:
WIN XP, SP2
Access 2002, Version 6501
Word 2002

 

Ich heiße zwar nicht Sascha, aber fühle mich trotzdem ein wenig zuständig. *wink.gif* Bitte lese den als wichtig markierten Thread: http://www.ms-office-forum.net/forum...?t=102899#usec - dann weißt du mehr.

 

Was hast Du da ausgelagert. sorry, sehe gerade...die ganze Sub....

Code:

Für diese Deklaration ist ein Verweis auf Word erforderlich, das sollte aber nach obigem klar sein. Bevor nun die Sub zum Exitus von Access führt, wird aber eine Fehlermeldung angezeigt, oder?

Code:

Das ist klar, weil er bei vorherigem Code schon das zeitliche segnet.

Verwendung von MsgBox:

Code:

Die Klammern verwende ich nur, wenn ich die geklickte Antwort auswerten will. Funktionieren sollte Dein Code an der Stelle aber trotzdem.

Auch wenn Arne bereits zum Thema Code-Tags Stellung bezogen hat.

 

Hallo Sascha, hallo an all die anderen Interessierten!
Sorry! Mein Fehler!
Ich habe da einiges rumgetestet und dann die obigge Sub hierherkopiert.
Zum Test hatte ich schon ganz am Anfang der Sub eine msgBox eingebaut.
Und vorsichtshalber auch noch eine msgBox bevor die Sub aufgerufen wird.

Ergebnis:
Die letzte MsgBox die sich meldet ist die, die vor dem Sub-Aufruf steht.

Soll heißen, sobald ich den obigen Code in der Sub stehen habe, stürzt mein Access mit der Runtime schon beim Aufruf der Sub ab.

Und da kommt eben keine Fehlermeldung mehr

Die Fehlermeldung lautet immer noch:
Die Ausführung dieser Anwendung wurde wegen eines Laufzeitfehlers angehalten.
Die Anwendung kann nicht weiter ausgeführt werden und wird beendet.

 

Bis bald!
Paul

 

Zeigst Du bitte mal den aktuellen Code in einem Code Tag. Bei der Schenllsichtung stelle ich keinen Fehler ind Fehlerbehandlung fest, insofern müsste auch eine Fehler Meldung erscheinen.

 

Danke das Du mal über meinen Code schauen willst!
Hier ist er:

Code:

Bis bald
Paul!

 

Code:

Ich wiederhole: Diese Deklaration verwendest Du bei Early Binding. Bitte ändern in:

Code:

weil Du doch hier auch Late Binding verwendest und jetzt die Object Variable mit einem Word Objekt füllst:

Code:

Komsich finde ich trotzdem: Warum verabschiedet er sich ohne Fehlermedlung?