Supportnet Computer
Planet of Tech

Supportnet / Forum / Datenbanken

Datensätze verbinden zu einem





Frage

hi ich hab ein problem und zwar hab ich eine datenbank mit mitgliedern meines vereins und ich will jetzt eine spezielle gruppe von denen per email anschreiben also hab ich mir überlegt, ich bastele eine abfrage, die alle emailadressen (der teilgruppe) sammelt und dann alle in nem textfeld ausgibt, damit ich die dann kopieren kann und in outlook ientragen kann .. (ein plugin kommt nicht in frage, weil es immer neue gruppen gibt (veranstaltungen) und somit iene statische zuordnung nicht in frage kommt .. ) also mein problem ist, das einsammeln der email adressen aus einer abfrage .. mfg Stefan

Antwort 1 von piano

Hallo Stefan
Die Abfrage selber hast Du bereits? Sollte ja auch kein Problem sein. Als Ergebnis erhältst Du eine Liste mit allen selektierten eMail-Adressen.
Beispiel (SQL):
SELECT Tabelle2.Text
FROM Tabelle2
WHERE (((Tabelle2.Gruppe)="2")); 


Am einfachsten ist, diese Abfrage zu markieren und zu exportieren (Format Excel). Dort dann weiterbehandeln!


Antwort 2 von shorst

ja so ginge es .. nur will ich es für andere so einfach ie möglich gestalten und es is net so einfach mit dem exelexport usw .. ich meine es geht aber es sind 10 schritte zum ziel. wenn es ein formular gäbe, wäre es nur ein klick ein strg+c und ein strg+v und fertig ..

Antwort 3 von piano

Hallo
Das mit dem klick ein strg+c und ein strg+v und fertig.. funktioniert nicht so einfach im Formular. Dazu müsste die ganze Tabelle in einem Feld Platz finden.
Als Grundlage eine Abfrage in VBA:

public function DatenExport(AuswahlParameter)
dim db as DATABASE
dim dy as Recordset
'
' Textfeld: me.Txtfeld=""
'
' Textdatei: Dim datei
'            datei="c:\temp\Name.txt"
'            Open datei For Output As #1
'
set db = CurrentDB
set dy = db.OpenRecordset("SELECT * FROM Tabelle1 WHERE Gruppe = " & AuswahlParameter) ' wenn numerisch
do while NOT dy.EOF
'
   ' hier die Verarbeitung
   ' Textfeld:
'
   ' me.Txtfeld = me.Txtfeld & dy!eMail & vbCrLf
'
   ' Textdatei:
   ' Print #1, dy!email
'
  dy.MoveNext
Loop
' Close #1
end sub

ungetestet!

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: