Acquista i nostri libri consigliati su Amazon.it
Discussione chiusa
Visualizzazione dei risultati da 1 a 7 su 7

[Access] creare un testo in linea a partire da una tabella

  1. #1
    stefano27 non è in linea Novello
    Post
    13
    Like Inviati  
    0
    Like Ricevuti  
    0
    Ciao a tutti!
    Ho la seguente necessità:
    Da una tabella (che ad esempio posso anche ricavare da una query) ho una serie di valori (nel mio caso num.di cellulare). Come si fa ad esportare questi valori in un file di testo .txt in modo tale che risultino non in colonna ma bensì in riga interposti da un punto e virgola come nel seguente esempio:

    333666666;333555555;333444444.... ecc. ecc.


    Ah, è importante che questi numeri di telefono non vengano compresi tra le virgolette (" ")

    Se sapete darmi queste informazioni fatemelo sapere,mi aiuterebbero molto!

    Grazie mille anticipatamente

    stefanodini27

  2. #2
    L'avatar di dragone bianco
    dragone bianco non è in linea Amanuense
    Post
    7,753
    Like Inviati  
    0
    Like Ricevuti  
    2
    Utilizzando il DAO puoi leggere i dati e concatenali

    con questa istruzione puoi creare i file di testo
    Open "FILEPROV" For Output As #1    ' Apre il file perl'output.
    Print #1, "Salve gente"   ' I dati scritti non sono delimitati da virgole.
    Print #1,    ' Scrive una riga vuota.
    
    Close #1    ' Chiude il file
    
    Ciao
    ℹ️ Leggi di più su dragone bianco ...

  3. #3
    stefano27 non è in linea Novello
    Post
    13
    Like Inviati  
    0
    Like Ricevuti  
    0
    Scusa,ma non so come fare! dove devo scrivere questo comando? e come faccio a richiamare la query iniziale?

  4. #4
    L'avatar di dragone bianco
    dragone bianco non è in linea Amanuense
    Post
    7,753
    Like Inviati  
    0
    Like Ricevuti  
    2
    Questi sono dei codici VBA da usare negli eventi degli oggetti.
    Es al click su un pulsante

    I due pezzi di codice che ti ho scritto ti permettono di leggere i dati di una tabella (o query) direttamente, senza l'ausilio delle maschere (è il cosidetto DAO).

    invece il codice:

    Open "FILEPROV" For Output As #1    ' Apre il file perl'output.
    Print #1, "Salve gente"   ' I dati scritti non sono delimitati da virgole.
    Print #1,    ' Scrive una riga vuota.
    
    Close #1    ' Chiude il file
    
    Ti permette di creare il file TXT
    Ora non so quanto conosce VBA.

    Ciao
    ℹ️ Leggi di più su dragone bianco ...

  5. #5
    Enry099 non è in linea Novello
    Post
    8
    Like Inviati  
    0
    Like Ricevuti  
    0
    Io invece ho una serie di record su una tabella, alcuni contengono solo una mail, gli altri anche più di una... devo trasferire tutto su un file txt e poi caricarlo su una query per eliminare gli eventuali doppioni..

    Es:
    Pippo@pippo.it;
    Topolino@topolino.it;
    pluto@pluto.it;topolino@topolino.it

    Devo trasfrormarli prima in un txt:
    Pippo@pippo.it;Topolino@topolino.it;pluto@pluto.it;topolino@topolino.it

    Successivamente caricare uno ad uno gli indirizzi, incolonnandoli in una tabella. Poi una query mi permetterà di cancellare gli eventuali doppioni..

    Ma come fare la magia?

    Attualmente sono fermo a:

    Dim em As Recordset


    Set em = CurrentDb().OpenRecordset("Q_cont_mail_out")

    Open "c:\Mailout.txt" For Output As 3


    Do While Not em.EOF
    If Not IsNull(em![F2]) Then

    Print #3, em![F2]; ";";
    End If
    em.MoveNext
    Loop
    Close 3

    em.Close

    DoCmd.TransferText acImportDelim, , "Tabella c", "c:\Mailout.txt", False



    Dim db As DAO.Database
    Dim ez As DAO.Recordset
    Dim strEMail As String
    Set db = CurrentDb()
    Set ez = db.OpenRecordset("Tabella c")
    If ez.RecordCount = 0 Then
    MsgBox "nessun record trovato"

    End If
    strEMail = ez("F1")
    DoCmd.SendObject , , , strEMail
    DoCmd.Close

    Grazie

  6. #6
    L'avatar di dragone bianco
    dragone bianco non è in linea Amanuense
    Post
    7,753
    Like Inviati  
    0
    Like Ricevuti  
    2
    Ciao Enry099
    è una discussione un po' datata, ti consiglio di aprirne una nuova ed eventualmente mettere un riferimento a questa
    Ciao

    PS:
    nel regolamento è specificato di non riesumare discussioni datate
    ℹ️ Leggi di più su dragone bianco ...

  7. #7
    Enry099 non è in linea Novello
    Post
    8
    Like Inviati  
    0
    Like Ricevuti  
    0
    Quote Originariamente inviato da dragone bianco Visualizza il messaggio
    Ciao Enry099
    è una discussione un po' datata, ti consiglio di aprirne una nuova ed eventualmente mettere un riferimento a questa
    Ciao

    PS:
    nel regolamento è specificato di non riesumare discussioni datate
    Si scusa lo già fatto, non mi ero accorto che era datata.... sorry

Discussione chiusa

Potrebbero interessarti anche ...

  1. Creare n textbox a partire da una query
    Da Silverglow nel forum Microsoft Access
    Risposte: 18
    Ultimo Post: 08-09-2015, 18:10
  2. Articolo: Come creare una Guida in linea in Access
    Da fragger nel forum Microsoft Access
    Risposte: 15
    Ultimo Post: 01-09-2015, 21:40
  3. Creazione tabella a partire da altre due
    Da stilo nel forum Microsoft Access
    Risposte: 16
    Ultimo Post: 08-05-2015, 09:41
  4. Creare tabella a partire da altre due
    Da giannic79 nel forum Microsoft Excel
    Risposte: 15
    Ultimo Post: 27-10-2013, 16:33
  5. Risposte: 5
    Ultimo Post: 27-10-2010, 17:56