Hej!
Jag har ett formulär i en access2000 applikation med default view = Continuous Forms.
Det går bra att tabba sig mellan raderna men jag skulle vilja kunna gå upp och ner mellan fält som ligger under varandra med hjälp av upp- och nedåtpilarna.

Går detta?


Mvh,


Sofia

Sätt KeyPreview till true.

Klistra in följande kod under KeyDown eventet:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Form_KeyDown_Err
    Select Case KeyCode
    Case vbKeyUp
        DoCmd.GoToRecord acDataForm, Me.Name, acPrevious
    Case vbKeyDown
        DoCmd.GoToRecord acDataForm, Me.Name, acNext
    End Select

Form_KeyDown_Exit:
    Exit Sub

Form_KeyDown_Err:
    Select Case Err.Number
    Case 2105 'You can't go to the specified record.
        Beep
        Resume Form_KeyDown_Exit
    Case Else
        MsgBox Err.Description, vbCritical
        Resume Form_KeyDown_Exit
    End Select
End Sub

Tack Andreas!!
Ser mycket bra ut - ska prova detta under dagen!

Mvh,

Sofia

Hej Andreas!
Jag får meddelandet "The Object 'MyForm' isn't open."

Vet du vad det kan vara?


Mvh,

Sofia

Ligger din kod i ett underformulär?

Hej Andreas!
Ja den gör ju det, går det inte att tillämpa din funktion som var så bra då?

Mvh,

Sofia

Bara att ändra till:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Form_KeyDown_Err
    Select Case KeyCode
    Case vbKeyUp
        DoCmd.GoToRecord acActiveDataObject, , acPrevious
    Case vbKeyDown
        DoCmd.GoToRecord acActiveDataObject, , acNext
    End Select

Form_KeyDown_Exit:
    Exit Sub

Form_KeyDown_Err:
    Select Case Err.Number
    Case 2105 'You can't go to the specified record.
        Beep
        Resume Form_KeyDown_Exit
    Case Else
        MsgBox Err.Description, vbCritical
        Resume Form_KeyDown_Exit
    End Select
End Sub

Tack Andreas!
Funkar kalas!


Mvh,

SOfia