Probleme sur DoCmd.TransferText acImportDelim,

**totor92290** · 18/03/2019, 14h35

Bonjour à tous,
J'ai encore in petit souci avec mon transfert de fichiers CSV, mais là c'est in peu incompréhensible...
Je m'explique:
Parfois j'ai in message d'erreur et pour passer outre il faut fermer l'application et la re-démarrer!
message :

Run-time error '3049':
Cannot open database ".It may not be a database that your application recongnizes, or the file may be corrupt.

Alors il y a in "paquet" de datas que j'importe. Pour ce faire j'ai scindé mes extractions avant l'import en 8 !!
Parfois cela bug au second parfois au 4 ème....

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
Function AddAllExcelCelonisFileWithClick()
 
If Table_Exist("T001_CELONIS_Cumul") Then
            CurrentDb.Execute "DROP TABLE T001_CELONIS_Cumul"
            End If
            RefreshDatabaseWindow
 
sql1 = "CREATE TABLE T001_CELONIS_Cumul (Key_PO_Item  CHAR(50) ,[Created on] CHAR(50),[Purchasing Document] CHAR(50)"
                    sql1 = sql1 & ", [Item] double , [Material] CHAR(50),[Short Text]CHAR(50)"
                    sql1 = sql1 & ", [Material Type] CHAR(50), [Material_Description] CHAR(50),[Hazardous material number] CHAR(50)"
                    sql1 = sql1 & ", Vendor CHAR(50),[Name1] CHAR(50),[Postal Code] CHAR(50)"
                    sql1 = sql1 & ", City CHAR(50),Country CHAR(50)"
                    sql1 = sql1 & ", [Storage Location] CHAR(50),[Vendor Material No] CHAR(50)"
                    sql1 = sql1 & ", [Default storage location for external procurement] CHAR(50),Plant CHAR(50)"
                    sql1 = sql1 & ", IT_System CHAR(50),[SAP source system] CHAR(50)"
                    sql1 = sql1 & ", Warehouse_Location CHAR(50));"
                    CurrentDb.Execute (sql1)
                    Debug.Print sql1
            RefreshDatabaseWindow
 
If Table_Exist("T001_CELONIS_Raw") Then
            CurrentDb.Execute "DROP TABLE T001_CELONIS_Raw"
            End If
            RefreshDatabaseWindow
 
DoCmd.TransferText acImportDelim, "ExtractCSVCelonis", "T001_CELONIS_Raw", _
"C:\Users\...\02_Projects\PreCheckOnDock\OPEN_ORDERS\CELONIS\1_Celonis_2014-01-01_2016-12-31.csv", True
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q001_T001_CELONIS_Raw_to_T001_Cumul"
DoCmd.SetWarnings True
 
If Table_Exist("T001_CELONIS_Raw") Then
            CurrentDb.Execute "DROP TABLE T001_CELONIS_Raw"
            End If
DoCmd.TransferText acImportDelim, "ExtractCSVCelonis", "T001_CELONIS_Raw", _
"C:\Users\...\02_Projects\PreCheckOnDock\OPEN_ORDERS\CELONIS\2_Celonis_2017-01-01_2017-06-30.csv", True
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q001_T001_CELONIS_Raw_to_T001_Cumul"
DoCmd.SetWarnings True
 
If Table_Exist("T001_CELONIS_Raw") Then
            CurrentDb.Execute "DROP TABLE T001_CELONIS_Raw"
            End If
DoCmd.TransferText acImportDelim, "ExtractCSVCelonis", "T001_CELONIS_Raw", _
"C:\Users\...\02_Projects\PreCheckOnDock\OPEN_ORDERS\CELONIS\3_Celonis_2017-07-01_2017-09-30.csv", True
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q001_T001_CELONIS_Raw_to_T001_Cumul"
DoCmd.SetWarnings True
 
If Table_Exist("T001_CELONIS_Raw") Then
            CurrentDb.Execute "DROP TABLE T001_CELONIS_Raw"
            End If
DoCmd.TransferText acImportDelim, "ExtractCSVCelonis", "T001_CELONIS_Raw", _
"C:\Users\...\02_Projects\PreCheckOnDock\OPEN_ORDERS\CELONIS\4_Celonis_2017-10-01_2017-12-31.csv", True
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q001_T001_CELONIS_Raw_to_T001_Cumul"
DoCmd.SetWarnings True
 
If Table_Exist("T001_CELONIS_Raw") Then
            CurrentDb.Execute "DROP TABLE T001_CELONIS_Raw"
            End If
DoCmd.TransferText acImportDelim, "ExtractCSVCelonis", "T001_CELONIS_Raw", _
"C:\Users\...\02_Projects\PreCheckOnDock\OPEN_ORDERS\CELONIS\5_Celonis_2018-01-01_2018-04-30.csv", True
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q001_T001_CELONIS_Raw_to_T001_Cumul"
DoCmd.SetWarnings True
 
If Table_Exist("T001_CELONIS_Raw") Then
            CurrentDb.Execute "DROP TABLE T001_CELONIS_Raw"
            End If
DoCmd.TransferText acImportDelim, "ExtractCSVCelonis", "T001_CELONIS_Raw", _
"C:\Users\...\02_Projects\PreCheckOnDock\OPEN_ORDERS\CELONIS\6_Celonis_2018-05-01_2018-08-31.csv", True
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q001_T001_CELONIS_Raw_to_T001_Cumul"
DoCmd.SetWarnings True
 
If Table_Exist("T001_CELONIS_Raw") Then
            CurrentDb.Execute "DROP TABLE T001_CELONIS_Raw"
            End If
DoCmd.TransferText acImportDelim, "ExtractCSVCelonis", "T001_CELONIS_Raw", _
"C:\Users\...\02_Projects\PreCheckOnDock\OPEN_ORDERS\CELONIS\7_Celonis_2018-09-01_2018-12-31.csv", True
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q001_T001_CELONIS_Raw_to_T001_Cumul"
DoCmd.SetWarnings True
 
If Table_Exist("T001_CELONIS_Raw") Then
            CurrentDb.Execute "DROP TABLE T001_CELONIS_Raw"
            End If
DoCmd.TransferText acImportDelim, "ExtractCSVCelonis", "T001_CELONIS_Raw", _
"C:\Users\...\02_Projects\PreCheckOnDock\OPEN_ORDERS\CELONIS\8_Celonis_2019-01-01_2022-12-31.csv", True
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q001_T001_CELONIS_Raw_to_T001_Cumul"
DoCmd.SetWarnings True
 
CurrentDb.Execute "DROP TABLE T001_CELONIS_Raw"
 
End Function

C'est incomprehensible.
Je dois m'y prendre comme un manche!
Help!
Totor

**marot_r** · 18/03/2019, 17h03

Bonjour.

Quand Access commence a envoyer des erreurs "pas rapport", vérifier que la taille de la BD (frontale ou/et dorsale) est bien < 2 go.

A+

**totor92290** · 18/03/2019, 17h13

Merci marot_r

C'est ça !
Ma BDD est déjà 1.8 GB.

Il va me falloir trouver une parade... laquelle, je l'ignore. Mais étant débutant peut-être qu'un stockage externe (sur le réseau) de quelques tables ?
Je vais creuser.

Merci encore.
Totor

**marot_r** · 18/03/2019, 17h24

Bonjour.

Il n'y a pas de remède miracle.

Tu peux en effet "découper" tes données en tranches de tables de 2 Go max.
L'inconvénient, en plus d'avoir plusieurs fichiers, c'est que tu ne peux plus avoir d'intégrité référentielle.
Tu peux créer des relations inter-BD mais sans intégrité.

Si tu as de si gros volumes tu peux regarder du côté de MS-SQL_Server Express Edition qui est capable de 10 go de mémoire et un bon pas vers une migration vers MS-SQL server.
Attention le niveau de travail impliqué est sérieusement plus élevé que Access.

Sinon, il y a peut-être des BD gratuite qui accepte plus de 2 Go.

A+

**tee_grandbois** · 18/03/2019, 19h12

bonsoir totor92290 et marot_r,

C'est ça !
Ma BDD est déjà 1.8 GB.

Il va me falloir trouver une parade... laquelle, je l'ignore. Mais étant débutant peut-être qu'un stockage externe (sur le réseau) de quelques tables ?

1.8 GB, est-ce la taille avant ou après compactage ?

**totor92290** · 19/03/2019, 09h35

Bonjour Tee_grandbois,
Après compactage je suis à 1.2 GB
Quand je supprime la table "T001_CELONIS_Cumul " je passe à 561 MB
Quand je supprime ensuite la table "T000_UX_UE_Cumul" je passe à 1,8 MB
J'ai ajouté le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'Allégement de la base en supprimant T001_CELONIS_Cumul
If Table_Exist("T001_CELONIS_Cumul") Then
CurrentDb.Execute "DROP TABLE T001_CELONIS_Cumul"
End If
RefreshDatabaseWindow

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'Allégement de la base en supprimant T000_UX_UE_Cumul
If Table_Exist("T000_UX_UE_Cumul") Then
CurrentDb.Execute "DROP TABLE T000_UX_UE_Cumul"
End If
RefreshDatabaseWindow

Je vais essayé.

PS : j'ai rencontré in problème avec les rapports UX UE que j'exportais sous excel mais qui sous CSV me tronquaient les deux derniers digits (j'attends une réponse de l'IT). Avec CSV les requetes ajout sous beaucoup plus rapides !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'Ajout Raw UX UE CSV vers la table cumul
DoCmd.OpenQuery "Q0000b_Add_CSV_T008_UX_UE_To_T000_UX_UE_Cumul"
DoCmd.OpenQuery "Q0001b_Add_CSV_T009_UX_UE_To_T000_UX_UE_Cumul"
DoCmd.OpenQuery "Q0002b_Add_CSV_T010_UX_UE_To_T000_UX_UE_Cumul"

**totor92290** · 19/03/2019, 10h44

Et PAF!

Nom : 2019-03-19_10-35-24.png
Affichages : 85
Taille : 7,7 Ko

Quelqu'un aurait-il in code pour fermer l'application ET la ré-ouvrir.
La compression me permet d'ajouter les fichiers, ce que je ne peut pas faire sinon.
Fermer j'ai trouvé mais comment pour ré-ouvrir la même BDD ?

Merci

**marot_r** · 19/03/2019, 12h52

Bonjour.

Autant que je sache, aucune BD ne peut se rouvrir.
Une possibilité serait d'utiliser une BD "pilote" externe qui manipule ta BD de travail.

Donc ta BD pilote ouvre ta BD de travail.
Lance les traitements.
Fait le ménage.
Ferme et compacte la BD de travail.
Ouvre de nouveau et reprend le traitement.

Je ne l'ai jamais fait mais cela devrait marcher.

Attention il faudra peut-être remplacer les CurrentBD par CodeBD dans le VBA de la BD de travail pour être certain que c'est bien elle qui est utilisée.

A+

Probleme sur DoCmd.TransferText acImportDelim,

IHM

Discussions similaires

Partager

Partager