Newsgroup: it.comp.appl.access
Titolo: Caricare casella di riepilogo con file di testo

Salve,
vorrei sapere se è possibile ed eventualmente come, caricare una 
casella di riepilogo da un file di testo.
Questo mi serve perchè il file di testo contiene una serie di risposte 
standard che ogni tanto vanno cambiate.
Quindi vorrei agire solo sul file di testo quando qualche cambiamento è 
richiesto.
Ciao e grazie a tutti.


Ciao ,
ammettiamo di avere una Form con un casella di riepilogo chiamata 
TEXT  prova così:
' da aggiungere nell' evento di un ComandButton o altro
Dim file As String
Dim Textline As String
Dim StrText as String
file = "\Text.txt"
Open CurrentProject.Path & file For Input As #1 ' Creo il file   ' in 
questo caso apro un file che si trova nella stessa directory
Do While Not EOF(1)    ' Ripete fino alla fine del file.
    Line Input #1, textline    ' Assegna la riga a una variabile.
   Strtext = Strtext & textline & ";"
    Loop
   me.text.Rowsource= strtext
Close #1
Fammi sapere se è quello che intendevi.
Ciao
MAK

 Fammi sapere se è quello che intendevi.
Ho letto le tue informazioni ma non sono sicuro di aver capito tutto 
nel modo corretto.
Mi spiego, io ho un file txt in cui su ogni riga vi è una risposta 
standard per l'ambiente in cui uso il db. Bene, vorrei caricare ogni 
singola riga in una casella di riepilogo in modo tale che eventuali 
modifiche al mio txt si riportino in "automatico" sulla casella di 
riepilogo senza dover agire direttamente su quest'ultima.
Secondo il tuo codice nella variabile "file" vado a mettere il percorso 
completo del mio file di txt che tu hai chiamato Text.txt? La riga 
"Open..." non mi è molto chiara, se potessi rispiegarmela te ne sarei 
grato.
Nel complesso comunque mi sembra di aver capito il funzionamento. 
Purtroppo quando vado ad eseguire il codice, che ho associato 
all'apertura della maschera contenente la casella di riepilogo, ottengo 
un errore, evidenziato qui:
http://img2.freeimagehosting.net/uploads/f7b0ae0e82.jpg
in corrispondenza della riga:
http://img2.freeimagehosting.net/image.php?9d22fc2948.jpg
Cosa ho sbagliato?
Ciao e grazie.

 
http://img2.freeimagehosting.net/uploads/f7b0ae0e82.jpg
Scusami ho sbagliato, l'errore è questo:
http://img2.freeimagehosting.net/uploads/f804bf9a43.jpg

 Fammi sapere se è quello che intendevi.
Penso di aver risolto, grazie a te.
Sto testando lo script te lo posto al più presto.
Ciao


L' errore che ti dava è solo perchè non davi il riferimento errato al
percorso del file.
CurrentProject.Path & file  presume  che il file si trova nella stessa
directory dove si trova il DB
Ciao

 Penso di aver risolto, grazie a te.
Ecco il codice:
Private Sub Form_Load()
   Dim Percorso As String
   Dim TextLine As String
   Percorso = "C:\NomeDirectory\NomeFile.txt" 'Percorso del file
   Open Percorso For Input As #1 'Apro il file con la clausola For 
Input
    Do Until EOF(1)    ' Ripetere fino alla fine del file.
      Line Input #1, TextLine    ' Assegna la riga letta del file ad 
una variabile.
      NomeListBox.AddItem TextLine 'aggiungo la linea letta alla 
casella di riepilogo (ListBox)
    Loop
   Close #1 'Chiudo il file di testo
End Sub
Che ne dici?
Ciao e grazie...