Newsgroup: it.comp.appl.access
Titolo: Immagini collegate.

Ho un DB con un campo OLE.
Ci voglio inserire fotografie, ma vorrei tenerle al di fuori del file MDB,
in una directory: in tal modo le dimensioni del mio DB non aumenteranno a
dismisura. Dico bene?
Come si fa? Pensavo che bastasse inserire l'immagine dal comando "Inserisci
oggetto" con la casellina spuntata "come collegamento" ma non č cosě. Come
fare?
Grazie,
Lorenzo 
collianiene.it

 wrote in message
uwix8.1958$W9.3...@twister2.libero.it...


 > oggetto" con la casellina spuntata "come collegamento" ma non è così.


 Lorenzo
Ricordati che in questo NG si risponde dopo e non prima del testo dei
messaggi precedenti.
Ti suggerisco comunque di andare nel Sito Comune (link qui sotto), nella
Sezione General e dai uno sguardo alle seguenti FAQ:
1) "Come implementare correttamente un archivio di immagini." di Stefano
Bettini
2) "Implementare un archivio di immagini." di Silvio Savoldi
3) "Archiviazione immagini" di Franco Cappellaro
Nella prima FAQ troverai un po' di teoria, nelle altre due troverai due
esempi di gestione di un archivio immagini.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:rawx8.83357$SR5.2...@twister1.libero.it...


 ha scritto nel messaggio
news:IxEx8.6919$W9.1...@twister2.libero.it...

Non sapevo che nel NG si dovesse rispondere dopo, e l'altra mail l'ho
spedita prima di leggere la tua quindi scusa, grazie e.. che bello sei
troppo gentile.
Forte questa NG!!
Lorenzo


Non ho la funzione xFileExists; perché, per verificare l'esistenza di un
file, non provi ad usare la funzione Dir (vedi help)?


 ha scritto nel messaggio
news:wQOx8.87932$SR5.2...@twister1.libero.it...

PERFETTO GRAZIE TANTE,
LORENZO

 xFileExists(glbPathImg + Nz(Me.immagine)))
Ciao! Scusa se non ho risposto prima, ma sono stato via per qualche giorno.
Vedo che Roberto ha gia'risposto egregiamente.
Ecco, in ogni caso, le funzioni xFileExists (ed xFolderExists) che uso io.
Ciao,
Angelo.-
Public Function xFileExists(ByVal file As String) As Boolean
    Dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    xFileExists = fs.FileExists(file)
    Set fs = Nothing
End Function
Public Function xFolderExists(ByVal folder As String) As Boolean
    Dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    xFolderExists = fs.FolderExists(folder)
    Set fs = Nothing
End Function

 ha scritto nel messaggio
news:wQOx8.87932$SR5.2...@twister1.libero.it...



Ti sarei grato (e non solo io) se rispondessi dopo e non prima del testo dei
messaggi precedenti.
Quale č il problema che cechi di risolvere con la funzione Dir?
Se poi il tuo problema č quello di ottenere il path completo di un file,
penso che la cosa piů logica sia quella di usare la finestra dell'Open
Dialog di Windows.
Puoi farlo usando le API di Windows.
Vai sul Sito Comune, link qui sotto, nella Sezione Modules vedi la FAQ di
Alessandro Benati intitolata "Usare le API di Windows in MSAccess - Parte I:
le Common Dialog."; scarica il database di esempio ad essa allegato e ci
troverai anche la soluzione al tuo problema, ovvero l'apertura della Open
Dialog di Windows che ti restituisce appunto il path del file scelto.
