Newsgroup: it.comp.appl.access
Titolo: Aprire un'immagine cercandola in una cartella o nel PC

Per Access 97.
Uso queste righe di codice per per far leggere un'immagine ed associarla ad
una dato record senza incorporarla o collegarla nel db, pertanto non č
possibile aprirla cliccandoci dopra. Ovviamente con una casella di testo
chiamata foto, ecc, ecc.
Vorrei , con un doppio clic sulla casella di testo dove č scritto il
percorso della foto, es. C:\foto\pippo.jpg, farla cercare ed aprirla con una
data applicazione.
E' possibile ?
Mille grazie da bruno per qualsiasi aiuto.
------------------------------------------
Private Sub Form_AfterUpdate()
On Error Resume Next
Me![Foto].Picture = ""
Me![Foto].Picture = Me![Path]
Me.Refresh
End Sub
Private Sub Form_Current()
On Error Resume Next
Me![Foto].Picture = ""
Me![Foto].Picture = Me![Path]
Me.Refresh
End Sub


Se usi Access_2002(XP) e non devi distribuire l'applicativo con il RUNTIME
ti torna molto comodo FileDialog, vedi l'HELP devi dichiarare le librerie
di OFFICE, ma è ottimo.....!
@Alex.

 @Alex.
 E' vero che è tardi (ed un report rognosetto mi sta facendo spazientire),
ma Bruno parla di Acc97.
--
rgrds
SC 
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 SC
Tu hai il Report io sono schlerotico.........
Basta vado a letto, per oggi ne ho sbagliate troppe.....!!!
Grazie per la segnalazione, e scuse a Bruno per la BUFALA...!
In ogni caso sul Sito Comune puoi trovare il codice per
aprire il FileDialog attraverso le API (ACCESS97)
addirittura trovi alcuni esempi di come caricare le Immagini
vedi "Come Implementare un Archivio Immagini" di S.Savoldi...!
Ciao.
@Alex.

 @Alex.
Passo un pò di codice che ho preso da una mia applicazione... è inserita
in un pulsante... da adattare:
Dim mioFile As String, mioPercorso As String, DocDaaprire As String,
Ritorno As Variant
Dim mioControl As String
Dim miaPath As String
miaPath = "c:\Fornitori" & "\" & Me.NrProtocollo & ".tif"
mioPercorso = InputBox("Il file che verrà richiamato è il seguente:",
"Titolo finestra", miaPath)
DocDaaprire = mioPercorso
If Dir(DocDaaprire) = "" Then
MsgBox "Il file nel percorso: " & mioPercorso & ", non esiste.",
vbInformation + vbOKOnly, "Titolo finestra"
Else
Ritorno = Shell("c:\programmi\windows nt\accessori\imagevue\kodakimg.exe "
& DocDaaprire, vbNormalFocus)
End If


 Mille grazie da bruno per qualsiasi aiuto.
[CUT]
Per aprire l'immagine con un'altra applicazione devi usare la funzione Shell
tale funzione ti apre il file in questione con quello che vuoi tu.
Per le tue foto potresti usare PhotoShop o Microsoft Photo Editor
chiaramente mettendo il percorso giusto di dove è l'applicazione.
Private Sub TuoPulsante_Click()
Dim strPath As String
strPath = Me.TuoPulsante.Value
Shell("C:\Programmi\Adobe\Acrobat 6.0\Reader\AcroRd32.exe"& strPath,
vbNormalNoFocus)
End Sub
Ciao
SunRex

 End Sub
Penso che il modo più semplice sia quello che il nome ed il percorso del
file immagine vengano memorizzato nella tabella invece che in un campo di
tipo Testo in un campo tipo Collegamento ipertestuale; così facendo, quando
con il mouse cliccherai sulla casella di testo associata a tale campo,
automaticamente (ovvero senza che tu debba programmare alcunché) Accesss
aprirà tale file immagine usando l'editor di immagine che hai definito come
predefinito per quel tipo di file.
Naturlmente nel tuo esempio, nel campo in questione non dovrai memorizzare
il valore  C:\foto\pippo.jpg ma tale valore racchiuso tra due caratteri #,
ovvero #C:\foto\pippo.jpg#; per maggior chiarimenti cerca sull'help come si
memorizzano i dati in un campo di tipo Collegamenti ipertestuale.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:bu4j57$27p$1...@news.newsland.it...

--------------------------------------
Grazie per il codice. Ho risolto il problema.
Grazie anche a tutti gli altri per i consigli.
Ciao
        Bruno