Newsgroup: it.comp.appl.access
Titolo: Archivio documenti con Access

Ho diversi file Word. Nel loro interno contengono informazioni su diversi
prodotti. Vorrei realizzare un "motore di ricerca" in access che mi dia la
possibilità di individuare il file o i file che contengano specifiche sul
prodotto. Magari con una maschera che mi elenca i file e mi dia la
possibilità di di aprirli proprio nel paragrafo dove è l'informazione
(evidenziando in un altro colore il periodo del paragrafo).
Se è possibile realizzare ciò, datemi qualche suggerimento e su cosa dovrei
orientarmi.
Grazie a tutti.

 wrote in message
news:5toOc.22806$
OH4.5...@twister1.libero.it

Quello che chiedi è l'insieme di MOLTE cose, e come tale vanno
sviluppate
in modo settoriale avendo un'idea dell'obiettivo finale.
Su questo sito nella sezione DownLoad trovi ARCHIDOC
http://www.mantuanet.it/alessandro.baraldi/
Non sviluppa tutti i tuoi concetti ovviamente ma può essere
uno spunto per iniziare a strutturare l'anima del progetto.
Ciao.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie a tutti.
Cosa devi studiare te l'ha indicato Alessandro Baraldi; io ho pezzi di codice:
Questo codice č per cercare il documento che contiene una frase:
'----------------
Dim i As Integer
With FileSearch
    .NewSearch
    .LookIn = "C:\"
    .SearchSubFolders = True '<-- occhio che cerca in tutte lo sottocartella
    .TextOrProperty = "Frase da cercare"
    .MatchTextExactly = True
'trova tutti i tipi di file word
    .FileType = msoFileTypeWordDocuments
    If .Execute() > 0 Then
        Debug.Print "Trovati " & .FoundFiles.Count & " file"
        For i = 1 To .FoundFiles.Count
            Debug.Print .FoundFiles(i) '<-- nomi file trovati
        Next i
    Else
        MsgBox "Nessun file trovato"
    End If
End With
'----------------
Quest'altro apre un documento word e cerca una frase:
'----------------
Dim oApp As Word.Application
Dim oRange As Word.Range
Set oApp = CreateObject("Word.application")
oApp.Documents.Open "c:\documenti\nomeFile.doc"
Set oRange = oApp.Documents(1).Content
With oRange.Find
    .Text = "frase da cercare"
    .Execute
End With
If oRange.Find.Found Then
    MsgBox "Trovato."
    oRange.Select
Else
    MsgBox "non trovato."
End If
oApp.Visible = True
oApp.Activate
'----------------
Ora assembla il tutto e... Alla via cosě!
Ciao.
-- 
Sergio MAZZA


Grazie! per l'aiuto.


Ho utilizzato il codice mettendolo in un pulsante di comando, ho messo una
parola nella proprietà ".TextOrProperty = " racchiusa da virgolette.
Ma mi siblocca lesecuzione della routine sul:
".FileType = msoFileTypeWordDocuments"
perchè?

 perchč?
Forse manca qualche riferimento nelle librerie; comunque utilizza il valore della constante invece del nome:
msoFileTypeWordDocuments = 3
msoFileTypeTemplates = 8
msoFileTypePowerPointPresentations = 5
msoFileTypeOfficeFiles = 2
msoFileTypeExcelWorkbooks = 4
msoFileTypeDatabases = 7
msoFileTypeBinders = 6
msoFileTypeAllFiles = 1
Ciao.
-- 
Sergio MAZZA


Ok non mi da più l'errore. Ma sembra che questa fase non funzioni bene:
If .Execute() > 0 Then
        Debug.Print "Trovati " & .FoundFiles.Count & " file"
        For i = 1 To .FoundFiles.Count
            Debug.Print .FoundFiles(i) '<-- nomi file trovati
       MsgBox " print "
        Next i
    Else
Non dovrebbe comparire a video un elenco? C'è da dire che ofatto delle prove
on un file quando la parola nel file è presente non succede niente. Quando
non è presente mi comare: "Nessun file trovato"

 non è presente mi comare: "Nessun file trovato"
Il Debug.Print visualizza l'echo nella finestra di debug; aprila e poi fai girare la routine, vedi lì il risultato...
Ciao.
-- 
Sergio MAZZA


Scusa la mia domanda, ma come si apre la finestra di debug?
Ciao.

 ha scritto nel messaggio news:9TsOc.23214$OH4.5...@twister1.libero.it...

Apri/crea un modulo, menů Visualizza - Finestra Debug...
Ciao.
-- 
Sergio MAZZA