Forhindre feltskift med piletast

Jeg har bygget lidt videre på http://www.eksperten.dk/spm/718446 og fusket mig frem til flg.

Private Sub feltnavn_KeyDown(KeyCode As Integer, Shift As Integer)
Me.AndetFelt.TabStop = False
If KeyCode = vbKeyUp Then
Me.feltnavn = Me.feltnavn + 1
End If
If KeyCode = vbKeyDown Then
Me.feltnavn = Me.feltnavn - 1
End If
If KeyCode = vbKeyReturn Then
Me.AndetFelt.TabStop = True
End If
End Sub

Det kan så være at du skal have lukket for den mulighed at folk tager musen og klikker på næste felt. I det tilfælde kan du jo ligge en tabstop true på ved museklik eller fokus eventen!~)

Synes ikke rigtig det virker... hvis jeg placerer mig i felt1 og trykker på "pil op", så  springer jeg stadig videre til felt2 - og det var det jeg gerne ville undgå...

Private Sub felt1_KeyDown(KeyCode As Integer, Shift As Integer)
Me.felt2.TabStop = False
If KeyCode = vbKeyUp Then
Me.felt1 = Me.felt1 + 1
End If
If KeyCode = vbKeyDown Then
Me.felt1 = Me.felt1 - 1
End If
If KeyCode = vbKeyReturn Then
Me.felt2.TabStop = True
End If
End Sub

og du skal selvfølgelig have tabstop på alle felter til at skifte mellem false og true!~)

Hmm...hopper jo så bare videre til næste felt...

Det forstår jeg ikke det virker hos mig....

I mangel af bedre kunne du sende db'en til spgeertz på hotmail (zippet)... Så kan jeg måske se på det senere, jeg er nød til at gå for nu!~)

Vidst bare mig der havde lavet en fejl...
takker for hjælpen...

!~)