Newsgroup: it.comp.appl.access
Titolo: gestione foto mancanti in report

salve a tutti,(anche al redivivo Emyr).
Ho cercato nei post precedenti ma non sono riuscito a cavarne nulla (anche
se ricordavo che era stato dibattuto), ma cmq.
Dunque ho il problema di dover elencare a piè di una nota di vendita le foto
(ove presenti) delle forme degli articoli venduti (che ovviamente si possono
ripetere per articoli diversi). Ora se raggruppo queste forme e le richiamo
con la proprietà picture, mi escono fuori una serie di articoli che magari
non hanno la foto e quindi mi viene fuori una foto inframmezzata a tanti
"buchi". Come posso fare per saltare quei "buchi"?
Confido in voi, anche se nel frattempo continuo a provarci
MAssimiliano
--------------------------------
Inviato via 
http://usenet.libero.it

On Thu, 08 May 2003 07:59:13 GMT, 
massimilia...@kksrl.com
 (MA)
wrote:

non puoi usare un sottoreport? dove mostro solo le foto raggruppate
non nulle?
Saluti.
Emanuele.

salve a tutti,(anche al redivivo Emyr).
salve anche a te!
Saluti.
Emanuele.

 Emanuele.
Sì il problema è appunto il test della presenza o meno delle foto
select forma from venditaq group by forma where...
ciao MAssimiliano


 select forma from venditaq group by forma where...
du' righe di vba su formattazione corpo o quello che e', e' un'ipotesi da
scartare?
ma forma cosa  e' (che tipo campo intendo)
--
a.cara 
Togli qualcosa dall'email

 ma forma cosa e' (che tipo campo intendo)
Forma è un campo di tipo testo. In relatà l'anagrafica articoli è tra
l'altro codice,articolo,forma,misura,um etc.


 l'altro codice,articolo,forma,misura,um etc.
MA sei troppo sintetico:
1) forma e' quindi il nome della immagine?
2) sul report dove stanno e come stanno messe (verticale, orizzontale, di
traverso...?) e quante sono o possono essere?
3) che fai sulla proprieta' picture? (cutta e impasta il codice, perche' usi
codice per modificare la picture, nevvero?)


 codice per modificare la picture, nevvero?)
Credo di aver risposto prima.
[OT] simpatico quell'inglesismo "impasta"



Caro Ale giacchè mi hai sedotto e abbandonato ho fatto tutto da me.
"Imapsto" il codice che è venuto fuori
So che c'erano diverse strade, ma ho alcune scelte obbligate e altre
preferite.
Il concetto di fondo è quello di crearmi una tab temp da cui costruire un
sottoreport: dove trova l'immagine dalla cartella predefinita accoda all tab
temp il nome.
Lo commento per chi ne avesse bisogno
Private Sub Comando0_Click()
Dim rst As DAO.Recordset
Dim dbs As Database
Dim aggiunta As DAO.Recordset
Dim i As Integer
Dim nume
Set rst = CurrentDb.OpenRecordset("query1")
'questa query mi serve per altre cose e quindi avendola la uso,
'raggruppa le forme presenti nella nota interessata e le ordina in maniera
alfabetica
    rst.MoveFirst
    nume = DCount("*", "query1")
'mi posiziono sul primo record del mio rst e conto quanti ne sono
    For i = 1 To nume
            Set aggiunta = CurrentDb.OpenRecordset("tabella2")
            If Dir("z:\" & rst!forma & ".jpg") <> "" Then
            aggiunta.AddNew
            aggiunta!forg = rst!forma
            aggiunta.Update
            aggiunta.Close
            rst.MoveNext
' Se la foto esiste l'aggiungo alla tab temp e vado oltre
            Else
            rst.MoveNext
            End If
'altrimenti vado oltre
    Next
'ripeto il ciclo for
 
Set rst = Nothing
'chiudo la variabile rst
End Sub
Questo è il progetto di base, ora vado a migliorarlo. Ovviamente si
accettano consigli.
