Newsgroup: it.comp.appl.access
Titolo: [NIUBBO] Inserire immagini in una maschera...

Ciao a tutti, da un mesetto circa sto cercando di imparare ad usare almeno
le funzionalità di base di Access2002 ma da un paio di giorni a questa parte
non riesco a risolvere un problema...
Ho guardato anche sul sito del comune ma non sono riuscito a risolverlo!
Ho creato una tabella (Utenti_T) con diversi campi tra cui (ID, nome,
Cognome, E-Mail) e con un campo (Path) di testo...ho poi creato una maschera
(Utenti_M) dove vengono visualizzati i campi precedenti e dove ho messo una
casella di testo (di nome path) con l'origine di controllo su "Path"...ho
poi creato un pulsante di comano collegato ad un metodo (=cmdlg_file()) che
mi permette di aprire un file immagine dall hard disk....
Qui sotto copio e incollo il metodo che ho modificato (l'ho trovato su
internet nel sito del comune):
*********************************
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" & 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:\"
   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!Utenti_M!path = (OpenFile.lpstrFile)
   End If
End Function
*********************************
in poche parole vorrei che una volta aperto Utenti_M e scelto un record
della tabella, cliccando usl pulsante di comando che mi apre il metodo sopra
descritto mi permetta di scegliere una foto e che me la associ al campo
Path...(in poche parole vorrei vedere il percorso della foto nella casella
di testo...
Mi esce un problema in questa riga che non riesco a rsiolvere....
"Forms!Utenti_M!path = (OpenFile.lpstrFile)"
Dove è l'errore?
una volta risolto questo problemino, se volessi fare in modo di visualizzare
la foto all'interno di utenti_M come devo procedere?
Grazie mille a tutti e....tanti auguri! ;o)))
--
Niki206CC
In guerra sono tutti in pericolo, tranne quelli che hanno voluto la
guerra.

 ha scritto nel messaggio
news:br6na5$29drjo$1...@ID-199174.news.uni-berlin.de...

Per prima cosa in un modulo del tuo database registra quanto pubblicato
nella FAQ nella Sezione General del Sito Comune ("Richiamare la finestra di
dialogo per la selezione di un file" di Stefano Bettini) così come è senza
apportare alcuna modifica, come invece risulta tu abbia fatto.
Per visualizzare il file immagine selezionato nella maschera Utenti_M
inserisci in essa un controllo Immagine e chiamalo MiaImmagine.
A fronte dell'evento "Su clic" del pulsante di comando genera il seguente
codice VBA:
Me!path = cmdlg_file()
Me!MiaImmagine.Picture = Me!path
Inoltre, a fronte dell'evento "Su corrente" della maschera, genera il
seguente codice VBA;
Me!MiaImmagine.Picture = Me!path
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com


Ciao Roberto
Bentornato.
Vabbč che siamo quasi a Natale....ehm ... e tu, sempre piů buono e per non
fare torti a nessuno, rispondi alla stessa domanda in due NG diversi.
Ciao Daniele

 Ciao Daniele
Lo faccio anche quando non č Natale.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------