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 :

numerotation unique et continue pour 3 tables facture distinctes [AC-2013]


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2015
    Messages
    27
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Burkina Faso

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Février 2015
    Messages : 27
    Par défaut numerotation unique et continue pour 3 tables facture distinctes
    bonjour, je suis un debutant en vba access. J'ai 3 tables factures et une table tblFactIndex avec la structure suivante tblFact1(id1,index);tblFact2(id2,index); tblFact3(id3,index) et enfin tblFactIndex(id,id1,id2,id3,index), les champs id des tables Factures seront masqué seul sera visible les index j'aimerais creer une fonction vba qui permet de faire :

    1) verifie si un formulaire facture est ouvert alors
    2) il ouvre la table tblFactIndex verifie le dernier index et l'ajoute 1 (index+1)
    3)attribue au formulaire facture ouvert
    4)ainsi de suite pour tous les formulaires

    ou s'il y'a une autre possibilité je prends l'objectif c'est pouvoir attribuer aux 3 tables la même numérotation croissante et continu

    Merci et très cordialement

  2. #2
    Membre du Club
    Homme Profil pro
    Inscrit en
    Décembre 2013
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Décembre 2013
    Messages : 11
    Par défaut
    Bonjour,

    Une petite question pourquoi vouloir diviser vos factures en 3 tables. Je pense qu'il faudrait plutôt faire une seul table qui regroupe les 3 tables dont vous avez besoin. Mettre dans cette table un ID qui s'auto incrémente dans un des champs, puis ajouter un champ "FLAG" qui reprend le nom d'une de vos 3 tables (exemple : tblFact1, tblFact2, tblFact3) dans laquelle votre enregistrement est destiné.

    Cordialement,

  3. #3
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2015
    Messages
    27
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Burkina Faso

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Février 2015
    Messages : 27
    Par défaut numerotation unique et continue pour 3 tables facture distinctes
    bonsoir, oui pour 2 raison :
    -je suis un débutant sous access
    -J'ai une macro de données dans ma table tblDetailFacture sur APRES INSERTION pour decrementer mon stock donc je ne peux plus l'utiliser car j'aurai des doubles decrementation de mon stock.


    Merci et très cordialement

  4. #4
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2015
    Messages
    27
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Burkina Faso

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Février 2015
    Messages : 27
    Par défaut numerotation unique et continue pour 3 tables facture distinctes
    bonjour, la communauté je viens juste vous informer que mon problème je l'ai résolu avec un peu de vba
    j'ai vais crée trois tables t1(id1,libele,num), t2(id2,libele,num) et tNum(num, datnum) alors j'ai ecrit ce bout de code et l'associer aux évènements avant Insetion des formulaires t1 et t2
    et le code :
    Dim oRst As DAO.Recordset
    Dim oDb As DAO.Database
    Set oDb = CurrentDb
    Set oRst = oDb.OpenRecordset("tblindex", dbOpenTable)
    'If oRst.EOF Then
    MsgBox "on cree un enregistremen"
    'passe en mode ajout
    oRst.AddNew
    'affecte les differents champs
    oRst.Fields("datindex").Value = Now()
    'met à jour
    oRst.Update
    oRst.MoveLast
    Me.index = oRst.Fields("index").Value
    'End If

    oRst.Close
    oDb.Close
    End Sub

    je ne suis qu'un débutant, toute correction, remarque et suggestion seront les bienvenus j'ai la soif d'apprendre la programmation vba

    Merci à tous et très cordialement

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

Discussions similaires

  1. [AC-2013] relation table commande/table facture pour facturation partielle
    Par Irene78 dans le forum Modélisation
    Réponses: 3
    Dernier message: 12/09/2013, 14h11
  2. Aide pour requête table unique
    Par chatour dans le forum SQL
    Réponses: 12
    Dernier message: 30/03/2013, 10h25
  3. Réponses: 3
    Dernier message: 30/08/2008, 07h38
  4. Créer une partition pour une table
    Par Erakis dans le forum SQL Procédural
    Réponses: 22
    Dernier message: 28/02/2005, 18h39
  5. déf de type pour créer table
    Par boucher_emilie dans le forum Langage SQL
    Réponses: 3
    Dernier message: 20/07/2004, 15h28

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