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

  1. #1
    Membre à l'essai
    Homme Profil pro
    chargé d'affaire commercial
    Inscrit en
    mai 2013
    Messages
    14
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : chargé d'affaire commercial
    Secteur : Finance

    Informations forums :
    Inscription : mai 2013
    Messages : 14
    Points : 19
    Points
    19

    Par défaut problème d'archiver les donnés du table B à un table C à partir du form F

    Bonjour :
    j ai un table B qui est un table de calcul temporaire commander par le formulaire F à partir du F j ajoute et je supprime et je modifie les donnés de B jusqu’à arrivé au
    résultat souhaité . avant de supprimer le table B définitivement je veux archiver tout les donnés finale du table B à un table C .
    j ai essayé de définir 2 recordset et j ai mis que 1) rsC.Adnew puis les rsC.fields!champsC ègale aux rsB.fields!champsB puis rsC move next pou récupérer tous les donnés du table B avant la supprime. lorsque j ai exucutè ce code access devient comme un fou il ne répond pas puis il s'ouvre tout seul et se ferme tout seul en fin il m'a créé plus que 40 MILLES nouveaux enregistrements tout seul .
    veuillez SVP m aider aux meilleur code efficace.

  2. #2
    Membre émérite
    Homme Profil pro
    Consultant informatique
    Inscrit en
    octobre 2012
    Messages
    1 505
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Service public

    Informations forums :
    Inscription : octobre 2012
    Messages : 1 505
    Points : 2 738
    Points
    2 738

    Par défaut

    Bonjour hama2am,

    Sur un bouton de commande que j'ai nommé ici "btnTransfert" le code suivant va copier la table "B" dans la table "C" à condition que les champs soient identiques dans les 2 tables.
    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
    Private Sub btnTransfert_Click()
    On Error GoTo gestion_err
        Dim db As DAO.Database: Set db = CurrentDb
        Dim strSQL As String
     
        strSQL = "INSERT INTO C " _
        & "SELECT B.* FROM B;"
        db.Execute strSQL, dbFailOnError
        Set db = Nothing
    Sortie:
    Exit Sub
    gestion_err:
    MsgBox Err.Description & Chr(13) & "Erreur # " & Err.Number
    Resume Sortie
    End Sub
    Bonne journée
    Ce qui se conçoit bien s’énonce clairement et les mots pour le dire arrivent aisément. Nicolas Boileau
    Si tout est OK, n'oubliez pas de cliquer sur

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Archiver les données d'une table dans une autre
    Par Decon dans le forum Oracle
    Réponses: 6
    Dernier message: 22/08/2011, 18h25
  2. Problème pour lire les donnée d'une table externe
    Par waldoun dans le forum SQL*Loader
    Réponses: 0
    Dernier message: 01/05/2009, 18h16
  3. Problème pour lire les donnée d'une table externe
    Par mardoch dans le forum SQL*Loader
    Réponses: 6
    Dernier message: 17/07/2008, 16h41
  4. Réponses: 3
    Dernier message: 31/01/2008, 23h24

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