IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Création de table


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Avril 2007
    Messages
    97
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 97
    Par défaut Création de table
    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.

  2. #2
    Expert confirmé

    Profil pro
    Inscrit en
    Mai 2005
    Messages
    3 419
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2005
    Messages : 3 419
    Par défaut
    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

  3. #3
    Membre confirmé
    Inscrit en
    Avril 2007
    Messages
    97
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 97
    Par défaut Re
    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

  4. #4
    Expert confirmé

    Profil pro
    Inscrit en
    Mai 2005
    Messages
    3 419
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2005
    Messages : 3 419
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    docmd.setwarnings false
    blabla
    docmd.setwarnings true

  5. #5
    Membre confirmé
    Inscrit en
    Avril 2007
    Messages
    97
    Détails du profil
    Informations forums :
    Inscription : Avril 2007
    Messages : 97
    Par défaut Re
    Où est-ce que je dois mettre ce bout de code ???

Discussions similaires

  1. (VC++6 /C) Pb de création de table Paradox
    Par Vow dans le forum Paradox
    Réponses: 4
    Dernier message: 28/09/2004, 13h15
  2. Création de table MySQL
    Par dehbi dans le forum SQL Procédural
    Réponses: 4
    Dernier message: 15/04/2004, 10h59
  3. Problème de création de table sous MySql
    Par ducamba dans le forum Requêtes
    Réponses: 2
    Dernier message: 21/06/2003, 09h59
  4. Création de table avec index
    Par Seb7 dans le forum Requêtes
    Réponses: 2
    Dernier message: 10/04/2003, 16h11
  5. Création multiple table paradox dans le code
    Par scarabee dans le forum C++Builder
    Réponses: 8
    Dernier message: 30/10/2002, 10h17

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo