Newsgroup: it.comp.appl.access
Titolo: aggiunta nome file

Ciao a tutti, vi scrivo per un piccolo problema, premetto che access non lo
so usare molto bene ma veniamo al nocciolo, ha fatto un piccolo archivio per
le foto in cui inserisco data, autore, risoluzione ecc. ecc. e tra questi
dati devo anche inserire il nome del file ma ogni volta devo scriverlo
rischiando anche di sbagliare per cui volevo sapere se č possibile inserire
un comando del tipo apri in cui viene visualizzato il contenuto di una
cartella e da lě posso selezionare il file che mi interessa aggiungendo
quindi il suo nome al database.
Spero di essere stato chiaro, ma ho i miei dubbi.
Cmq č possibile fare una cosa del genere?
Grazie

"bilbo" <

Cerca sul sito comune: ci sono esempi ben fatti .
Ciao: Alfio

 ha scritto nel messaggio
news:a9pg82$59tqj$1...@ID-117894.news.dfncis.de...

Per facilitarti la ricerca di Alfio, prova a dare uno sguardo alla FAQ di
Stefano Bettini intitolata "Richiamare la finestra di dialogo per la
selezione di un file" che trovi nella Sezione General del Sito Comune.
Visto che il tuo applicativo riguarda la gestione di foto e visto che vai
sul Sito Comune, dai uno sguardo come il tuo problema č stato risolto da
Silvio Savoldi nel database di esempio allegato alla FAQ che trovi nella
Sezione General e che č intitolata "Implementare un archivio di immagini".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------



vedi qualche thread sopra ho riportato il codice necessario
Saluti.
Emanuele.

scusate ma access lo mastico davvero poco, ho provato a guardare sul sito e
ho trovato alcuni esempi ma non riesco ad usarli nel mio database, non
potreste essere + chiari su come posso fare?Grazie



usa questo... devi adattarlo
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)" & 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![tbl_Marca]![tbl_DESCRIZIONE Sottomaschera]!Immagine =
cmdlg_file
   End If
End Function
Saluti.
Emanuele.