Sv:Gå upp och ner mellan raderna med hjälp av upp- och nedpilarna?

Gå upp och ner mellan raderna med hjälp av upp- och nedpilarna?

Postades av 2005-12-05 15:54:15 - Sofia Svensson, i forum access, Tråden har 7 Kommentarer och lästs av 818 personer

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

Svara

Sv: Gå upp och ner mellan raderna med hjälp av upp- och nedpilarna?

Postades av 2005-12-05 21:50:09 - Andreas Hillqvist

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

Svara

Sv:Gå upp och ner mellan raderna med hjälp av upp- och nedpilarna?

Postades av 2005-12-06 08:45:28 - Sofia Svensson

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

Mvh,

Sofia

Svara

Sv:Gå upp och ner mellan raderna med hjälp av upp- och nedpilarna?

Postades av 2005-12-09 07:52:05 - Sofia Svensson

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

Vet du vad det kan vara?

Mvh,

Sofia

Svara

Sv: Gå upp och ner mellan raderna med hjälp av upp- och nedpilarna?

Postades av 2005-12-09 13:27:46 - Andreas Hillqvist

Ligger din kod i ett underformulär?

Svara

Sv:Gå upp och ner mellan raderna med hjälp av upp- och nedpilarna?

Postades av 2005-12-14 08:23:48 - Sofia Svensson

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

Mvh,

Sofia

Svara

Sv: Gå upp och ner mellan raderna med hjälp av upp- och nedpilarna?

Postades av 2005-12-14 12:46:27 - Andreas Hillqvist

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

Svara

Sv:Gå upp och ner mellan raderna med hjälp av upp- och nedpilarna?

Postades av 2005-12-14 15:55:18 - Sofia Svensson

Tack Andreas!
Funkar kalas!

Mvh,

SOfia

Svara

Gå upp och ner mellan raderna med hjälp av upp- och nedpilarna?

Sv: Gå upp och ner mellan raderna med hjälp av upp- och nedpilarna?

Sv:Gå upp och ner mellan raderna med hjälp av upp- och nedpilarna?

Sv:Gå upp och ner mellan raderna med hjälp av upp- och nedpilarna?

Sv: Gå upp och ner mellan raderna med hjälp av upp- och nedpilarna?

Sv:Gå upp och ner mellan raderna med hjälp av upp- och nedpilarna?

Sv: Gå upp och ner mellan raderna med hjälp av upp- och nedpilarna?

Sv:Gå upp och ner mellan raderna med hjälp av upp- och nedpilarna?

Nyligen

Sidor

Statistik

Kontakta oss