Discussion :

[MJEFF]

Bonjour! je suis un nouveau dans ce chouette forum
et en plus un newbie du monde d'Access!!

pour faire vite : je suis étudiant en informatique-réseau et j'ai très peu d'expérience sur les bases de données.
Certes je n'ai pas peur de comprendre le vba, mais j'avoue que je sèche
sur des détails tellement .. basiques.. ;(

En ce moment je crée donc une petite base de donnée style entreprise
et je me suis heurté au problème suivant:
(le premier hélas d'une longue série)

J'aimerais savoir comment créer deux boutons dont l'un incrémente un chiffre de 1 en 1, l'autre le décrémente de la meme maniere.

Je sais c'est bête comme problème, mais je ne suis pas arrivé à trouver de réponse dans la fameuse faq.

merci !!

[argyronet]

Bonjour,

Tu créés une zone de texte nommée txtValeur et 2 boutons nommés cmdDecrease et cmdIncrease ; ensuite, tu colles le code suivant dans ton formulaire et tu joues avec...

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
Option Compare Database
Option Explicit
 
Private m_intActualValue As Integer
 
Private Sub cmdDecrease_Click()
  If IsNull(Me!txtValeur) Then Me!txtValeur = 0
  m_intActualValue = Me!txtValeur
  If m_intActualValue < 1 Then
    m_intActualValue = 0
    cmdIncrease.SetFocus
    cmdDecrease.Enabled = False
    Exit Sub
  End If
  cmdIncrease.Enabled = True
  m_intActualValue = m_intActualValue - 1
  Me!txtValeur = m_intActualValue
End Sub
 
Private Sub cmdIncrease_Click()
  If IsNull(Me!txtValeur) Then Me!txtValeur = 0
  m_intActualValue = Me!txtValeur
  If m_intActualValue >= 15 Then
    m_intActualValue = 15
    cmdDecrease.SetFocus
    cmdIncrease.Enabled = False
    Exit Sub
  End If
  cmdDecrease.Enabled = True
  m_intActualValue = m_intActualValue + 1
  Me!txtValeur = m_intActualValue
End Sub

Argy

PS Cet exemple plafonne les valeurs entre 0 et 15, à toi de les adapter selon tes besoins...

[MJEFF]

HOoooo c'est génial !! merci Argy !! ça maarche très bien

[argyronet]

Oui, je pense...

Tu peux clore le dossier STP ?

Argy

[MJEFF]

ok!

(le clore, c'est le virer ou mettre le tag [Resolu] ?)

[argyronet]

Résolu...
Tu ne peux pas "virer" un sujet...
Ca peut intéresser d'autres personnes...

++

Argy

[parkar]

Bonjour à tous,

je commence à me former au langage VBA et je cherche à créer des boutons de commande qui incrémentent ou décrémentent (+1, +5, -1, -2) dans une cellule précise.
Par exemple, comment écrire le code suivant:
si je clique sur le bouton +5, la valeur dans la cellule A1 augmente de 5 ?

Merci d'avance pour vos réponses.