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 :

Probleme de muti selection d insertion pour une table


Sujet :

VBA Access

  1. #1
    Membre averti
    Inscrit en
    Février 2009
    Messages
    13
    Détails du profil
    Informations forums :
    Inscription : Février 2009
    Messages : 13
    Par défaut Probleme de muti selection d insertion pour une table
    Tout d abbord bonjour a tous ^^
    Voila je suis entrain de monter une base de donne sous access pour mon stage de troisieme annee.

    Je me heurte a un soucis sur l ajout d informations a partir d une multirecherche d un formulaire vers une table qui me servira de base pour un publipostage...


    Voila j arrive, avec ce code a inserer les informations dans la table en question mais je n arrive pas a effectuer l operation pour plusieurs enregistrement ( en changeant la propriete du tablo dans lesw multi selections)...

    Cela risque d etre tres rebarbatif pour l utilisateur car a heure actuele il doit apuyer sur le bouton pour chacun des enregistrement a ajouter...

    Voici le code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Private Sub Command31_Click()
    'avertissement=non
    DoCmd.SetWarnings False
    DoCmd.RunSQL "INSERT INTO FusionTable ( ID, [Company Name], [Address L1], [Address L2], [Address L3], [Address L4], PostCode, City, Country, [E-Mail], Source, [Contact Gender], [Contact First Name], [Contact Last Name], [Contact E-Mail1] ) SELECT Customers.ID, Customers.[Company Name], Customers.[Address L1], Customers.[Address L2], Customers.[Address L3], Customers.[Address L4], Customers.PostCode, Customers.City, Customers.Country, Customers.[E-Mail], Customers.Source, Contact.[Contact Gender], Contact.[Contact First Name], Customers.[Contact Last Name], Contact.[Contact E-Mail1]FROM Customers INNER JOIN Contact ON Customers.ID = Contact.[Contact's Company] WHERE (((Customers.ID) = [Forms]![FrmRecherche]![lstResults]))ORDER BY Customers.ID;"
     
    If Not IsNull(Me.lstResults) Then
     
    DoCmd.OpenForm "Publipostage", acNormal
    End If
    DoCmd.Requery "List4"
    End Sub
    Merci par avance, c est assez urgent..

  2. #2
    Expert confirmé
    Avatar de Domi2
    Homme Profil pro
    Gestionnaire
    Inscrit en
    Juin 2006
    Messages
    7 194
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : Suisse

    Informations professionnelles :
    Activité : Gestionnaire
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Juin 2006
    Messages : 7 194
    Par défaut
    Bonjour,

    Peut-être que cette discussion récente pourrait t'intéresser.

    Une autre solution, plus simple, serait d'inclure un champ "Publipostage" Oui/Non dans la table source, avec une case à cocher dans le formulaire.

    Et traiter uniquement les enregistrements cochés dans la requête.

    En espérant avoir bien compris ton problème.

    Domi2

Discussions similaires

  1. probleme d'insertion dans une table via perl
    Par juzii dans le forum SGBD
    Réponses: 7
    Dernier message: 21/07/2008, 16h12
  2. probleme d'insertion dans une table
    Par metwa dans le forum JBuilder
    Réponses: 1
    Dernier message: 02/05/2008, 21h21
  3. probleme d'insertion dans une table
    Par metwa dans le forum JDBC
    Réponses: 3
    Dernier message: 30/04/2008, 10h38
  4. Réponses: 3
    Dernier message: 19/09/2007, 17h11
  5. [interbase6]probleme d'insertion dans une table
    Par macadam314 dans le forum Bases de données
    Réponses: 10
    Dernier message: 22/02/2005, 14h21

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