none
Daten aus Liste in Textfeld kopieren

    Frage

  • Hallo liebe Community,

    in unserer Access Datenbank gibt es zur Zeit eine Abfrage, durch die Mitarbeiter mit deren E-Mail-Adressen angezeigt werden. Diese Daten werden in einem Listenfeld angezeigt. Der Wunsch ist, dass die E-Mail Adressen ausserdem in einem Textfeld zum kopieren ausgegeben werden. Die Adressen sollen später einfach durch Copy and Paste im Outlook benutzt werden können.

    Mein Pseudo-Code würde wie folgt aussehen:

    Greif auf die Tabelle zu

    Kopiere den Wert in der Spalte X

    Schreibe Wert in Textfeld

    Setze ein ","

    Wiederhole alles, bis die Tabelle am Ende ist

    Würde mich freuen, wenn ihr mir helfen könntet

    Danke

    Johannes

    Dienstag, 1. April 2014 12:12

Alle Antworten

  • Hallo!

    Du könntest ein Recordset öffnen und per Schleife den String zusammensetzen.

    Prinzip:

    dim rs as dao.recordset
    dim EmailAdressen as String
    set rs = currentdb.Openrecordset(...)
    with rs
       do while not .eof
          EmailAdressen = EmailAdressen  & "; " & .Fields(...).Value
          .Movenext
       loop
    end with
    
    if len(EmailAdressen) > 0 then
       EmailAdressen = mid(EmailAdressen , 3)
    end if
    
    Me.DeinTextfeld.Value = EmailAdressen 

    Etwas kürzer wird der Code, wenn du für so eine "Wert-Liste" einen wiederverwendbaren Code einsetzt, der die obige Schleife beinhaltet.

    Beispiel: SqlListe

    BTW:

    Möglicherweise wäre es für die Anwender aber praktischer, wenn sie in dem Listefeld die Adressen auswählen können, die sie für ein Email verwenden wollen.
    Die ausgewählten Adressen könntest du anschließend direkt in die Zwischenablage speichern oder gleich eine neue (leere) Email erzeugen und dort die Adressen einfügen.

    mfg
    Josef


    Code-Bibliothek für Access-Entwickler
    AccUnit - Testen von Access-Anwendungen
    Virtueller Access-Stammtisch

    Dienstag, 1. April 2014 13:39