PDA

Vollständige Version anzeigen : Access an Word / Laufzeitfehler / Remote Server


Hermes
22.10.2001, 09:11
Hallo Profis

Zum Verzweifeln, das Ding will nicht. Beim Aufstarten geht's. Dann bleibt es immer wieder hängen. Auch die dll habe ich ersetzt. Was mache ich bloss falsch?

On Error GoTo wordstarten
Set Word = GetObject(, "Word.Application")
If Not Word Is Nothing Then
Set Word = Nothing
Word.Visible = True
Word.Documents.Add
Word.Activate
GoTo weiter
End If

wordstarten:
If Err = 429 Then
Set Word = CreateObject("Word.Application")
Word.Visible = True
Word.Documents.Add
Word.Activate
GoTo weiter
Else
MsgBox "Konnte keine Verbindung zu Word herstellen!", 16, "Problem"
End If

MarioR
22.10.2001, 09:20
Hallo,

ich vermute mal, dass Acc immer in die Fehlerauswertung reinläuft. Änder den Code mal so ab (ich hoffe, Du rufst ihn in einer Prozedur auf):

...
End If

Exit Sub

wordstarten:
...