Newsgroup: it.comp.appl.access
Titolo: Gestione Immagini in Report

Ciao a tutti
Ho il seguente problema con A97 e W98:
Ho creato un report a 2 colonne che stampa circa 10 immagini per pagina.
Utilizzo il controllo immagine di access e carico le immagini che si trovano
in un determinato percorso.
Intanto quanto un articolo non ha immagine e devo visualizzare il controllo
vuoto eseguo l'istruzione Me.Foto.Picture = "" ma rimane visualizzata
l'immagine che c'era precedentemente.
Poi se stampo report con tante pagine, o con immagini pesanti, la stampa non
esce, da errore:
Che si può fare? Usare altri controlli
Grazie
Ciao

 Ciao
usa Empty
MAssimiliano
--------------------------------
Inviato via 
http://usenet.libero.it

 usa Empty
niente da fare.
E' cosě che intendevi?
Me.Foto.Picture = empty
purtroppo non va

 Che si puň fare? Usare altri controlli
Le immagini sono bitmap o Jpg?
Ciao!

 _____________
Ciao, spero di aver capito cosa desideri.
prova cosě:
Nella Maschera delle foto.
_________________________________
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
Private Sub Path_Change()
Me.Refresh
End Sub
Private Sub Path_DblClick(Cancel As Integer)
Me.Refresh
End Sub
_______________________________________
Nel valore predefinito del controllo denominato "Path" inserisci "Fare clic
per inserire una foto >>>".
_______________________________________
Per il filtro e inserimento foto usa il seguente modulo chiamato "sc_file".
_______________________________
Option Compare Database
Option Explicit
Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
            Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Type OPENFILENAME
   lStructSize As Long
   hwndOwner As Long
   hInstance As Long
   lpstrFilter As String
   lpstrCustomFilter As String
   nMaxCustFilter As Long
   nFilterIndex As Long
   lpstrFile As String
   nMaxFile As Long
   lpstrFileTitle As String
   nMaxFileTitle As Long
   lpstrInitialDir As String
   lpstrTitle As String
   flags As Long
   nFileOffset As Integer
   nFileExtension As Integer
   lpstrDefExt As String
   lCustData As Long
   lpfnHook As Long
   lpTemplateName As String
End Type
Public Function cmdlg_file()
   Dim OpenFile As OPENFILENAME
   Dim lReturn As Long
   Dim sFilter As String
   OpenFile.lStructSize = Len(OpenFile)
   sFilter = "Immagini(*.wmf,*.bmp,*.jpg,*.tif,*.gif)" & Chr(0) &
"*.wmf;*.bmp;*.jpg;*.tif;*.gif" & Chr(0)
   OpenFile.hwndOwner = Application.hWndAccessApp
   OpenFile.lpstrFilter = sFilter
   OpenFile.nFilterIndex = 1
   OpenFile.lpstrFile = String(257, 0)
   OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
   OpenFile.lpstrFileTitle = OpenFile.lpstrFile
   OpenFile.nMaxFileTitle = OpenFile.nMaxFile
   OpenFile.lpstrInitialDir = "C:\ e route delle foto"
   OpenFile.lpstrTitle = "Selezione"
   OpenFile.flags = 0
   lReturn = GetOpenFileName(OpenFile)
   If lReturn = 0 Then
      cmdlg_file = ""
   Else
      cmdlg_file = Left(OpenFile.lpstrFile, InStr(OpenFile.lpstrFile,
Chr$(0)) - 1)
      Forms![S:FotoOvili]!Path = cmdlg_file
   End If
End Function
_________________________________
Richiama il modulo con un pulsante ..., mettendo su evento clic
"=cmdlg_file()"
Ciao da Bruno

  Hai provato a rendere invisibile il controllo?
Ok. grazie. Per ora me la cavo cosě.
Per l'altro discorso, che sopra un certo numero con w98 il report non
appare? E' successo anche a Voi?