[ACCESS] Waarde met 1 verlagen bij Shift + dubbelklik

[Verwijderd]

In een form in Access 2000 moeten waarden ingevuld worden. Vaak is dit maar 1 of 2. Om het geheel gebruikersvriendelijker te maken wil ik het mogelijk maken om het aantal met 1 op te hogen door dubbel te klikken. En ook weer met 1 verlagen door dubbel te klikken met shift ingedrukt.

Voor het verhogen van de waarde

code:

Private Sub A1_DblClick(Cancel As Integer)
'verhoog het ingevulde nummer met 1
    Me.A1.Value = Me.A1.Value + 1
    
End Sub

Dit werkt (duhh....) Alleen de procedure voor het verlagen werkt niet.....

Tevens moet ik deze procedures voor 30 elementen (x twee, verhogen en verlagen) schrijven. Is hier een makkelijkere oplossing voor???

[henkleerssen]

Als het een textbox is, zou je kunnen denken aan deze oplossing met het KeyDown event.. dan moet je dus + of - drukken ipv muis...... lijkt me ook mooi.. toch?

Visual Basic:

Private Sub A1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'keycode
'+ = 107
'- = 109
    Select Case KeyCode
        Case 107 'verhoog het ingevulde nummer met 1
            Me.A1.Value = Me.A1.Value + 1
        Case 109 'verlaag het ingevulde nummer met 1
            Me.A1.Value = Me.A1.Value - 1
    End Select
    
End Sub

Misschien moet je dan wel ff spelen met enabled property voor de textbox.. ..
Je kunt met het voorbeeld ook ff kijken naar de shift toets voorbeeld.. 1 betekent Shift toets vast.. 2 is Ctrl...

[ Voor 6% gewijzigd door henkleerssen op 10-04-2003 13:12 ]

[Verwijderd]

wat dacht je van een globale boolean ShiftIsDown variabele. Die zet je true false in de shift down / up functies, en die gebruik je bij je dubbelklik...

[WildernessChild]

Is er in Access niet gewoon zo'n textboxje met van die pijltjes aan de rechterkant? Da's nog net iets vriendelijker dan Shift en dubbelklikken enzo, want je kunt gewoon zien wat er mogelijk is.

[Verwijderd]

henkleerssen schreef op 10 April 2003 @ 13:09:
Als het een textbox is, zou je kunnen denken aan deze oplossing met het KeyDown event.. dan moet je dus + of - drukken ipv muis...... lijkt me ook mooi.. toch?

Visual Basic:

Private Sub A1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'keycode
'+ = 107
'- = 109
    Select Case KeyCode
        Case 107 'verhoog het ingevulde nummer met 1
            Me.A1.Value = Me.A1.Value + 1
        Case 109 'verlaag het ingevulde nummer met 1
            Me.A1.Value = Me.A1.Value - 1
    End Select
    
End Sub

Misschien moet je dan wel ff spelen met enabled property voor de textbox.. ..
Je kunt met het voorbeeld ook ff kijken naar de shift toets voorbeeld.. 1 betekent Shift toets vast.. 2 is Ctrl...

Dit doet wat ik nodig heb!

Dat met die Case wist ik niet, handig

[Verwijderd]

Verwijderd schreef op 10 april 2003 @ 13:15:
wat dacht je van een globale boolean ShiftIsDown variabele. Die zet je true false in de shift down / up functies, en die gebruik je bij je dubbelklik...

met andere woorden een functie aanroepen uit een module die bepaald of de shift key ingedrukt is, en afhankelijk hiervan true of false uitsturen....

Werkt ook, maar door deze te gebruiken samen met bovenstaande post:

code:

Private Sub A1_DblClick(Cancel As Integer)
'verhoog het ingevulde nummer met 1
    Me.A1.Value = Me.A1.Value + ShiftTest
    
End Sub

en dan een functie die bekijkt of de shift toest ingedrukt is, en +1 of -1 uitstuurd.(id. Zoals in vorige post beschreven)

[ Voor 3% gewijzigd door Verwijderd op 10-04-2003 14:31 ]

[henkleerssen]

Verwijderd schreef op 10 April 2003 @ 14:22:
[...]

Dit doet wat ik nodig heb!

Dat met die Case wist ik niet, handig

Kun je nog leuke dingen mee doen... idd.. succes ermee..