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 :

VBA Combobox textbox


Sujet :

VBA Access

  1. #1
    Futur Membre du Club
    Inscrit en
    Novembre 2007
    Messages
    11
    Détails du profil
    Informations forums :
    Inscription : Novembre 2007
    Messages : 11
    Points : 6
    Points
    6
    Par défaut VBA Combobox textbox
    Bonjour,

    je suis débutant en programmation et j'aimerai votre aide. j'ai crée un formulaire Access sur lequel j'ai un combobox avec deux champs, l'un contenant du texte et l'autre champ contenant les valeurs du texte qui sont des chiffres.

    ensuite j'ai crée un textbox et mon histoire est que j'aimerai qu'à chaque sélection d'un enregistrement dans mon combobox, la valeur ou chiffre qui lui est associé soit affectée dans le texbox. successivement les valeurs doivent s'additionner dans le textbox à chaque selection.

    Aidez moi please

  2. #2
    Membre habitué Avatar de berti
    Profil pro
    Inscrit en
    Août 2007
    Messages
    239
    Détails du profil
    Informations personnelles :
    Âge : 44
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 239
    Points : 175
    Points
    175
    Par défaut
    Dans la combobox (que l'on appelle liste) il y a 2 colonnes, une de texte et l'autre de chiffre. La première colonne a pour valeur 0 et la deuxième 1.

    Dans tu crées un évènement pour la combobox sur changemant

    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
    Private Sub liste_Change()
        Dim somme As Integer
        Dim valeur As Integer
        Dim temp As Integer
     
        valeur = Me![liste].Column(1)
     
        If IsNull(Me![resultat]) Then
            temp = 0
        Else
            temp = Me![resultat]
        End If
     
        somme = temp + valeur
     
        Me![resultat] = somme
    End Sub

Discussions similaires

  1. Insertion de résultat de comboBox,TextBox dans table
    Par loic20h28 dans le forum Visual Studio
    Réponses: 3
    Dernier message: 31/01/2008, 16h59
  2. Problème de ComboBox, TextBox et BDD (VB6)?
    Par zizou2007 dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 22/05/2007, 15h24
  3. [vba] - Combobox + Filtre Auto + Sans Doublons
    Par RegiO dans le forum Général VBA
    Réponses: 2
    Dernier message: 25/04/2007, 10h43
  4. [VBA-E]Textbox et ScrollBar
    Par meumeu73.1 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 16/04/2007, 14h54
  5. Réponses: 29
    Dernier message: 04/03/2007, 10h39

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