Newsgroup: it.comp.appl.access
Titolo: selezione immagine in maschera

Ciao a tutti.
ho creato una maschera di inserimento dati e un pulsante che mi apre la
finestra di selezione multipla x le immagini.
La finestra mi compare come predefinito (per esempio su c:\).
Non capisco perchč se il file di immagine č nella cartella iniziale nella
finestra (nell'esempio su c:), una volta selezionato, mi compare nella
cornice, altrimenti mi compare solo il percorso nel campo immagine ma nella
cornice no.
Questo č il codice per l'apertura della finestra  su evento click del
pulsante:
Private Sub Img_Load_Click()
If Not Me.AllowAdditions Or Not Me.AllowEdits Then Exit Sub
    Dim NomeFile As Variant
    Dim lngFlags As Long
    Dim gfni As accOfficeGetFileNameInfo
    Dim result As String
    On Error GoTo HandleErrors
    'lngFlags = lngFlags Or bacGfniAllowMultiSelect
    lngFlags = lngFlags Or bacGfniInitializeView
    With gfni
        .lngView = 1
        .lngFlags = lngFlags
        ' Make sure not to pass in Null values. adhOfficeGetFile
        ' doesn't like that, and often GPFs.
        .strFilter = ""
        'If Len(.strFilter) > 0 Then
        '    .lngFilterIndex = CInt(Me.txtFilterIndex)
        'End If
        .strFile = ""
        .strDlgTitle = "Selezione Immagini (Multiselezione)"
        .strOpenTitle = ""
        .strInitialDir = ""
        .hwndOwner = Application.hWndAccessApp
    End With
    If OfficeGetFileName(gfni, -1) = 0 Then
        result = Trim(gfni.strFile)
        Me.Fotografia = ParseFileName(result)
        Form_Current
    End If
ExitHere:
    Exit Sub
HandleErrors:
    MsgBox "Error: " & Err.Description & " (" & Err.Number & ")"
    Resume ExitHere
End Sub

 cornice no.
[CUT]
Con il codice che hai postato viene recuperato il Percorso
dell'Immagine e passato al controllo Me.Fotografia. 
Poi in qualche modo richiami la funzione Form_Current
che non si sà cosa faccia, o meglio tu lo sai....!!!!
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
news:bb943b2899d653135a...@mygate.mailgate.org

Ho sbagliato una cosa, non metti il Percorso Completo
ma solo il NOME, probabilmente l'errore è questo:
Me.Fotografia = ParseFileName(result)
Prova così:
Me.Fotografia = result


 ha scritto nel messaggio
news:bb943b2899d653135a...@mygate.mailgate.org...

Scusa mi ero dimenticato.
Nella form current il codice è questo:
Me.cornice.Picture = vbNullString
If IsNothing(Me.Fotografia) Then Exit Sub
If Not fIsFileDIR(Nz(Me.Fotografia, "")) Then
Else
   Call fLoadPicture(Me.cornice, Me.Fotografia)
End If
End Sub
Non capisco xke se la foto si trova nella cartella iniziale me la fa
visualizzare, mentre se si trova in altra cartella nella cornice non me la
fa visualizzare.

 fa visualizzare.
Come immaginavo il problema lo risolvi con il 2° post che
ho inviato, probabilmente c'è un errore nella Funzione
ParseFileName(nome di funzione che peraltro mi pare di conoscere)
Toglila in quanto sicuramente l'hai copiata da un DEMO che usa
riferimenti FISSI pertanto estraeva il Solo FILENAME e non la
PATH completa.


 ha scritto nel messaggio
news:tYS6e.44462$Of5....@nntpserver.swip.net...

Risolto.. ora funzia.. grazie mille..