Newsgroup: it.comp.appl.access
Titolo: visualizzazioni immagini

salve vorrei avere delucidazioni circa l'interpretazione procedimento
riportato sotto.....(per la visualizzazione di immagini direttamente da
maschera con i collegamenti ipertestuali) la frase  è stata ripresa dal sito
comune; ma essendo inesperto non mi è del tutto chiara.
Supponendo di aver memorizzato il path del file immagine nel campo
Path_Immagine sarà sufficiente inserire un controllo Immagine nella form o
nel report basati sulla tabella ed un controllo nascosto collegato al campo
in questione.
A questo punto, sull' evento Corrente (per le forms) o SuFormattazione (per
i reports) sarà sufficiente aggiungere la semplice riga di codice seguente
per visualizzare l' immagine:
Me.MioControlloImmagine.Picture = Me.Path_Immagineho creato il campo
immagine  e creato una casella di testo  che riprende dal campo dei
collegamenti ipertestuali chiamato "Path_immagine" isibile impostata
"NO"quello che non ho capito e come devo tradurre
"Me.MioControlloImmagine.Picture" da inserire nell' evento corrente ..se
qualcuno mi può aiutare...sarei profondamente obbligato...grazie

 ha scritto nel messaggio
news:cha1vk$2mln$1...@newsreader1.mclink.it...

La casella di testo Path_immagine, nella soluzione proposta da Stefano
Bettini, NON DEVE essere associata ad un campo di tipo Collegamento
ipertestuale, ma deve essere associata ad un semplice campo di tipo Testo
che contiene il path completo del file immagine da visualizzare e non ad un
campo che contiene il suo indirizzo ipertestuale.
Se poi invece Path_immagine DEVE essere assolutamente associato ad un campo
di tipo Collegamento ipertestuale, allora prova così:
Dim PosLink1 As String
PosLink1 = InStr(Me!Path_immagine, "#") + 1
Me!MioControlloImmagine.Picture = _
Mid(Me!Path_immagine, PosLink1, _
Len(Me!Path_immagine) - PosLink1)
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:aJ0_c.75105$1V3.1...@twister2.libero.it...


 grazie per la prontezza
[CUT]
Quando rispondi scrivi DOPO e non prima del testo dei messaggi precedenti.


scusate se insisto sulla soluzione proposta da Stefano
Bettini, per la visualizzazione delle immagini....
ho fatto come avevate detto
1)Converito il campo del db "path_immagine" in testo con il collegamento
completo all'immagine
2) ho inserito nella maschera un immagine con nome elemento "Immagine110";
proprietà immagine (nessuna) e tipo immagine (collegata)
3) inserito il campo testo (proprieta: invisibile) con controllo sul "path
immagine"
dopodichè inserito su evento corrente la seguente stringa:
Private Sub Form_Current()
Me.Immagine110.Picture = Me.path_immagine
End Sub
Ma continua a non funzionare (errore run-time94.. utilizzo non valido di
Null)
...ho provato anche sulla proprietà immagine ad impostare al collegamento
ipertestuale la tabella del dB dove risiedono i path...ma niente... dove
sbaglio?
grazie per la pazienza... non approfitterò oltre.

 grazie per la pazienza... non approfitterò oltre.
-- 


 funziona!
grazie

 Ultima cosa quale è la sintassi giusta per valori nulli in caso di
collegamento ipertestuale?
come va posto nel caso sottostante Nz?
Dim PosLink1 As String
 PosLink1 = InStr(Me!Path_immagine, "#") + 1
 Me!MioControlloImmagine.Picture = _
 Mid(Me!Path_immagine, PosLink1, _
 Len(Me!Path_immagine) - PosLink1)
un' ultimo suggerimento..per favore

 un' ultimo suggerimento..per favore
Prova così:
Dim PosLink1 As String
 PosLink1 = InStr(Me!Path_immagine, "#") + 1
 Me!MioControlloImmagine.Picture = _
 Nz(Mid(Me!Path_immagine, PosLink1, _
 Len(Me!Path_immagine) - PosLink1), "")


 >
Non è problema di essere pedane, se hai deciso di continuare a programmare
Access forse è il caso che cominci a studiare VBA o per lo meno a imparare
ad usare l'help in linea.
Prova così:
Dim PosLink1 As String
If IsNull(Me!Path) = False Then
    PosLink1 = InStr(Me!Path_immagine, "#") + 1
    Me!MioControlloImmagine.Picture = _
    Mid(Me!Path_immagine, PosLink1, _
    Len(Me!Path_immagine) - PosLink1)
Else
    Me!MioControlloImmagine.Picture = ""
End If
