Discussion :

[Myaccess]

Bonjours a tous,

J'ai un problème avec le code qui détruit automatiquement les tables d'erreurs, je l'ai trouvé sur un tutoriel, le voici :

Code :

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

DoCmd.DeleteObject acTable, fichier & "_ImportErrors"

En complément:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function PurgeErreurs()
 
Dim tbl As TableDef
For Each tbl In CurrentDb.TableDefs
 If InStr(tbl.Name, "importerrors") Then
    Debug.Print "Effacement de " & tbl.Name
    CurrentDb.TableDefs.Delete tbl.Name
 End If
Next tbl
 
Set tbl = Nothing
 
End Function

Mon problème, je ne sais pas comment positionner le code sur Visuel basic.

Merci pour l'aide.

[martii843]

Salut,

A quel moment veux tu faire cette suppression ?

[Myaccess]

Au moment de l'importation des données.

[tee_grandbois]

Bonjour,

J'ai un problème avec le code qui détruit automatiquement les tables d'erreurs, je l'ai trouvé sur un tutoriel, le voici :
...
Mon problème, je ne sais pas comment positionner le code sur Visuel basic.

Merci pour l'aide.

je pense que tu devrais essayer de donner un peu plus de précisions. En général, ce type de fonction est appelé depuis un formulaire (sur clic d'un bouton) ou une macro.
Comment procèdes-tu pour importer tes données ?

[Myaccess]

L'importation est enregistré sous le nom "Importation_liste" et a chaque fois j'actualise cette importation par un bouton click sur un formulaire (menu) comme suite:

Code :

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

1
2
3
4
Private Sub Bt_refresh ()
 DoCmd.RunSavedImportExport ("Importation_liste")
 Me.Refresh
End Sub

[tee_grandbois]

Bonjour,
dans ce cas, c'est simple, il suffit d'insérer les instructions de suppression avant l'importation :

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
Private Sub Bt_refresh ()
Dim tbl As TableDef
For Each tbl In CurrentDb.TableDefs
    If InStr(tbl.Name, "importerrors") Then
	Debug.Print "Effacement de " & tbl.Name
	CurrentDb.TableDefs.Delete tbl.Name
    End If
Next tbl
 
Set tbl = Nothing
 
DoCmd.RunSavedImportExport ("Importation_liste")
Me.Refresh
 
End Sub

[Myaccess]

Ah ! oui plutôt c'est simple...mais j'ai pas pensé a ça.

Je vous remercie grandbois pour votre aide appréciable.

Merci beaucoup.