Visualizzare elenco documenti presenti in cartella su maschera

Question

win 10

access 2013

buongiorno,

a suo tempo avevo chiesto come far vedere su una maschera quanti documenti erano presenti in una determinata cartella.

adesso mi domandavo (o meglio dovrei dire: vi domando) è possibile far vedere in una maschera l'elenco completo dei file contenuti in una determinata cartella?

per esempio:

nel dbanagrafica ho per ogni dipendente la sua scheda e poi carico nella sua relativa cartella tutti i documenti che lo riguardano.

mi piacerebbe che all'apertura della maschera dove trovo tutti i dati anagrafici del dipendente ci sia anche la possibilità di vedere già quali documenti sono stati caricati.

immagino che access sia in grado di farlo ma è il come che farglielo fare che non so fare :)

Ivan

Answer 1

eccomi eccomi....

in un modulo ho inserito:

Public Function FillListFiles(ctl As Access.ListBox, Startpath As
String)

 Dim MyPath As String  
 Dim MyName As String  
 Dim strRow As String  

 ctl.RowSource = ""  
 MyPath = Startpath  
 MyName = Dir(MyPath)  
 Do While MyName <> ""  
 strRow = strRow & MyPath & MyName & ";"   
 MyName = Dir  

Loop
ctl.RowSource = Left(strRow, Len(strRow) - 1)
End Function

dopo di chè ho inserito una Casella di riepilogo nella maschera di interesse e l'ho rinominata ElencoDoc

su caricamento:

Private Sub Form_load()

Call FillListFiles(Me.ElencoDoc, "MioPercorso")

End Sub

e ho impostato Tipo origine riga "Elenco Valori".

tutto questo è bellissimo ma .... il mio problema continua a seguirmi e vi spiego perchè:

la maschera dove visualizzo l'elenco dei file si aggiorna in base a cosa seleziono in una casella di riepilogo quindi devo aggiungere sul Call la parolina magica per dire ad Access che il percorso dove deve guardare i FIles al suo interno è MioPercorso + la variabile

io ci provo :

Private Sub Form_load()

Call FillListFiles(Me.ElencoDoc, "MioPercorso\ & IDAnagrafica")

End Sub

e infatti mi restituisce

Errore di run-time '5':

Chiamata di routine o argomento non validi

ctl.RowSource = Left(strRow, Len(strRow) -1)

devo aver fatto una **** stratosferica

e comunque non andrebbe bene nemmeno richiamare la funzione su Load perchè come fa poi ad aggiornare la casella di riepilogo se cambio i dati con l'aggiornamento dell'altra casella di riepilogo?

wow che domandona :)

Answer 2

Buongiorno Mimmo e Buongiorno Sandro,

rispondo ora e mi scuso per la mia assenza ma ero impegnato a chiudere una emergenza :)

avevo iniziato a dare un occhiata alla funzione DIR che fa sicuramente al caso mio ma con le variabili a me tutto diventa sempre più difficile :(((

il sito comune provo a dargli un'occhiata a breve e poi posto quello che riesco a partorire :)

grazie

Answer 3

ciao Ivan.

prova a dare un occhio alla demo puntata dalla freccia...se hai voglia di migliorarla un po'e sostituire il fileSearch, non più supportato da A>2003 con il fileDialog....dovresti trovare qualche spunto interessante...

ciao, Sandro.

Answer 4

Ciao,

prova a cercare la funzione DIR in Vba.

Ciao Mimmo