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
    Nouveau membre du Club
    Homme Profil pro
    en formation
    Inscrit en
    octobre 2017
    Messages
    44
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : Niger

    Informations professionnelles :
    Activité : en formation
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : octobre 2017
    Messages : 44
    Points : 33
    Points
    33

    Par défaut Edition de facture access

    bsr monsieur, je vous remercie infiniment pour rout l'aide que vous nous apporter pour ameliorer nos performance,
    j'ai un probleme avec mon code vba
    lorsque je click sur ajouter facture, le code vba me renvoi le message suivant:
    erreur d'execution "6"
    total = Int(prix_unitaire.Value) * Int(qte_commandee.Value)
    depacement de capacite

    aider moi s'il vous plait, mes salutions les plus chalereuses

    voici le code vba en question

    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 ajouter_facture_Click()
    Dim base As Database: Dim ligne As Recordset
    Dim requete As String: Dim total As Integer: Dim total_achat As Integer
    If (IsNumeric(qte_commandee.Value) And qte_commandee.Value > 0 And ref_produit.Value <> "") Then
            If (Int(qte_commandee.Value) <= Int(Qte_stock.Value)) Then
                    total = Int(prix_unitaire.Value) * Int(qte_commandee.Value)
                    total_achat = 0
                    Set base = Application.CurrentDb
                    requete = "INSERT INTO Detail_temp (ref_det, qute_det,Designation,Prix_unitaire_HT,Prix_total_HT) VALUES ('" & ref_produit.Value & "'," & qte_commandee.Value & ",'" & designation.Value & "'," & prix_unitaire.Value & "," & total & ")"
                    base.Execute requete
     
                    Set ligne = base.OpenRecordset("SELECT Prix_total_HT FROM Detail_temp", dbOpenDynaset)
     
                    ligne.MoveFirst
                    Do
                    total_achat = total_achat + Int(ligne.Fields("Prix_total_HT").Value)
                    ligne.MoveNext
                    Loop Until ligne.EOF
     
                    total_commande.Value = total_achat
     
                    ligne.Close
                    base.Close
                    Set ligne = Nothing
                    Set base = Nothing
                    DoCmd.Requery
            Else
                    MsgBox "La quantite commandee est superieure a la quantite en stock monsieur ", vbInformation
            End If
    Else
            MsgBox "Pour ajouter un article à la commande, vous devez définir une quantité supérieure à 0"
    End If
    End Sub

  2. #2
    Expert éminent
    Avatar de jimbolion
    Homme Profil pro
    Moulticien
    Inscrit en
    janvier 2013
    Messages
    3 141
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Moulticien
    Secteur : Santé

    Informations forums :
    Inscription : janvier 2013
    Messages : 3 141
    Points : 6 946
    Points
    6 946
    Billets dans le blog
    2

    Par défaut

    babady bonjour,

    Attention si tu définis total comme un entier la valeur ne pourra excéder 32767.

    Dans ton cas essaie déjà de définir ta variable en type Double

    Vérifie également que dans ta table le typage est bien de type Réel double.

    Bonne journée
    N'oubliez pas le Tag si la réponse donnée vous a été utile et pour une réponse pertinente.
    Retrouvez-moi sur le chat en salon base de données

  3. #3
    Modérateur

    Homme Profil pro
    Inscrit en
    octobre 2005
    Messages
    12 483
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations forums :
    Inscription : octobre 2005
    Messages : 12 483
    Points : 19 037
    Points
    19 037

    Par défaut

    Bonjour.

    Si tu veux rester avec des entiers, tu peux définir ton total comme un entier long.

    A+
    Vous voulez une réponse rapide et efficace à vos questions téchniques ?
    Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
    Et aussi regardez dans la FAQ Access et les Tutoriaux Access. C'est plein de bonnes choses.

Discussions similaires

  1. [AC-2007] edition de facture access
    Par babady dans le forum Access
    Réponses: 2
    Dernier message: 06/02/2018, 20h59
  2. [OL-2007] Edition de facture.
    Par Chrysostome dans le forum VBA Outlook
    Réponses: 1
    Dernier message: 16/05/2016, 19h49
  3. Editer une facture
    Par andrybrice dans le forum VB 6 et antérieur
    Réponses: 0
    Dernier message: 05/02/2014, 14h39
  4. Editer un client access
    Par bakaccess dans le forum Modélisation
    Réponses: 2
    Dernier message: 08/02/2008, 17h18

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