Newsgroup: it.comp.appl.access
Titolo: allegare un file

Ciao,
quello che vorrei riuscire a fare è creare una procedura di semplice 
utilizzo per allegare un file (.doc; .pdf ...).
Ho inserito su una tabella un campo collegamento ipertestuale. inserendo 
manualmete la directory del file funziona alla grande. Quello che non sono 
riuscito a fare, però, e creare un sistema di ricerca del file tra le 
risorse del computer e l'inserimento automatico della directory in un campo 
inserito in una maschera. Con sommo piacere ho visto che su access 2007 
(purtroppo il db non può girare sul 2007 :......( )questa funzione è creata 
in automatico appena si inserisce un campo con un colegamento ipoertestuale.
Help!!!
Ciao e grazie.
Luciano. 


Su 
www.sitocomune.com
 ci sono esempi per elencare i file nella cartella 
indicata; basta che ci aggiungi l'istruzione che salva, in tabella, il nome 
del file trovato e il path...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:fc1bam$vok$1...@tdi.cu.mi.it...

Ciao,
come mi hai indicato, ho trovato un db di esempio su 
www.sitocomune.com
Il codice associato al pulsante che si occupa di inserire nella tabella il 
nome del file ed il path non copia solo il file selezionato ma tutti quelli 
presenti in cartella.
come posso fare ad inserire solo il file selezionato?
grazie.
Private Sub WriteFile_Click()
On Error GoTo errori
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    Dim i As Integer
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("nomi", dbOpenTable)
        For i = 0 To Me.prog.ListCount - 1
        With rst
            .AddNew
            !pathCompleto = IIf(Me.MyPath <> mydrive, Me.MyPath & "\", 
mydrive)
            !nomeFile = Me.prog.ItemData(i)
            .Update
        End With
        Next
    MsgBox ("Ho scritto " & Me.prog.ListCount & " files nella tabella 
nomi.")
    Set rst = Nothing
    Set dbs = Nothing
(...) 


Indica il suggerimento che hai adottato...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:fc5d12$bvb$1...@tdi.cu.mi.it...

il db di esempio è il 3.97
http://www.sitocomune.com/download/SfogliaCartelle.zip
ciao. 

 ciao.
Io utilizzerei:
5.42 API - Commondialog e Browser for folder attraverso #56 MsAccess.exe
5.5 Usare le API di Windows in MSAccess - Parte I: le Common Dialog.
Che ti permette di aprire la finestra "Apri" di windows, selezionare un file 
e ritornare il suo nome e percorso...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:fc5d12$bvb$1...@tdi.cu.mi.it...

Ciao!! procedendo un pò empiricamente, ho visto che su un'altro db di 
esempio, l'esempio 3.23, aggiungeva al codice If 
Me.[nomemaschera].Selected(i) Then
a parte qualche aggiustamento ancora necessario mi sembra che funzioni. 
Potrebbe andar bene?
Ciao,
Luciano
[...]
For i = 0 To Me.prog.ListCount - 1
        If Me.prog.Selected(i) Then
        With rst
            .AddNew
            !pathCompleto = IIf(Me.MyPath <> mydrive, Me.MyPath & "\", 
mydrive)
            !nomeFile = Me.prog.ItemData(i)
            .Update
            End With
            End If
           Next
    [...] 

    [...]
Se devi cercare un file nell'HD, segui gli altri due suggerimenti...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:fc62q8$94p$1...@tdi.cu.mi.it...

decisamente una soluzione molto più elegante...un tantino fuori dalla mia 
portata ;-)))))
Ma ci provo TKS!!!