Discussion :

[taisherg]

Bonjour,

J'aimerais savoir comment faire sous ACCESS pour qu'à chaque fois que je clique sur un bouton de commande, j'exécute une requête qui créée une table et supprime la table précédente pour la remplacer avec les nouvelles données : si on ne supprime pas au fur et à mesure, la base de données va rapidement saturée...

J'ai essayé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Traitement_Click()
 
Dim i As Integer
 
For i = 1 To (Form_Formulaire2.lst_resultat.ListCount + 1)
    If Form_Formulaire2.lst_resultat.Selected(i) Then
        CurrentDb.Execute "Rqt Ajout NOTE_POND", dbFailOnError
    End If
Next i
 
End Sub

La boucle For permet de sélectionner les lignes sur lesquelles la requête ajout s'execute. Le problème est que la première fois, la table est créée mais les fois suivante, un message d'erreur m'indique que ma table existe déjà, et il me propose pas de la remplacer !

Quelqu'un aurait-il une idée ou seulement une piste pour m'aider ?

Merci de vos réponses.

[random]

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
Private Sub Traitement_Click()
 
Dim i As Integer
dim creation as boolean
creation false
For i = 1 To (Form_Formulaire2.lst_resultat.ListCount + 1)
    If Form_Formulaire2.lst_resultat.Selected(i) Then
          if not creation then
          CurrentDb.Execute "Rqt creation NOTE_POND", dbFailOnError
          creation=true
          else
          CurrentDb.Execute "Rqt ajout NOTE_POND", dbFailOnError
          end if
    End If
Next i
End Sub

avec 2 requêtes une ajout et une création

[taisherg]

Merci de votre réponse.

J'ai mis en place ce système mais j'ai toujours le même problème, à savoir qu'un message me previent que ma table existe déjà.

Je voudrais plutôt que ma table soit remplacée ... sinon au final je risque d'avoir une table gigantesque !

MERCI

[random]

Code :

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

1
2
3
4
 
docmd.setwarnings false
blabla
docmd.setwarnings true

[taisherg]

Où est-ce que je dois mettre ce bout de code ???