A voir également:
- Programmation dans ACCESS
- Application de programmation - Guide
- Access appdata - Guide
- Cette action ne peut pas être réalisée car le fichier est ouvert dans un autre programme - Guide
- Acer quick access - Forum logiciel systeme
1 réponse
Il suffit de placer le contenu de ton repertoire contenant les fichiers dans une table
que tu raccorderas à ta liste modifiable.
Voici une procédure te permettant de remplir cette table avec le contenu du répertoire.
La table (="Table1") ne contient qu'un seul champ (="Titre").
Le répertoire contenant tes fichiers est "C:\Mes Textes"
Sub Update_Table1()
Dim PremierFichier, MySQL, FichierSuivant
'Vider la table
MySQL = "DELETE * FROM [Table1]"
DoCmd.RunSQL (MySQL)
'Remplir la table
PremierFichier = Dir("C:\Mes Textes\*.txt")
MySQL = "INSERT INTO [Table1] (Titre) VALUES ('" & PremierFichier & "')"
DoCmd.RunSQL (MySQL)
FichierSuivant = Dir
While FichierSuivant <> ""
MySQL = "INSERT INTO [Table1] (Titre) VALUES ('" & FichierSuivant & "')"
DoCmd.RunSQL (MySQL)
FichierSuivant = Dir
Wend
End Sub
F'là
Michel
que tu raccorderas à ta liste modifiable.
Voici une procédure te permettant de remplir cette table avec le contenu du répertoire.
La table (="Table1") ne contient qu'un seul champ (="Titre").
Le répertoire contenant tes fichiers est "C:\Mes Textes"
Sub Update_Table1()
Dim PremierFichier, MySQL, FichierSuivant
'Vider la table
MySQL = "DELETE * FROM [Table1]"
DoCmd.RunSQL (MySQL)
'Remplir la table
PremierFichier = Dir("C:\Mes Textes\*.txt")
MySQL = "INSERT INTO [Table1] (Titre) VALUES ('" & PremierFichier & "')"
DoCmd.RunSQL (MySQL)
FichierSuivant = Dir
While FichierSuivant <> ""
MySQL = "INSERT INTO [Table1] (Titre) VALUES ('" & FichierSuivant & "')"
DoCmd.RunSQL (MySQL)
FichierSuivant = Dir
Wend
End Sub
F'là
Michel