Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Vider une table avec du code VBA

Vider une table avec du code VBA

2 réponses
Avatar
Eric RENAUD
Bonjour,
Malgré de nombreuses recherches, je ne trouve pas de code pour vider une
table avant de procéder à l'import de données.
Le début du code est le suivant :

Sub ImportTXT()

Dim txtLine As String
Dim LeFichier As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim F As Integer

LeFichier = "c:\chemin\fichier.txt"
Set dbs = CurrentDb

**** Ici je voudrais effacer les enregistrements de ma table ***

Set rst = dbs.OpenRecordset("ACT0COM_Date", dbOpenDynaset)
F = FreeFile
Open LeFichier For Input As #F
Line Input #F, txtLine
--- etc ....

...........................
Bien cordialement
Eric Renaud
http://www.erenaud.fr.fm/
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jessy Sempere [MVP]
Bonjour

tu peux essayer avec une seule ligne en faisant :

CurrentDb.Execute "Delete * From TaTable"

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Eric RENAUD" a écrit dans le message news:
Og2w3Q6#
Bonjour,
Malgré de nombreuses recherches, je ne trouve pas de code pour vider une
table avant de procéder à l'import de données.
Le début du code est le suivant :

Sub ImportTXT()

Dim txtLine As String
Dim LeFichier As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim F As Integer

LeFichier = "c:cheminfichier.txt"
Set dbs = CurrentDb

**** Ici je voudrais effacer les enregistrements de ma table ***

Set rst = dbs.OpenRecordset("ACT0COM_Date", dbOpenDynaset)
F = FreeFile
Open LeFichier For Input As #F
Line Input #F, txtLine
--- etc ....

...........................
Bien cordialement
Eric Renaud
http://www.erenaud.fr.fm/




Avatar
doudou
Bonjour,
Tu fais une requête de supression ou tu met n'importe
quelle champ de la table dont tu veut effacer les
enregsitrement sans aucun critère.

Tu récupère la reuête en slq "Delete ...."

puis dans ton code tu met

Docmd.runsql "DELETE ..."

Soit delete.. la requête générée .

bonne chance
-----Message d'origine-----
Bonjour,
Malgré de nombreuses recherches, je ne trouve pas de
code pour vider une

table avant de procéder à l'import de données.
Le début du code est le suivant :

Sub ImportTXT()

Dim txtLine As String
Dim LeFichier As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim F As Integer

LeFichier = "c:cheminfichier.txt"
Set dbs = CurrentDb

**** Ici je voudrais effacer les enregistrements de ma
table ***


Set rst = dbs.OpenRecordset("ACT0COM_Date",
dbOpenDynaset)

F = FreeFile
Open LeFichier For Input As #F
Line Input #F, txtLine
--- etc ....

............................
Bien cordialement
Eric Renaud
http://www.erenaud.fr.fm/


.