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 :

Numéro de facture qui s'incrémente sans être numéroAuto


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Mars 2011
    Messages
    5
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2011
    Messages : 5
    Par défaut Numéro de facture qui s'incrémente sans être numéroAuto
    Bonjour,

    Dans ma base de donnée de facturation je ne veux pas utiliser pour le numéro de facture le type de donnée numéroAuto parceque je veux avoir des numéros de facture qui se suivent sans trous dans la séquence. Pour avoir un numéro de facture qui s'incrémente j'ai fait une fonction qui va voir le numéro de facture au dernier enregistrement de la table facture et j'incrémente de 1 le numéro et je retourne cette valeur par cette fonction. Est-ce une bonne façon. Est-ce sécuritaire ..... MERCI

  2. #2
    Membre émérite Avatar de stigma
    Homme Profil pro
    Créateur jeux vidéo
    Inscrit en
    Octobre 2003
    Messages
    1 130
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 74
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Créateur jeux vidéo
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Octobre 2003
    Messages : 1 130
    Par défaut
    C'est ainsi que je procède et je n'ai jamais eu de problème.

  3. #3
    Membre confirmé
    Homme Profil pro
    Directeur technique
    Inscrit en
    Avril 2011
    Messages
    160
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Directeur technique
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2011
    Messages : 160
    Par défaut N° de Facture incrémenté (Pas NuméroAuto)
    Bonjour Joseedaccess,

    Je comprends parfaitement ton souhait.
    J'ai récemment ouvert une discussion sous le titre:
    Récupérer la valeur d'un champ.

    Va peut-être voir la discussion, LedZepp m'avait donné un code et des explications très intéressantes avec la fonction Dmax.
    J'utilise ça et c'est impeccable.

    Pour mon information, j'aimerais aussi voir la fonction que toi tu as écrite.

    Merci

    Marcel

  4. #4
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Mars 2011
    Messages
    5
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2011
    Messages : 5
    Par défaut Voici la fonction qui incrémente de 1
    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
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    Private Sub CtrlListeClient_AfterUpdate()
    Dim rep As integer
     
    ,,,,,,,,
     
    rep = ChercherLeNumFactureIncrementer
     
    Me.[#FACTURE] = rep
     
    End Sub
     
     
     
     
    Public Function ChercherLeNumFactureIncrementer() As Integer
     
    Dim dbsDardo As DAO.Database
    Dim rstFacture As DAO.Recordset
     
     
    Dim rep As Integer
     
     
     Set dbsDardo = CurrentDb
     Set rstFacture = dbsDardo.OpenRecordset("TFACTURE", dbOpenDynaset)
     
     
    If (rstFacture.EOF = True And rstFacture.BOF = True) Then
        rstFacture.AddNew
        rep = rstFacture![#FACTURE]
        ChercherLeNumFactureIncrementer = rep + 1
     Else
     rstFacture.MoveLast
     rep = rstFacture![#FACTURE]
     ChercherLeNumFactureIncrementer = rep + 1
     
       End If
       rstFacture.Close
       dbsDardo.Close
     
     
        Set rstFacture = Nothing
       Set dbsDardo = Nothing
     
     
    End Function

  5. #5
    Membre confirmé
    Homme Profil pro
    Directeur technique
    Inscrit en
    Avril 2011
    Messages
    160
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Directeur technique
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2011
    Messages : 160
    Par défaut Incrémenter sans N° Auto
    Merci pour la fonction Josee,

    Bien à toi,

    Marcel

  6. #6
    Expert confirmé Avatar de nico84
    Homme Profil pro
    Consultant/développeur ERP
    Inscrit en
    Mai 2008
    Messages
    3 127
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Consultant/développeur ERP
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2008
    Messages : 3 127
    Par défaut
    Bonjour,

    En environnement multi-utilisateur il faut très rapidement "bloquer" le n° sinon il peut y avoir des doublons

    Pour cela j'ai une petite fonction GetNext(table,champ) que j'appelle directement dans mon INSERT

  7. #7
    Rédacteur/Modérateur
    Avatar de loufab
    Homme Profil pro
    Entrepreneur en solutions informatiques viables et fonctionnelles.
    Inscrit en
    Avril 2005
    Messages
    12 128
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Entrepreneur en solutions informatiques viables et fonctionnelles.
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2005
    Messages : 12 128
    Par défaut
    Bonjour,

    Via une requête :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    SELECT Max(numerofacture) FROM tfacture;
    ou par une fonction qui fera le même appel dans la base :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    dmax("numerofacture","tfacture")
    Cordialement,
    Détecter les modifications formulaire Cloud storage et ACCESS
    Classe MELA(CRUD) Opérateur IN et zone de liste Opérateur LIKE
    Visitez mon Blog
    Les questions techniques par MP ne sont pas lues et je ne pratique pas la bactériomancie

Discussions similaires

  1. [AC-2003] Créer numéro de facture qui se suivent
    Par yieiyiei dans le forum VBA Access
    Réponses: 5
    Dernier message: 29/03/2015, 18h11
  2. Réponses: 6
    Dernier message: 18/06/2013, 09h42
  3. un numéro qui s'incrémente dans une requette
    Par consuling dans le forum Requêtes et SQL.
    Réponses: 1
    Dernier message: 06/03/2009, 15h04
  4. numéro qui s'incrémente sur un état
    Par marcuscircus dans le forum IHM
    Réponses: 24
    Dernier message: 22/07/2008, 13h26
  5. Incrémentation du numéro de facture
    Par Toison dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 23/05/2008, 15h09

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