Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Werte aus Access Kombinationsfeld an Word
zurück: Groesse der Texfelder aendern auf meinem Formular weiter: Sortieren bei Pivot-Charts nach KW über mehrere Jahre Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
tim1974
Gast


Verfasst am:
06. Nov 2010, 15:17
Rufname:

Werte aus Access Kombinationsfeld an Word - Werte aus Access Kombinationsfeld an Word

Nach oben
       Version: Office XP (2002)

Hallo,

ich habe ein Kombifeld mit Text, der aus einer eigenen Tabelle geholt wird, in einem Formular. Der Text wird in dem Kombifeld angezeigt.
Nun möchte ich den angezeigten Text an einen Word Serienbrief übergeben.

Leider erscheint in dem Serienbrief nur die Zahl des Primärschlüssel im Serienbrief.

Wie bekomme ich jetzt den Text in den Serienbrief?

Danke
steffen0815
VBA-Programmierer


Verfasst am:
06. Nov 2010, 15:25
Rufname:


AW: Werte aus Access Kombinationsfeld an Word - AW: Werte aus Access Kombinationsfeld an Word

Nach oben
       Version: Office XP (2002)

Hallo,
aus einem Formular einen Word-Serienbrief Confused .
Ich vermute mal eher du schreibst in eine Textmarke!?

Zeig mal bitte den relevaten Code.

_________________
Gruß Steffen
tim1974
Gast


Verfasst am:
06. Nov 2010, 21:47
Rufname:

AW: Werte aus Access Kombinationsfeld an Word - AW: Werte aus Access Kombinationsfeld an Word

Nach oben
       Version: Office XP (2002)

Hallo,

ja, ich schreibe in Textmarken.
Code:
Private Sub ÜbergabeanWord_Click()
On Error GoTo Nach_word_senden_Err
    Dim objWord As Word.Application '

    Set objWord = CreateObject("Word.Application")
    With objWord
        .Visible = True
        Set objDocument = .Documents.Add("D:\Bücher\Therapiebericht.dot")
        .ActiveDocument.Bookmarks("Straße").Select
        .Selection.Text = (CStr(Forms!Therapiebericht!Straße))
        .ActiveDocument.Bookmarks("Name").Select
        .Selection.Text = (CStr(Forms!Therapiebericht!Name))
        .ActiveDocument.Bookmarks("Vorname").Select
        .Selection.Text = (CStr(Forms!Therapiebericht!Vorname))
        .ActiveDocument.Bookmarks("AnredeAnschrift").Select
        .Selection.Text = (CStr(Forms!Therapiebericht!AnredeAnschrift))
        .ActiveDocument.Bookmarks("HausNr").Select
        .Selection.Text = (CStr(Forms!Therapiebericht!HausNr))
        .ActiveDocument.Bookmarks("PLZ").Select
        .Selection.Text = (CStr(Forms!Therapiebericht!PLZ))
        .ActiveDocument.Bookmarks("Ort").Select
        .Selection.Text = (CStr(Forms!Therapiebericht!Ort))
        .ActiveDocument.Bookmarks("Datum").Select
        .Selection.Text = (CStr(Forms!Therapiebericht!Text23))
        .ActiveDocument.Bookmarks("AnredeBrief").Select
        .Selection.Text = (CStr(Forms!Therapiebericht!AnredeBrief))
        .ActiveDocument.Bookmarks("Anrede").Select
        .Selection.Text = (CStr(Forms!Therapiebericht!Anrede))
        .ActiveDocument.Bookmarks("NamePatient").Select
        .Selection.Text = (CStr(Forms!Therapiebericht!NamePatient))
        .ActiveDocument.Bookmarks("BehandlungVom").Select
        .Selection.Text = (CStr(Forms!Therapiebericht!BehandlungVom))
        .ActiveDocument.Bookmarks("BehandlungBis").Select
        .Selection.Text = (CStr(Forms!Therapiebericht!BehandlungBis))
        .ActiveDocument.Bookmarks("VerordnungVom").Select
        .Selection.Text = (CStr(Forms!Therapiebericht!VerordnungVom))
        .ActiveDocument.Bookmarks("StandTherapie").Select
        .Selection.Text = (CStr(Forms!Therapiebericht!StandTherapie))
    End With
    'objWord.ActiveDocument.PrintOut Background:=False
    'objWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
    Set objWord = Nothing
    Exit Sub
Nach_word_senden_Err:
    'If Err.Number = 94 Then
        objWord.Selection.Text = ""
        Resume Next ' If the Photo field is empty.
      'ElseIf Err.Number = 2046 Then
        MsgBox "Please add a photo to this record and try again."
      'Else
        MsgBox Err.Number & vbCr & Err.Description
    'End If
End Sub
Die Werte aus den Textfeldern werden an Word übergeben und dort angezeigt. Nur bei den Werten aus dem Kombinationsfeld StandTherapie hapert es, hier wird an Word nur der Zahlenwert aus dem Primärschlüsselfeld übergeben und der eigendliche Text fehlt.
Das Kombifeld bezieht die Werte aus der Tabelle StandTherapie mit den Spalten Primärschlüssel und LText.

Gruß Tim
steffen0815
VBA-Programmierer


Verfasst am:
06. Nov 2010, 21:52
Rufname:

AW: Werte aus Access Kombinationsfeld an Word - AW: Werte aus Access Kombinationsfeld an Word

Nach oben
       Version: Office XP (2002)

Hallo,
also unter relevanten Code hätte ich
Code:
        .Selection.Text = (CStr(Forms!Therapiebericht!StandTherapie))
verstanden.

Hat auch alles nix mit Word zu tun. Dein Kombinationsfeld hat wohl mehrere Spalten. Die erste Spalte ist wohl die Schlüsselspalte (Zahl)
Versuch mal
Code:
MsgBox CStr(Forms!Therapiebericht!StandTherapie.Column(1)))

_________________
Gruß Steffen
tim1974
Gast


Verfasst am:
07. Nov 2010, 12:03
Rufname:


AW: Werte aus Access Kombinationsfeld an Word - AW: Werte aus Access Kombinationsfeld an Word

Nach oben
       Version: Office XP (2002)

Hallo Steffen,

Danke für die Hilfe.

Ich habe bei den Eigenschaften des Kombifeldes unter Daten die Gebundene Spalte von eins auf zwei gesetzt.

Jetzt kommt der Text bei word an.

Gruß Tim
Ralf-83
Gast


Verfasst am:
11. Jan 2012, 14:29
Rufname:

AW: Werte aus Access Kombinationsfeld an Word - AW: Werte aus Access Kombinationsfeld an Word

Nach oben
       Version: Office 2007

Hallo Tim,

Wie hast du das denn gemacht?

ich stehe vor dem selben Problem, aber die Änderung der "Gebundenen Spalte" bringt bei mir nichts. Es tauchen sogar noch andere Probleme auf... u.a. die Meldung "Sie haben möglicherweise Text in ein numerisches Feld eingegeben,..."

Kann hier jemand helfen?

lg

Ralf
MGast
Gast


Verfasst am:
11. Jan 2012, 14:59
Rufname:

AW: Werte aus Access Kombinationsfeld an Word - AW: Werte aus Access Kombinationsfeld an Word

Nach oben
       Version: Office XP (2002)

Hallo,
auch an dich die Anfrage: Zeige mal bitte den relevanten Code und beschreibe den Fehler.

Gruß Mike
Ralf-83
Gast


Verfasst am:
11. Jan 2012, 16:28
Rufname:

AW: Werte aus Access Kombinationsfeld an Word - AW: Werte aus Access Kombinationsfeld an Word

Nach oben
       Version: Office 2007

Hallo Mike,

hier der Code. Auch hier aus dem Forum...

Das Problem ist, dass ich einen Ansprechpartner anhand einer anderen Tabelle mit einem Kombinationsfeld auswähle. Statt nun aber den angezeigten Wert, also den Namen zu übergeben, wird nur die Indexnummer in Word eingetragen...

Code:
Private Sub btn_druck_Click() ' Die Schaltfläche unter der das passieren soll
    Dim rs As DAO.Recordset, feld As DAO.Field
    Set rs = Me.Recordset
    Set wdAnw = CreateObject("Word.Application")
    wdAnw.Visible = True
    wdAnw.WindowState = wdWindowStateNormal
    Set wdDok = wdAnw.Documents.Add(Template:=Vorlage_DB)
    For Each feld In rs.Fields
        If wdDok.Bookmarks.Exists(feld.Name) Then
            If Not feld.Type = 11 Then
                If IsNull(feld.Value) Then 'Kein Feldwert
                    'Textmarkenfeld löschen
                    wdDok.Bookmarks(feld.Name).Range.Delete
                  Else
                    'Wenn Feldwert vorhanden, dann Textmarkenfeld substituieren
                    wdDok.Bookmarks(feld.Name).Range.Text = feld.Value
                End If
            End If
        End If
    Next feld
    Set rs = Nothing
    Set wdDok = Nothing
    Set wdAnw = Nothing
End Sub


LG

Ralf
MGast
Gast


Verfasst am:
11. Jan 2012, 17:48
Rufname:

AW: Werte aus Access Kombinationsfeld an Word - AW: Werte aus Access Kombinationsfeld an Word

Nach oben
       Version: Office XP (2002)

Hallo,
man kann es mit "universellen" Code auch übertreiben Confused .

Dieser Code überträgt 1:1 die Werte der Felder in die Textmarke und ist somit nicht auf ein Kombi anwendbar, welchen den Index als Wert hat.

Du müsstest also das Kombi extra behandeln oder alle Textmarken einzeln aufführen.

Letzendlich muss eine Zeile in der Art :
Code:
wdDok.Bookmarks("NameKombi").Range.Text = Me!NameKombi.Column(1)
auftauchen.

Gruß Mike
Gast



Verfasst am:
12. Jan 2012, 09:16
Rufname:


AW: Werte aus Access Kombinationsfeld an Word - AW: Werte aus Access Kombinationsfeld an Word

Nach oben
       Version: Office XP (2002)

Hallo Mike,

danke für die Antwort es klappt Smile
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Werte summieren und mit x multiplizieren 3 heirnele 1187 20. Dez 2005, 19:32
Willi Wipp Werte summieren und mit x multiplizieren
Keine neuen Beiträge Access Tabellen & Abfragen: Kombinationsfeld 3 Tobander 846 04. Dez 2005, 14:23
lothi Kombinationsfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Werte einer Abfrage miteinander verbinden 4 FCKW 614 24. Nov 2005, 14:15
FCKW Werte einer Abfrage miteinander verbinden
Keine neuen Beiträge Access Tabellen & Abfragen: Werte aus 2 Tabellen in einer angleichen 9 Saskia 819 20. Okt 2005, 18:43
rita2008 Werte aus 2 Tabellen in einer angleichen
Keine neuen Beiträge Access Tabellen & Abfragen: Werte von Feld1 in Feld2 kopieren 2 cixz 896 30. Sep 2005, 11:50
Gast Werte von Feld1 in Feld2 kopieren
Keine neuen Beiträge Access Tabellen & Abfragen: Max. Werte über mehrere Datensätze ermitteln 1 Gast 1200 22. Aug 2005, 14:56
lothi Max. Werte über mehrere Datensätze ermitteln
Keine neuen Beiträge Access Tabellen & Abfragen: Eingabe neuer Daten in ein Kombinationsfeld 2 Gast 814 21. Jul 2005, 15:54
Gast Eingabe neuer Daten in ein Kombinationsfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Werte Zählen, aber bestimmte nicht dazu addieren 1 MrMarley 897 14. Jun 2005, 02:21
tobes Werte Zählen, aber bestimmte nicht dazu addieren
Keine neuen Beiträge Access Tabellen & Abfragen: Numerische Werte in als Text definiertem Feld 4 Terminator 811 25. Apr 2005, 07:50
stpimi Numerische Werte in als Text definiertem Feld
Keine neuen Beiträge Access Tabellen & Abfragen: Werte eines Formulares in neue Tabelle speichern 1 jk2005 734 08. März 2005, 12:26
Mario Kobolla Werte eines Formulares in neue Tabelle speichern
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular über Kombinationsfeld aussuchen... 1 DJ1337 923 14. Feb 2005, 13:53
lothi Unterformular über Kombinationsfeld aussuchen...
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage die werte anfügt 2 Zoran 495 26. Jan 2005, 14:24
Zoran Abfrage die werte anfügt
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum