sql query i VB

Hvad vil du med en masse e-mails i en tekstboks. Hvis du bruger en liste er det mere dynamisk, idet du har mulighed for at vælge een eller flere adresser og sende til de valgte. Listen kan have en postkilde som f.eks.:

SELECT Tabel2.email FROM Tabel2;

Der ligger et eksempel i artikelsektionen på afsendelse af e-mail fra Access.

Tak for forslaget, men det er ikke det jeg søger.

Hvis vi skal lave et ensempel, er det nødvendigt at vide hvilke tabeller du laver dine udtræk fra ... det er ved udtræk fra flere tabeller du benytter JOIN

Jeg forventede bare at det kunne gøres ud fra en alm. sql og så kunne jeg erstatte den med min. Men vi kan jo sige at det er flg. sql-sætning: SELECT tbl2.Email FROM tbl1 INNER JOIN tbl2 ON tbl1.Pk_id = tbl2.Fk_id

Det er ikke så meget sql'en der driller. Det kan jeg godt finde ud af. Men det er måden hvorpå jeg gennemløber en forespørgsel i VBA. JEg ved ikke om der skal være en connection, da access projektet jo egentlig allerede har 'åbnet' forbindelsen...

Jeg er nødt til at spørge :


Hvad forbinder du med SQL / hvad vil du opnå ?

Hvad er dine tabelnavne / indholdet ?

Access skal fungere som interface for en allerede eksisterende MSSQL database. Jeg skal så trække en række mailadresser ud.
Tabeller:
Tbl1: PK_id, CPR
Tbl2: Fk_id, mail

Der er selvfølgelig mere i tabellerne men dette burde være nok til at løse problemet.
Svar nok?

En SQL i VBA ....

Function Eksempel()
Dim strSQL As String
Dim db As DAO.Database

    Set db = CurrentDb()

    strSQL = "SELECT tbl2.Email FROM tbl1 "
    strSQL = strSQL & "INNER JOIN tbl2 "
    strSQL = strSQL & "ON tbl1.Pk_id = tbl2.Fk_id;"

        db.Execute strSQL

End Function

Hvordan gennemløber jeg den?
Hvad skal der være i while løkken? Hvis jeg vil tilføje alle mailadresserne til eks. en tekstboks?

Jeg ved ikke om dette virker da jeg ikke har access installeret og derfor ikke kan proeve det efter.

Private Sub DisplayEmail()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "SELECT tbl2.Email FROM tbl1 INNER JOIN tbl2 ON tbl1.Pk_id = tbl2.Fk_id", currentproject.Connection, adOpenKeyset

Do While Not rs.EOF
  Me.MyTextField = rs!email
  rs.MoveNext
Loop

rs.Close
Set rs = Nothing
End Sub

Tak Jensen363 og masowich, I fik mig på rette vej! Smid et svar, hvis I vil have point

Svar :o)