Daten aus Liste in Textfeld kopieren

Question

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

Answer 1

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