title image


Smiley Fehler beim Öffnen von Word von Access aus
Hallo,



in der Access 2003 Datenbank können verschiedene Serienbriefe erstellt werden. Dazu werden die Daten in eine Text-Datei geschrieben, Word von Access aus geöffnet und die Datenquelle mit dem entsprechenden Word-Hauptdokument verbunden.



Soweit ist alles klar, und es funktioniert auch. Allerdings nur ein- maximal zweimal. Dann passiert folgendes:

- entweder Word öffnet sich, die Verbindung zur Datenquelle wird aber nicht hergestellt

- oder es erscheind folgende Fehlermeldung am Bildschirm: 'Der Remote Server-Computer existiert nicht oder ist nicht verfügbar'.



Ich arbeite tatsächlich über eine Remotedesktopverbindung. Aber warum kommt diese Fehlermeldung dann nicht immer, sondern erst beim zweiten/dritten Öffnen von Word?



Schließt man die Access-Datenbank und startet sie von neuem, kann man wieder ein bis zweimal problemlos einen Serienbrief erstellen. Dann erscheinen wieder die Fehlermeldungen.

---------------------

Folgenden Code habe ich verwendet:

Public Sub CreateSchulbescheinigung(strKursname As String)

On Error GoTo Err_Schulbescheinigung



Dim strSource As String

Dim strDoc As String



strSource = PFADVORLAGEN & "datenquelle.txt"

strDoc = PFADVORLAGEN & "Schulbes.doc"





DoCmd.TransferText acExportDelim, , "A_Schulbesch", strSource, True



Dim oApp As Object



Set oApp = CreateObject("Word.application")



With oApp



.Visible = True



.WindowState = 1



If strDoc "" Then

.Documents.Open FileName:=strDoc



ActiveDocument.MailMerge.MainDocumentType = wdFormLetters

ActiveDocument.MailMerge.OpenDataSource name:= _

PFADVORLAGEN & "datenquelle.txt", _

ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _

AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _

WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _

Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="", SQLStatement1 _

:="", SubType:=wdMergeSubTypeOther



ElseIf strDoc "" Then

MsgBox "Das Dokument " & strFile & " wurde nicht gefunden.", _

vbInformation, "Dokument nicht gefunden"

GoTo Exit_Schulbescheinigung

End If

End With



Exit_Schulbescheinigung:

Set oApp = Nothing

Exit Sub



Err_Schulbescheinigung:

MsgBox Err.Description

Resume Exit_Schulbescheinigung



End Sub





Hoffe jemand kennt dieses oder ähnliches Problem und kann mir helfen



Stefanie



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: