Bonjour,
J'ai une application Access qui fonctionnait parfaitement jusque hier.
En la lançant ce matin, j'ai eu droit à un blocage "surprise" et j'ai des difficultés à cibler la cause de cette erreur.
A partir du code suivant :
l'application bloque sur la dernière ligne.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Public Function existeFileFSO(ByVal var4 As String) As Boolean Dim dbs As DAO.Database, tdf As DAO.TableDef Dim Tbl As Object Dim strMotPasse As String Dim strCheminBd As String Dim strConnect As String Dim strNomsTables() As String Dim strTemp As String Dim i As Integer Dim oDb As DAO.Database Dim oDbSource As DAO.Database Dim oTbl As DAO.TableDef Dim oTblSource As DAO.TableDef ' test si un fichier existe ! Set fs = CreateObject("Scripting.FileSystemObject")
J'ai le message suivant :
Erreur d'exécution '429'
Un composant activeX ne peut créer d'objet
Avez-vous une piste SVP ?..
Merci à l'avance
Partager