Jag söker Ascii numret för PageUp resp PageDown.
Kanske en dålig förklaring, se nedan för kodex:
<code>
Private Sub Text2_KeyPress(KeyAscii As Integer)
If Chr$(KeyAscii) = "+" Then
Text2 = Format$(DateAdd("d", 1, CDate(Text2)), DATEFORMAT)
KeyAscii = 0
ElseIf Chr$(KeyAscii) = "-" Then
Text2 = Format$(DateAdd("d", -1, CDate(Text2)), DATEFORMAT)
KeyAscii = 0
ElseIf Chr$(KeyAscii) = "PageUp" Then
Text2 = Format$(DateAdd("m", 1, CDate(Text2)), DATEFORMAT)
KeyAscii = 0
ElseIf Chr$(KeyAscii) = "PageDown" Then
Text2 = Format$(DateAdd("m", -1, CDate(Text2)), DATEFORMAT)
KeyAscii = 0
End If


End Sub
</code>
Denna kod gör att om jag trycker på + eller på - tangenterna så ökas resp minskas ant dagar i en textbax. Vad jag nu ville försöka med är att via PageUp, PageDows öka resp minska månaden.
Just nu så händer inte någonting när det gäller månad, därför att jag har naturligtvis fel kommando, men kan inte hitta hur det skall se ut.
Tacksam för hjälp

Hejsan..

föreslår att du trycker F2 och sen söker på keycode
sen letar du upp vbkeyPageUp och vbkeyPageDown.
klicka på dom, och så ser du info om den knappen längst ner..
kanske är något användbart?

<code>
Private Sub Text2_KeyPress(KeyAscii As Integer)
select case keyascii
case vbKeyAdd
Text2 = Format$(DateAdd("d", 1, CDate(Text2)), DATEFORMAT)
KeyAscii = 0
case vbKeySubtract
Text2 = Format$(DateAdd("d", -1, CDate(Text2)), DATEFORMAT)
KeyAscii = 0
case vbKeyPageUp
Text2 = Format$(DateAdd("m", 1, CDate(Text2)), DATEFORMAT)
KeyAscii = 0
case vbKeyPageDown
Text2 = Format$(DateAdd("m", -1, CDate(Text2)), DATEFORMAT)
KeyAscii = 0
end select


End Sub
</code>

Hej
PgUp PgDn osv osv. är inte Ascii , dom hittar du med KeyCode.
/Sven som gärna kan komma med en lista.

Tackar!

I så fall är det lämpligt att du stoppar pgup & pgdown i keydown ellerkeyup event istället och använder keycode som variabeln istället för keyascii...