DDE

T

T.Dürst

Hi Access-Programmers

Habe ein Problem mit der Konfiguration:

Win 98
Win 97 Access
Win 97 Winword // Win 2000 Winword

Ich habe eine DDE-Verbindung initialisiert (Code im Attachement). Unter Win
97 Winword 97 funktionierts wunderbar (entsprechende Textmarken im
Einzelbrief.Doc werden abgefüllt). Unter Win 97 / Winword 2000 lauffe ich
"ins Leere". Kanal = DDEInitiate("Winword", rpath) meldet so Null zurück.

Kennt jemand das Problem resp. die Lösung? Bin für alle Tipps dankbar!
Grüsse
Tommy Dürst

----Code-Begin---
Public Function DDEEinzelbrief()
Dim Kanal, Daten, a, Briefanr As String
Dim rpath As String, inf As Integer

On Error Resume Next

Forms!Hauptmenu![EinzelBrief_Flag] = Forms!Hauptmenu![EinzelBrief_Flag] + 1
If Forms!Hauptmenu![EinzelBrief_Flag] = 1 Then
inf = MsgBox("Suchen Sie das Grunddokument welches Sie für den
Einzelbrief verwenden möchten!", vbInformation + vbOKOnly, "Auswahl des
Grunddokuments für den Einzelbrief")
rpath = MSA_SimpleGetOpenFileName
Forms!Hauptmenu![EinzelBrief_Pfad] = rpath
End If

rpath = Forms!Hauptmenu![EinzelBrief_Pfad]

Kanal = DDEInitiate("Winword", rpath)

If Err.Number Then
Err.Number = 0

a = Shell("Winword.exe " & rpath, 6)

If Err.Number Then Exit Function

Kanal = DDEInitiate("Winword", rpath)
End If

If IsLoaded("Personen_Liste") = True Then

If Forms![Personen_Liste]![ANR] = "Herr" Or
Forms![Personen_Liste]![ANR] = "Herrn" Then
Briefanr = "Sehr geehrter Herr " &
Forms![Personen_Liste]![Namen]
Else
Briefanr = "Sehr geehrte Frau " & Forms![Personen_Liste]![Namen]
End If

DDEPoke Kanal, "Anrede", Forms![Personen_Liste]![ANR]
DDEPoke Kanal, "Vorname", Forms![Personen_Liste]![VORN]
DDEPoke Kanal, "NachName", Forms![Personen_Liste]![Namen]
DDEPoke Kanal, "Strasse", Forms![Personen_Liste]![STR]
DDEPoke Kanal, "PLZ", Forms![Personen_Liste]![PLZ]
DDEPoke Kanal, "Ort", Forms![Personen_Liste]![ORT]
DDEPoke Kanal, "Briefanrede", Briefanr

Forms![Personen_Liste]![Neuer Brief].Visible = True
Else
If Forms![Personen_Liste_Einteilung]![ANR] = "Herr" Or
Forms![Personen_Liste_Einteilung]![ANR] = "Herrn" Then
Briefanr = "Sehr geehrter Herr " &
Forms![Personen_Liste_Einteilung]![Namen]
Else
Briefanr = "Sehr geehrte Frau " &
Forms![Personen_Liste_Einteilung]![Namen]
End If

DDEPoke Kanal, "Anrede", Forms![Personen_Liste_Einteilung]![ANR]
DDEPoke Kanal, "Vorname", Forms![Personen_Liste_Einteilung]![VORN]
DDEPoke Kanal, "NachName", Forms![Personen_Liste_Einteilung]![Namen]
DDEPoke Kanal, "Strasse", Forms![Personen_Liste_Einteilung]![STR]
DDEPoke Kanal, "PLZ", Forms![Personen_Liste_Einteilung]![PLZ]
DDEPoke Kanal, "Ort", Forms![Personen_Liste_Einteilung]![ORT]
DDEPoke Kanal, "Briefanrede", Briefanr

Forms![Personen_Liste_Einteilung]![Neuer Brief].Visible = True
End If
' Debug.Print Daten, Kanal
DDETerminate Kanal

End Function
---Code-End---
 
Top