j'aimerai savoir s'il est possible d'incrémenter et du fait de décrémenter un numéro(la valeur du numéro sera entrée par procédure évennementielle ) dans une zone de texte par clic sur bouton droit par exemple pour l'incrémentation et clic sur bouton gauche pour la décrémentation
L'incrémentation est à par de 1
Je travaille en access 97
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Rv
Salut,
Si la zone de texte s'appelle "txtIncrement" , alors sur la propriété "sur souris appuyée" (je ne sais pas si elle existe en Acess97) de la case à cocher on peut insérer le code VBA suivant:
Private Sub txtIncrement_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Me.txtIncrement = Nz(Me.txtIncrement, 0) + 1 ElseIf Button = 2 Then Me.txtIncrement = Nz(Me.txtIncrement, 0) - 1 End If
End Sub
A+
Rv "valeriepepoz" a écrit dans le message de news:
Bonjour,
j'aimerai savoir s'il est possible d'incrémenter et du fait de décrémenter un numéro(la valeur du numéro sera entrée par procédure évennementielle )
dans une zone de texte par clic sur bouton droit par exemple pour l'incrémentation et clic sur bouton gauche pour la décrémentation.
L'incrémentation est à par de 1. Je travaille en access 97.
Merci d'avance valérie
Salut,
Si la zone de texte s'appelle "txtIncrement" , alors sur la propriété
"sur souris appuyée" (je ne sais pas si elle existe en Acess97) de la case à
cocher on
peut insérer le code VBA suivant:
Private Sub txtIncrement_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
If Button = 1 Then
Me.txtIncrement = Nz(Me.txtIncrement, 0) + 1
ElseIf Button = 2 Then
Me.txtIncrement = Nz(Me.txtIncrement, 0) - 1
End If
End Sub
A+
Rv
"valeriepepoz" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:8574827E-DA6E-4E7C-807F-65BE578640F5@microsoft.com...
Bonjour,
j'aimerai savoir s'il est possible d'incrémenter et du fait de décrémenter
un numéro(la valeur du numéro sera entrée par procédure évennementielle )
dans une zone de texte par clic sur bouton droit par exemple pour
l'incrémentation et clic sur bouton gauche pour la décrémentation.
L'incrémentation est à par de 1.
Je travaille en access 97.
Si la zone de texte s'appelle "txtIncrement" , alors sur la propriété "sur souris appuyée" (je ne sais pas si elle existe en Acess97) de la case à cocher on peut insérer le code VBA suivant:
Private Sub txtIncrement_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Me.txtIncrement = Nz(Me.txtIncrement, 0) + 1 ElseIf Button = 2 Then Me.txtIncrement = Nz(Me.txtIncrement, 0) - 1 End If
End Sub
A+
Rv "valeriepepoz" a écrit dans le message de news:
Bonjour,
j'aimerai savoir s'il est possible d'incrémenter et du fait de décrémenter un numéro(la valeur du numéro sera entrée par procédure évennementielle )
dans une zone de texte par clic sur bouton droit par exemple pour l'incrémentation et clic sur bouton gauche pour la décrémentation.
L'incrémentation est à par de 1. Je travaille en access 97.
