Discussion :

[intrud3r]

Bonjour

J'ai un petit problème avec MS ACCESS, je possède deux bases de données

Mon code se situe dans une base appelons la System contenant tous les paramètres et mes données sont stockés dans une base appelons la data, pour intégrer des fichiers txt via les spécifications d'import j'effectue un

Code :

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

1
2
3
4
5
6
7
 
 
Dim objDatabaseDataDay As Object
 
Set objDatabaseDataDay = GetObject(DATABASE_DIR_DATA & DATABASE_DATA_NAME)
 
objDatabaseDataDay.DoCmd.TransferText acImportDelim, strSpeImportName, strtmpTableName, DATAFILE_DIR_INPUT & strCurrentFilename

L'integration fonctionne correctement le seul problème est que juste après je souhaite ajouter une colonne 'column_name' a la table 'strtmpTableName'.

Et la mon programme plante, en me disons qu'il ne trouve pas la table 'strtmpTableName' dans la collection tableDefs en effectuant un pas à pas détaillé j'ai remarqué que le code continué alors que l'importation n'était pas terminés et qu'en attendant un peu le programme fonctionne, ma question est donc Est-il possible d'obligé MS ACCESS à attendre la fin de l'intégration de mon fichier avant de continuer le code?

Merci

[pgz]

Bonjour,

Tu peux esayer un

Code :

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

DoEvents

après l'import.
Sinon tu peux aussi faire une boucle qui attend ( mais pas trop longtemps) que la table soit créée.

Bon courage,

PGZ

[intrud3r]

Salut Merci pour tes réponses mais le Doevents ne fonctionne pas et la technique de la boucle n'est pas viable du fait que la taille des fichiers à integré n'est pas constantes et au vu du nombres je ne peux pas me permettre de temporiser, je vais essayer de modifier la technique d'intégration.
Merci

[cafeine]

Hello,

il y a dans ton code des variables non déclarées ou bien nous n'avons qu'un extrait de ton code ... sinon met entre quotes les noms de tables et de spécifications.

Ensuite tu peux faire une boucle qui attend la création d'une table

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
Function IsTable(ByVal strTbl As String) As Boolean

Dim tbl As DAO.TableDef

For Each tbl In CurrentDb.TableDefs
    If tbl.Name = strTbl Then
        IsTable = True
        Exit Function
    End If
Next tbl

IsTable = False

Set tbl = Nothing

End Function

Sub WaitForTheTable(ByVal strTbl As String)

Do While Not IsTable(strTbl)
    DoEvents
    DoEvents
Loop
MsgBox "Table Ok !"

End Sub

[intrud3r]

Ok, toutes mes variables on été déclaré auparavant.
Sinon je suis parti sur une intégration manuelle pour le moment mais s'il me reste du temps j'essaierai ta méthode en tout cas merci pour la piste. Cependant j'ai peur qu'en cas de problème je reste bloquer dans une boucle sans fin.