Newsgroup: it.comp.appl.access
Titolo: RecordsetClone e Path immagini

Ciao a tutti,
dopo parecchi litigi con Access, ero riuscito a combinare qualcosa, ora però
mi da un errore di Tipo non corrispondente:
Private Sub Form_Current()
Dim rs As DAO.Recordset
Dim i As Integer
Set rs = Me!Elenco_Foto.Form.RecordsetClone
'Set rs = CurrentDb.OpenRecordset("tblImmagine")
    For i = 1 To 6
        Me("foto" & i).Picture = rs!Path
        rs.MoveNext
    Next
rs.Close
End Sub
riferimenti inseriti a DAO a priorità alta...se commento il primo set e
utilizzo il secondo tutto funziona, se il codice rimane così mi RunTime 13,
con evidenza su riga Me("foto" & i).Picture = rs!Path
Perchè?
La maschera Elenco_Foto è una semplice machera con inserito un campo testo
chiamato Path.
Grazie
Femto

 ha scritto nel messaggio 
news:42145aee$0$6320$5fc...@news.tiscali.it...

Prova così:
Private Sub Form_Current()
Dim i As Integer
    For i = 1 To 6
        Me("foto" & i).Picture = Me!Elenco_Foto.Form.RecordsetClone!Path
        Me!Elenco_Foto.Form.RecordsetClone.MoveNext
    Next
End Sub
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio
news:cv1tns$4v6$1...@canarie.caspur.it...

Ciao Sergio,
ti ringrazio per la risp ma purtroppo mi da sempre lo stesso errore, non
esiste un meccanismo per fare tipo un cast?
Femto

 ha scritto nel messaggio
news:42148a85$0$32347$5fc...@news.tiscali.it...

...certo che è pazzesco, perchè parte a creare la sequenza immagini, poi
quando cambio record riparte e si blocca, però quando mi da l'errore se
invece di andare in debug gli dò l'annulla il risultato sulla maschera è
presente, boooo?
Femto

 Femto
L'errore su quale riga si ferma?
Forse hai un "path" nullo?
Ciao.
-- 
Sergio MAZZA 


ciao, si ferma sulla prima:
Me("foto" & i).Picture = Me!Elenco_foto.Form.RecordsetClone!Path
...che intendi con path nullo? forse che siccome ho sei controlli immagine
foto1, foto2, ...,foto6, se nella tabella Elenco_foto sono presenti meno
record mi da l'errore, dovrei forse gestire un'eccezione? adesso provo a
riempire anche un secondo record con 6 path...
ciao
Femto

 ha scritto nel messaggio
news:4214a0e2$0$32349$5fc...@news.tiscali.it...

...il problema č proprio lě, sto male!!!sono giorni che rompo le scatole al
newsgroup per sta cosa...perň adesso sorge il problema di come
gestirla...potrei provare con un recordcount, memorizzare in una variabile e
far ciclare il for fino alla nuova variabile, che dici?
grazie
Femto

 ha scritto nel messaggio
news:4214a30e$0$6309$5fc...@news.tiscali.it...

...problema risolto egregiamente con il seguente codice:
Private Sub Form_Current()
Dim rs As DAO.Recordset
Dim i As Integer
Set rs = Me!Elenco_foto.Form.RecordsetClone
    For i = 1 To rs.RecordCount
        Me("foto" & i).Picture = rs!Path
        rs.MoveNext
    Next
rs.Close
End Sub
...ti ringrazio moltissimo, non sai quanto mi hai aiutato mi hai prprio
fatto aprire gli occhi...
grazie
Femto


Io di solito mi salvo un file con scritto "Immagine non disponibile" e se 
non trovo il file gli passo quello come default. La presenza o meno del 
valore lo test tramite la funzione NZ (vedi help):
es.
...
Me("foto" & i).Picture = NZ(rs!Path,"C:\immagineNonDisponibile.jpg")
...
Ciao.
-- 
Sergio MAZZA