Newsgroup: it.comp.appl.access
Titolo: Oggetto Ole -enormi dimensioni ?-aiuto

Salve ,il mio problema è questo: 
ho una maschera "articoli" dove all'interno ho un campo "immagine" di tipo
Ole.
Avevo inserito il suddetto campo cossiche si avesse oltre alla descrizione
dell'articolo anche la visione della foto.
La foto.jpg che si trova ovviamente in una cartella di C: occupa come
spazio 30k.
Come mai appena la inserisco come oggetto sia che sia "incorporata"
o"collegata" le dimensioni dell'archivio crescono notevolmente(per ogni
foto prende circa 2Mb)e non occupano le dimensioni effettive delle jpg?
Questo problema non sussiste invece se si spunta la check "mostra come
icona", ma a me serve avere la foto.
Cosa posso fare? qual'e il metodo migliore per gestire le foto?
Grazie di tutto , Marco.
 
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Grazie di tutto , Marco.
Nel frattempo rispulciando il SitoComune ho trovato le risposte ai miei
problemi! Invece sapete dirmi come fare x aprire la finestra ricerca file
e premendo sul file che il suo percorso venga copiato automaticamente in
un campo?


 un campo?
Sempre sul Sito Comune (link qui sotto), nella Sezione General leggiti la
FAQ di Stefano Bettini intitolata "Richiamare la finestra di dialogo per la
selezione di un file".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 un campo?
che ne dici di continuare a spulciare il sito comune.
C'e'
--
a.cara

 ---------------------------------------------



--


 c'è un'altra soluzione nella Sezione Modules.
Scusami, ma come faccio a richiamare la funzione tramite il click di un
pulsante?
Non so come fare,scusa la mia ignoranza, io ho inserito un nuovo oggetto
nella sezione MODULI e ho copiato la parte del sito comune alla sezione
modules, ma ora cosa devo fare per richiamarlo dal click di un pulsante?


 modules, ma ora cosa devo fare per richiamarlo dal click di un pulsante?
nell'evento di click
Call nomefunzione(parametri se esistono)
oppure se c'e' un ritorno
x=nomefunzione(parametri se esistono)
--
a.cara

 modules, ma ora cosa devo fare per richiamarlo dal click di un pulsante?
Se usi quanto indicato nella FAQ di Stefano Bettini devi copiare il codice
contenuto nella FAQ in un modulo, quindi nell'origine controllo di una
casella di testo scrivi:
=cmdlg_file()
Oppure, se vuoi che l'indirizzo del file scelto nella finestra di dialogo
sia memorizzato in una casella di testo chiamata Pippo, a fronte dell'evento
"Su clic" del pulsante di comando genera:
Me!Pippo = cmdlg_file()
Se invece vuoi usare quanto indicato nel database di esempio della Sezione
Modules, in un modulo devi scrivere quanto segue:
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_PATHMUSTEXIST = &H800
Public Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustomFilter 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 Declare Function GetOpenFileName Lib "comdlg32.dll" _
        Alias "GetOpenFileNameA" (lpofn As OPENFILENAME) As Long
Public Sub ShowFile(frm As Form, fb As OPENFILENAME)
    Dim fName As String
    Dim result As Long
    Dim path As String
    path = "C:\"
    With fb
        .lStructSize = Len(fb)
        .hwndOwner = frm.Hwnd
        .hInstance = 0
        .lpstrFilter = "Tutti i File (*.*)" & vbNullChar & "*.*" &
vbNullChar
        .nMaxCustomFilter = 0
        .nFilterIndex = 1
        .lpstrFile = Space(256) & vbNullChar
        .nMaxFile = Len(.lpstrFile)
        .lpstrFileTitle = Space(256) & vbNullChar
        .nMaxFileTitle = Len(.lpstrFileTitle)
        .lpstrInitialDir = path & vbNullChar
        .lpstrTitle = "Scelta File" & vbNullChar
        .flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY
        .nFileOffset = 0
        .nFileExtension = 0
        .lCustData = 0
        .lpfnHook = 0
    End With
    result = GetOpenFileName(fb)
    If result <> 0 Then
        fName = Left(fb.lpstrFile, InStr(fb.lpstrFile, vbNullChar) - 1)
    End If
End Sub
E a fronte dell'evento "Su clic" del pulsante di comando genera:
Dim fb As OPENFILENAME
Dim fName As String
On Error GoTo Err_btnFile_Click
    Call ShowFile(Me, fb)
    fName = Left(fb.lpstrFile, InStr(fb.lpstrFile, vbNullChar) - 1)
    Me!Pippo =  fName
Exit_btnFile_Click:
    Exit Sub
Err_btnFile_Click:
    MsgBox Err.Description
    Resume Exit_btnFile_Click
