vider une table en vba

Question

J'aimerai vider une table en vba access.
Ce systeme est dans une forme "load form" avec une sauvegarde automatique mensuelle( qui fonctionne) hors j'aimerai qu'aprés la sauvegarde, il initialise des tables...

Merci d'avance..

BruNews · Answer

CurrentDB.Execute("DELETE FROM nomTable")
BruNews, ciao...

hamster2combat · Answer

Helas ça ne fonctionne pas, j'avais déjà essayé..
Mon code se goupille comme ça:

Dim MyDate As Date
    Dim i As Integer
    Dim j As Integer
    MyDate = Date
    Dim CTA As String
    Dim base As Database
    
    
    CTA = "sauvegarde - " & (Month(Now()) - 1) & Year(Now()) & ".mdb"
    SnomBaseSave = "C:\chemin" & CTA
    
    

If Droits = "droit1" Then

'les boutons reception visible ou pas selon les droits
    Forms!f_general![reception_btn].Visible = True

elseifDroits = "droit2" Then

'les boutons reception visible ou pas selon les droits
    Forms!f_general![reception_btn].Visible = false

end if

'verifie si fichier existe à la date (mois - 1)
If Dir(SnomBaseSave) = "" Then
    
               
    sNomBase = "C:\Documents and Settings\a_barbet\Mes documents\base de donnée\base.mdb"
    sNomBaseTmp = "C:\Documents and Settings\a_barbet\Mes documents\base de donnée\BaseTmp.MDB"
    sNomBasetmpsave = "C:\Documents and Settings\a_barbet\Mes documents\base de donnée\BaseTmpsave.MDB"
    

    '1. Compactage dans une nouvelle base
   
    DBEngine.CompactDatabase sNomBase, sNomBaseTmp
    DBEngine.CompactDatabase sNomBase, sNomBasetmpsave
    
    '2. Suppression de la base originale
    Kill sNomBase
       
    '3. Renommer la base compactée avec le nom de la base originale
    Name sNomBaseTmp As sNomBase
    Name sNomBasetmpsave As SnomBaseSave
    'Kill sNomBasetmpsave
    MsgBox "mise à jour du mois faite", vbInformation, "Mise à jour mensuelle...."
    

'_______________________________________
'tout ce qui est avant fonctionne,mais pas aprés
'______________________________________

    CurrentDb.Execute ("delete * from t_tracabilite_DAAT")

  End If

End Sub

BruNews · Answer

Pourtant je viens de tester dans Access sur une table Test dans laquelle j'ai insere des donnees:
CurrentDb.Execute "DELETE FROM Test"
Avec exact cette ligne va impec.
BruNews, ciao...

hamster2combat · Answer

ça fonctionne en bidouillant un peu..
merci

Vider une table en vba

4 réponses

Discussions similaires