+ Rispondi al Thread
Pagina 2 di 2 primaprima 12
Visualizzazione dei risultati da 11 a 15 su 15

Discussione: Invio mail a più destinatari da query parametrica

  1. #11
    matfed82 non è in linea Novello
    Post
    37
    Il distinct l'ho fatti nella query ma siccome l'azienda è diversa duplica la riga.
    L'azienda devo lasciarla perchè mi serve come parametro.

    codice:
    SELECT DISTINCT Query_Clienti.Categoria, Query_Clienti.Azienda, Query_Clienti.Associa_Cli_Az.Ragione_Sociale, Query_Clienti.DataFine, Query_Clienti.Mail
    FROM Query_Clienti
    Volevo fare nel codice precedente un if mail record 1 = mail record 2 allora passa al record successivo
    ma non se si può fare e come farlo
    Ultima modifica di matfed82; 24-03-2020 22:54 

  2. #12
    L'avatar di @Alex
    @Alex non è in linea Very Important Person
    Post
    16,293
    Ma a cosa ti serve l'azienda a quel punto se pur cambiando guardi mail...?
    @Alex
    Il CROSSPOST è VIETATO
    Mirror al vecchio sito WEB(salvare i Demo riassegnando l'estensione (.Zip/.Rar/.Exe in base all'icona...):
    http://mirror.masterdrive.it/alessandrobaraldi/
    Leggi il
    Regolamento del Forum e nel comprenderne la filosofia rispettalo.

  3. #13
    matfed82 non è in linea Novello
    Post
    37
    Quote Originariamente inviato da @Alex Visualizza il messaggio
    Ma a cosa ti serve l'azienda a quel punto se pur cambiando guardi mail...?
    Nella query parametrica io seleziono l'azienda e la query mi estrae tutti i clienti che non comprano quella tale azienda.
    Quindi in una maschera di ricerca seleziono l'azienda PLUTO e la maschera successiva mi va vedere tutti i clienti che non comprano PLUTO ma che comprano altre azienda

  4. #14
    L'avatar di @Alex
    @Alex non è in linea Very Important Person
    Post
    16,293
    Allora fai un controllo simile
    codice:
    Do Until RS.EOF
       If INSTR(strDest,RS.Fields("Mail"))=0 Then strDest = (strDest & "; ") & RS.Fields("Mail")
       DoEvents
       RS.MoveNext
    Loop
    @Alex
    Il CROSSPOST è VIETATO
    Mirror al vecchio sito WEB(salvare i Demo riassegnando l'estensione (.Zip/.Rar/.Exe in base all'icona...):
    http://mirror.masterdrive.it/alessandrobaraldi/
    Leggi il
    Regolamento del Forum e nel comprenderne la filosofia rispettalo.

  5. #15
    matfed82 non è in linea Novello
    Post
    37
    Quote Originariamente inviato da @Alex Visualizza il messaggio
    Allora fai un controllo simile
    codice:
    Do Until RS.EOF
       If INSTR(strDest,RS.Fields("Mail"))=0 Then strDest = (strDest & "; ") & RS.Fields("Mail")
       DoEvents
       RS.MoveNext
    Loop
    Grazie mille.
    Funziona!!!

+ Rispondi al Thread
Pagina 2 di 2 primaprima 12

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi