vider les enregistrement des tables

Salut,

Tu dois passer par VBA :

'SendKeys "{Enter}", False // si tu veux éviter le message de
confirmation

DoCmd.RunSQL "DELETE * FROM TaTable"

si tu veux le faire sous condition
DoCmd.RunSQL "DELETE * FROM TaTable WHERE (((TaTable.TonChamps) Is
Null));", -1

A+

Victor

Bonjour

je souhaite a partir d'un bouton de commande pouvoir vider automatiquement
tout les enregistrements de plusieurs tables
et je cherche le code pour realiser cette action
merci d'avance
JM

Bonjour,
Souhaites-tu vider complétement tes tables en supprimant tous les
enregistrements ?
--
Pierre

Bonjour

je souhaite a partir d'un bouton de commande pouvoir vider automatiquement
tout les enregistrements de plusieurs tables
et je cherche le code pour realiser cette action
merci d'avance
JM

Bonjour et merci

9a marche plutôt pas mal mais j'ai 2 petits problemes
1 je n'arrive pas a supprimer le message de confirmation de suppretion
2 quand je notifie une table avec une appellation compose style "depense
commune"
celui-ci m'affiche une message d'erreur table nom existante !!!!

Ci joint mon code

Private Sub Commande19_Click()
On Error GoTo Err_Commande19_Click

DoCmd.RunSQL "DELETE * FROM depense"

'SendKeys "{Enter}", False

Exit_Commande19_Click:
Exit Sub

Err_Commande19_Click:
MsgBox Err.Description
Resume Exit_Commande19_Click
End Sub



Merci d'avance


--
JM

Salut,

Tu dois passer par VBA :

'SendKeys "{Enter}", False // si tu veux éviter le message de
confirmation

DoCmd.RunSQL "DELETE * FROM TaTable"

si tu veux le faire sous condition
DoCmd.RunSQL "DELETE * FROM TaTable WHERE (((TaTable.TonChamps) Is
Null));", -1

A+

Victor

Bonjour

je souhaite a partir d'un bouton de commande pouvoir vider automatiquement
tout les enregistrements de plusieurs tables
et je cherche le code pour realiser cette action
merci d'avance
JM

Bonjour.
pour vider les tables, il faut supprimer les messages systèmes pour éviter
la confirmation éventuelle et également tester la présence de la table sinon
c'est une erreur qui apparaîtra même si on supprime les messages d'erreur.
exemple:
DoCmd.SetWarnings False
Dim Tbl As AccessObject
For Each Tbl In CurrentData.AllTables
If Tbl.Name = "table4" Then
DoCmd.RunSQL "delete * from table4"
End If
If Tbl.Name = "table5" Then
DoCmd.RunSQL "delete * from table5"
End If
Next Tbl
DoCmd.SetWarnings True


--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Nouvelle base Access des communes françaises avec
longitude, latitude et 13246 sites internet officiels
http://ardecheearth.free.fr/basededonnees.htm


"JM" <JM@discussions.microsoft.com> a écrit dans le message de news:
93202F44-17EE-4326-AFEF-7D01BFF774EB@microsoft.com...
| Bonjour
|
| je souhaite a partir d'un bouton de commande pouvoir vider automatiquement
| tout les enregistrements de plusieurs tables
| et je cherche le code pour realiser cette action
| merci d'avance
| JM
|

Bonjour
Pour supprimer les message d'avertissements
Docmd.setwarnings false
Ton runSql
Docmd.setwarnings true
et supprime ce sendkeys de malheur
Michel
"JM" <JM@discussions.microsoft.com> a écrit dans le message de news:
86F934DC-253F-42EA-94D2-F11C65F46C34@microsoft.com...

Bonjour et merci

9a marche plutôt pas mal mais j'ai 2 petits problemes
1 je n'arrive pas a supprimer le message de confirmation de suppretion
2 quand je notifie une table avec une appellation compose style "depense
commune"
celui-ci m'affiche une message d'erreur table nom existante !!!!

Ci joint mon code

Private Sub Commande19_Click()
On Error GoTo Err_Commande19_Click

DoCmd.RunSQL "DELETE * FROM depense"

'SendKeys "{Enter}", False

Exit_Commande19_Click:
Exit Sub

Err_Commande19_Click:
MsgBox Err.Description
Resume Exit_Commande19_Click
End Sub



Merci d'avance


--
JM

Salut,

Tu dois passer par VBA :

'SendKeys "{Enter}", False // si tu veux éviter le message de
confirmation

DoCmd.RunSQL "DELETE * FROM TaTable"

si tu veux le faire sous condition
DoCmd.RunSQL "DELETE * FROM TaTable WHERE (((TaTable.TonChamps) Is
Null));", -1

A+

Victor

Bonjour

je souhaite a partir d'un bouton de commande pouvoir vider
automatiquement
tout les enregistrements de plusieurs tables
et je cherche le code pour realiser cette action
merci d'avance
JM