GoldenLine
Zaloguj się

konto usunięte

Temat: Lista adresatów

Witam,

Mam tabelę z adresami email.
Potrzebuję wszystkie adresy złączyć w postaci jednego stringa odzielone ";" tak aby powstała lista adresatów email.

Czy ktoś zna jakieś rozwiązanie?
Link do wypowiedziLink

konto usunięte

Temat: Lista adresatów

Function fGetValue(sSql As String) As String



    Dim a As ADODB.Recordset

    

    Set a = CurrentProject.Connection.Execute(sSql)

    

    Dim b As Variant

    

    b = a.GetRows

    

    Set a = Nothing

    

    Dim c As Variant

    Dim w As String

    

    w = ""

    

    For Each c In b

        If w  "" Then

            w = w & ";" & c

        Else

            w = c

        End If

    Next

    

    fGetValue = w



End Function


wywołanie

 wynik = fgetValue("select name from photos")
Link do wypowiedziLink

konto usunięte

Temat: Lista adresatów

nie działa
Link do wypowiedziLink

konto usunięte

Temat: Lista adresatów

a konkretnie co?
jakiś błąd?
Link do wypowiedziLink

konto usunięte

Temat: Lista adresatów

Run-time error'-2147217900(80040e14)'

Niewłaściwa instrukcja SQL; oczekiwano 'DELETE, INSERT PROCEDURE SELECT lub UPDATE
Link do wypowiedziLink

konto usunięte

Temat: Lista adresatów

co wpisałeś jako parametr funkcji?
Link do wypowiedziLink

konto usunięte

Temat: Lista adresatów

pole z tabeli o nazwie [Email]

W polu w formularzu wpisałem
= fgetValue([Email])
Link do wypowiedziLink

konto usunięte

Temat: Lista adresatów

trzeba zrobić select-a na tej tabeli
select pole from email

i taki string podstawić jako parametrPrzemysław R. edytował(a) ten post dnia 24.03.09 o godzinie 10:53
Link do wypowiedziLink

konto usunięte

Temat: Lista adresatów

Przemysław R.:
trzeba zrobić select-a na tej tabeli
select pole from email

i taki string podstawić jako parametrPrzemysław R. edytował(a) ten post dnia 24.03.09 o godzinie 10:53

?????????????

Tabela nazywa się: Tb_Pracownicy
jednym z pól jesy Email.

czy możesz napisać dokładnie co zrobić żeby to zadziało?
Link do wypowiedziLink

konto usunięte

Temat: Lista adresatów

select email from Tb_Pracownicy


ale wtedy sklei wszystkie eamaile do jednego ciągu - o to ci chodzi czy chcesz coś odfiltrować?

 = fgetValue("select email from Tb_Pracownicy")
Przemysław R. edytował(a) ten post dnia 24.03.09 o godzinie 11:09
Link do wypowiedziLink

konto usunięte

Temat: Lista adresatów

Przemysław R.:
select email from Tb_Pracownicy


ale wtedy sklei wszystkie eamaile do jednego ciągu - o to ci chodzi czy chcesz coś odfiltrować?

 = fgetValue("select email from Tb_Pracownicy")
Przemysław R. edytował(a) ten post dnia 24.03.09 o godzinie 11:09

U mnie pojawia się tylko jeden email
Link do wypowiedziLink

konto usunięte

Temat: Lista adresatów

to forum ma brzydką cechę wywala niektóre znaki

kod funkcji jest tu

przykładowy MDBPrzemysław R. edytował(a) ten post dnia 24.03.09 o godzinie 12:06
Link do wypowiedziLink

konto usunięte

Temat: Lista adresatów

Teraz jest idealnie.
Bardzo wielkie dzięki:):):)
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

Lista tabel w bazie Access




Wyślij zaproszenie do
Anuluj