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

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    juin 2005
    Messages
    117
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juin 2005
    Messages : 117
    Points : 58
    Points
    58
    Par défaut Les données d'un formulaire envoyées dans une table
    Bonjour,
    Alors voilà, j'ai un formulaire de facturation qui me permet d'aller chercher un client via un formulaire pour l'en-tête. Ce client me renseigne donc sur son nom et son adresse.

    L'adresse est évolutive. C'est à dire que je me sert d'un sous formulaire continu. Un client peu donc avoir une multitude d'adresse, mais pour ma facture, je coche une case afin de sélectionner mon adresse de facturation.

    J'aimerais récupérer ces données qui sortent donc de deux tables, CLIENT et ADRESSES, pour les incrémenter dans ma table FACTURE. Histroire que lorsque je réouvre ma facture, il me resorte l'adresse sélectionnée lors de sa création et non l'adresse sélectionée aujourd'hui.

    Il me semble que c'est un code en VBA. Voilà mon début mais je dois avouer que...je cale...
    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
    17
    18
    19
    20
    21
    22
    23
    24
    25
    Private Sub btnNouveau_Click()
     
        'Contrôle de cohérence: données entreprise
        If FNomEntreprise = "" Then
            If MsgBox("Les informations d'entête de votre société n'ont pas encore été saisies. Voulez-vous le faire maintenant ?", vbYesNo, "Nouvelle facture") = vbOK Then
                BtnSociété_Click
            End If
        End If
        DoCmd.OpenForm "NouvelleFacture", , , , , acDialog
        If Forms.NouvelleFacture.FListe And Forms.NouvelleFacture.FDate Then 'Si ces 2 contrôles sont pas vides...
             DoCmd.GoToRecord , , acNewRec 'on va vers un NOUVEL enregistrement
            FCodeClient = Forms.NouvelleFacture.FListe 'On récup le code client de la liste...
            FDate = Forms.NouvelleFacture.FDate 'La date...
            CodeEntreprise = 1 'On affecte ce flag
            '1° J'aimerais ajouter les champs adresse client dans la table fatures
            '2° Récupérer la bonne adresse de facturation pour le client choisi(je pense que c'est avec un dlookup mais je ne sais pas faire...)
            '3°Affecter ce que je trouve aux champs de la facture
     
     
            DoCmd.RunCommand (acCmdSaveRecord) 'Je sauve la nouvelle facture
        End If
        DoCmd.Close acForm, "NouvelleFacture", acSaveYes 'Je ferme le form Nouvelle facture
        FLignesFactures.Requery 'Je rafraîchi les lignes de factures correspondantes
        FListeFactures.Requery 'Idem pour la liste de factures en haut...
        FListeFactures = NumFacture 'Je repositionne la liste de factures sur l'enregistrement courant
    Est-ce que qq'un peut m'aider à finir ce code?

  2. #2
    Membre du Club
    Profil pro
    Inscrit en
    juin 2005
    Messages
    117
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juin 2005
    Messages : 117
    Points : 58
    Points
    58
    Par défaut
    personne?

  3. #3
    Expert éminent sénior

    Avatar de Tofalu
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    octobre 2004
    Messages
    9 501
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 37
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Associations - ONG

    Informations forums :
    Inscription : octobre 2004
    Messages : 9 501
    Points : 29 639
    Points
    29 639
    Par défaut
    Pas de UP

    Si personne ne répond, c'est que tout simplement personne n'a compris ton besoin... essaye d'être plus clair

  4. #4
    Membre du Club
    Profil pro
    Inscrit en
    juin 2005
    Messages
    117
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juin 2005
    Messages : 117
    Points : 58
    Points
    58
    Par défaut
    ah désolé. Ce n'était pas le but...

    En fait j'aimerais récupérer en VBA des donnée d'une table pour les enregistrer dans une autre.

  5. #5
    Membre habitué
    Inscrit en
    septembre 2005
    Messages
    158
    Détails du profil
    Informations forums :
    Inscription : septembre 2005
    Messages : 158
    Points : 163
    Points
    163
    Par défaut
    salut,
    bon il est plutôt tard (ou tôt ) donc je te donne juste le lien vers la FAQ qui te permet de faire ce que tu veux (voire même plus si tu le souhaites).

    http://access.developpez.com/faq/?pa...fDataTransfert

    En espérant t'avoir aidé (c'est vrai que là c'était plus clair à comprendre ton problème )

  6. #6
    Membre du Club
    Profil pro
    Inscrit en
    juin 2005
    Messages
    117
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juin 2005
    Messages : 117
    Points : 58
    Points
    58
    Par défaut
    Merci LeScandinave, je vais essayer ça

Discussions similaires

  1. Réponses: 3
    Dernier message: 11/02/2014, 12h14
  2. Réponses: 2
    Dernier message: 02/07/2010, 18h16
  3. charger les données d'un fichier .txt dans une table
    Par lemerite dans le forum Développement
    Réponses: 6
    Dernier message: 10/09/2008, 18h33
  4. Importer les données d'un fichier excel dans une table
    Par dams95190 dans le forum Requêtes et SQL.
    Réponses: 2
    Dernier message: 07/12/2007, 10h35
  5. Réponses: 20
    Dernier message: 15/06/2007, 10h14

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