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 :

[Access] Enregistrement par recordset


Sujet :

VBA Access

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    34
    Détails du profil
    Informations personnelles :
    Âge : 43
    Localisation : France

    Informations forums :
    Inscription : Avril 2008
    Messages : 34
    Par défaut
    Bonjour,

    Je suis en difficulté sur ma base de données. J'ai un formulaire Commande avec un sous formulaire à l'intérieur détails commande (voir photo jointe)

    J'enregistre mes articles de commande (sous formulaire) grâce à un recordset (voir code ci-après)

    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
    26
    27
    28
    29
    30
    31
    32
    33
    Private Sub Nouveau_article_Click()
    On Error GoTo Err_Nouveau_article_Click
     
            Dim db As DAO.Database
            Dim rs As DAO.Recordset
     
                Set db = CurrentDb
                Set rs = db.OpenRecordset("T_détails commande fournisseur", dbOpenDynaset)
     
            rs.AddNew
     
            rs![Numéro commande] = Numcommande
            rs![Réf article] = Réfarticle
            rs![Désignation artile] = Désignationartile
            rs![Qté article] = Qtéarticle
            rs![PU article] = PUarticle
     
            rs.Update
            rs.Close
     
            Réfarticle.Value = ""
            Désignationartile.Value = ""
            Qtéarticle = ""
            PUarticle = ""
     
    Exit_Nouveau_article_Click:
        Exit Sub
     
    Err_Nouveau_article_Click:
        MsgBox Err.Description
        Resume Exit_Nouveau_article_Click
     
    End Sub
    Mais avec cette solution je ne peut me servir des fléches précédent et suivant pour visualiser les articles concernant ce numéro de commande.

    Donc j'aimerai savoir si il n'existe pas une solution pour coder ces boutons dans mon application ou sinon est-il possible de passer mon sous formulaire "détails commande" en type feuille de données ce qui me permettrai d'enregistrer en une seule fois tous mes articles présent dans cette feuille de données dans ma table "détails commande" en utilisant la même méthode que le code précédent.

    Et en même temps si c'est possible pourquoi prix HT et TVA marque #Erreur avant que je note quelque chose dans "Qtéarticle" et "PUarticle".

    PrixHT=[Qtéarticle]*[PUarticle]
    TVA=[PrixHT]*([Formulaires]![F_C-commande fournisseur_E-commande]![choixTVA]/100)

    Et encore si je peux me permettre est-il possible de noter la somme total des articles concernés par cette commande dans un champ présent sur le formulaire "commande" et non dans le sous formulaire "détails commande".

    Désolé de vous en demander beaucoup d'un coup mais je crois que je vais faire voler mon pc sinon.

    En espérant avoir été le plus clair possible dans mes besoins
    Images attachées Images attachées  

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

Discussions similaires

  1. Réponses: 2
    Dernier message: 23/12/2005, 23h32
  2. compter des enregistrement par SQL
    Par 973thom dans le forum Requêtes et SQL.
    Réponses: 6
    Dernier message: 22/11/2004, 19h26
  3. Réponses: 7
    Dernier message: 19/10/2004, 23h40
  4. Réponses: 7
    Dernier message: 05/12/2003, 11h14
  5. XMLGram et nombre d'enregistrements par page
    Par Sylvain Leray dans le forum XMLRAD
    Réponses: 7
    Dernier message: 26/02/2003, 13h35

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