Newsgroup: it.comp.appl.access
Titolo: Percorso file

Ciao a tutti,
vorrei compiere la seguente operazione:
in una maschera "CD" ho un campo "Percorso" in cui indicare il percorso
delle immagini delle copertine.
E' possibile fare in modo che automaticamente venga trovato il file in una
directory specificata e che venga copiato il percorso di tale file nel campo
suddetto?
I file jpg delle copertine hanno la stessa numerazione di "IDCD"; vorrei che
per esempio nella maschera che riporta i dati del CD n°123 fosse possibile
trovare il file 123.jpg che si trova nella directory C:\archivio\copertine e
copiare tale percorso nel campo "Percorso".
Ciao e grazie
Andrea

 copiare tale percorso nel campo "Percorso".
    Se ho capito bene cio' che intendi non dovrebbe essere necessario fare
cio' che chiedi. Cioe' scrivere il percorso in un campo.
    Basterebbe infatti ricomporre il percorso, quando necessario, piu' o
meno in questo modo:
        sPath & "\" & CStr([IDCD].Value) & ".jpg"
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel messaggio
news:nPup9.15578$%M1.3...@twister2.libero.it...

Se quella è la logica con cui attibuisci i nomi dei file, in teoria è
inutile il controllo Percorso ed il relativo campo ad esso associato; per
vedere nel controllo immagine il contenuto del file immagine, invece di
scrivere:
Me!Immagine.Picture = Me!Percorso
se IDCD è di tipo numerico puoi scrivere:
Me!Immagine.Picture = "C:\archivio\copertine\" & Trim(Str(Me!IDCD)) & ".jpg"
se invece ODCD è di tipo testo
Me!Immagine.Picture = "C:\archivio\copertine\" & Me!IDCD & ".jpg"
Dovrebbe funzionare
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

non so se funzioni anche con access, però c'è un'istruzione in vb che si
chiama Dir(Percorso da cercare, vbarchive(se cerchi un file),vbdirectory
(se cerchi una cartella).. Ti scrivo il codice, sperando che possa
servirti: Dim Trova Trova=Dir("C:\Archivio\" & NomeCD &
".jpg",vbarchive) if trova<>"" then	textdelpercorso.setfocus    
textdelpercorso.text="C:\Archivio\" & NomeCD & ".jpg" end if

 ha scritto nel messaggio
news:nPup9.15578$%M1.3...@twister2.libero.it...

Ti consiglierei di leggere il post con oggetto
"Immagini.JPG da allegare"  del 20.09.2002
forse, per il tuo caso, trovi qualcosa di interessante
ciao, Gianfranco

Seguendo alcuni dei vostri consigli sono arrivato a questo:
Private Sub Form_Current()
Dim Percorso As String
Percorso = "C:\archivio\copertine\" & CStr([IDCD].Value) & ".jpg"
Dim File As String
File = CStr([IDCD].Value) & ".jpg"
Set Fs = Application.FileSearch
With Fs
    .LookIn = "C:\archivio\copertine\"
    .FileName = File
    If .Execute(, , True) Then
           Me!Immagine.Picture = Percorso
    Else
           Me.Immagine.Picture = ""
    End If
End With
End Sub
Va tutto bene ma c'è un problema: su 786 CD elencati ho 400 immagini; fino a
quando dall'1 al 400 ci sono tutte le immagini la routine funziona e fino al
400 *vedo* le immagini, dopo no. Se però mi manca l'immagine 126 ricevo il
seguente messaggio di errore: Errore di runtime 2220 impossibile aprire il
file C:\archivio\copertine\126.jpg
Ho cercato di risolvere il problema ma non ci sono riuscito. Sembra che il
metodo funzione solo se le immagine sono ordinate, ma se alternativamente ne
manca qualcuna, da un errore.
Ciao
Andrea

 ciao, Gianfranco
L'ho trovato, adesso lo studio, mi sembra ci sia quello che cerco!
Grazie mille1
Ciao
Andrea

 Andrea
Ho provato cosě e funziona:
Private Sub Form_Current()
On Error GoTo ErrorHandler
Dim Percorso As String
Percorso = "C:\archivio\copertine\" & CStr([IDCD].Value) & ".jpg"
Dim File As String
File = CStr([IDCD].Value) & ".jpg"
Set Fs = Application.FileSearch
With Fs
    .LookIn = "C:\archivio\copertine\"
    .FileName = File
    If .Execute(, , True) Then
           Me!Immagine.Picture = Percorso
    Else
           Me.Immagine.Picture = ""
    End If
End With
ErrorHandler:
    Select Case Err.Number
    Case 2220
    Me.Immagine.Picture = ""
    Case Else
    Me!Immagine.Picture = Percorso
    End Select
End Sub
Grazie a tutti dell'aiuto che mi avete dato!
Ciao
Andrea