Newsgroup: it.comp.appl.access
Titolo: Archivio di immagini

Dopo aver seguito le istruzioni del Sito Comune su come implementare
correttamente un archivio di immagini e dopo aver inserito sull' evento
Corrente in una forms Me.MioControlloImmagine.Picture = Me.Path_Immagine mi
trovo davanti al seguente problema:
quali istruzioni devo aggiungere nel caso in cui il campo Path_Immagine sia
vuoto o il percorso del file risulti errato affinchè il controllo immagine
(MioControlloImmagine) rimanga "vuoto" e senza che venga generato alcun
messaggio d'errore?
Grazie

 ha scritto nel messaggio
news:dusUc.45952$OH4.1...@twister1.libero.it...

Ciao,
puoi inserire questo controllo che ritorna la stringa vuota se il file non
esiste.
if not isnull(Me.PathImmagine) then
    if Len(Dir(Me.PathImmagine))> 0 then
        Me.MioControlloImmagine.Picture = Me.Path_Immagine
    end if
end if
Saluti
Cinzia

 ha scritto nel messaggio
news:cftlq2$g8u$1...@lacerta.tiscalinet.it...

Ciao Cinzia,
grazie della celere risposta, ho provato ad inserire il codice, ma c'è
qualcosa che non va perchè mi restituisce lo stesso errore (impossibile
aprire il file...) Ora ho questo codice:
If Not IsNull(Path_Immagine) Then
Me.MioControlloImmagine.Picture = Me.Path_Immagine
Else
If IsNull(Path_Immagine) Then
Me.MioControlloImmagine.Picture = Empty
Else
if not isnull(Me.Path_Immagine) then
if Len(Dir(Me.Path_Immagine))> 0 then
Me.MioControlloImmagine.Picture = Me.Path_Immagine
End If
End If
End If
End If

"Vespamu" <> Dopo aver seguito le istruzioni del Sito Comune su come

Scusa, ma perchè non scarichi gli esempi pratici pubblicati sul Sito Comune
e non li analizzi?
Pixel

 ha scritto nel messaggio
news:E1uUc.43332$1V3.1...@twister2.libero.it...

Ciao,
li scarico volentieri, ma non ho trovato l'esempio di cui ho bisogno, sai
darmi un'indicazione di dove poterli trovare?

 darmi un'indicazione di dove poterli trovare?
Sono ben due gli .mdb pubblicati: cerca bene.
Quello che ricordo è :"Implementare un archivio d'immagini" di Silvio
Savoldi.
Pixel

Hai ragione sono anche più di due, li ho "analizzati" il fatto è che non ne
capisco un'accidenti ed avrei solamente bisogno di sapere quale istruzione
occorre per intercettare questo errore e cioè:
Se il nome del file o il percorso contenuti nel campo MioPath sono errati o
inesistenti allora MioControlloImmagine = vuoto.
tutto qua, facile facile per gli esperti, montagna da scalare per i pivelli
:-)
Ciao

 Ciao
Io direi poca voglia di leggere e molta voglia di trovare tutto pronto...!!!
Gli esempi sono chiari e come ti ha suggerito Pixel dovresti perderci
un pò di tempo, come hanno fatto quelli che hanno realizzato gli esempi.
Come se non bastasse in questo NG l'argomento è trattato molto
spesso e molto bene, quindi potevi almeno effettuare una ricerca tra i
POST precedenti.
Facile facile per tutti.....!
@Alex.

 ha scritto nel messaggio
news:cfu153$noq$1...@lacerta.tiscalinet.it...

Concordo con Ale ed aggiungo che sul web trovi tonnellate di esempi e di
codice non necessariamente su siti che trattano access.
Qui sotto un esempio "da analizzare" tratto da un sito su Visual Basic
per controllare l'esistenza di un file passando (nota l'argomento della
funzione) il percorso dello stesso.
Public Function FileExists(sFilename As String) As Boolean
    On Error GoTo ErrExit
    FileExists = CBool(Len(Dir(sFilename)) <> 0)
    Exit Function
ErrExit:
 FileExists = False
    MsgBox "Non trovo il file!", vbInformation
        Resume
         Exit Function
End Function
SunRex

 End If
morale la routine dovrebbe essere riscritta in questo modo:
 If IsNull(Path_Immagine) Then
    Me.MioControlloImmagine.Picture = Empty
else
    if Len(Dir(Me.Path_Immagine))> 0 then
           Me.MioControlloImmagine.Picture = Me.Path_Immagine
    End If
end  if
Saluti
Cinzia

 :-)
Quindi chi ha realizzato e messo gratuitamente a disposizione del s.c. i
suddetti esempi ha faticato inutilmente?
Sinceramente non ti capisco.
Pixel

 wrote:

Controlla se il file esiste
Function PathFilenameIsValid(pathfilename As String) As Integer
    Set fs = CreateObject("Scripting.FileSystemObject")
    PathFilenameIsValid = fs.FileExists(pathfilename)
End Function

 ha scritto nel messaggio
news:ou46i0hq4rbbol9r2...@4ax.com...

Grazie a tutti per l'aiuto.