Άνοιγμα φόρμας με F5

[mdragon]

Καλησπέρα σε όλους,

έχω μία φόρμα "Πίνακας Επιλογών" και άλλη μία "ΕΤΑΙΡΙΑ" ΄
Θέλω όταν είμαι στην 1η φόρμα να πατάω F5 και αφού κλείσει να μου ανοίξει την 2η φόρμα
η οποία με την σειρά της όταν κλείσει να μου ξαναανοίξει την 1ή

Τι κάνω λάθος????



Στη φόρμα Πίνακας Επιλογών έχω
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Const conKey_F5 = &H74 ' F5 Key constant
Select Case KeyCode

Case conKey_F5
DoCmd.Close
DoCmd.OpenForm "ΕΤΑΙΡΙΑ"
KeyCode = 0
Case Else
End Select
If KeyCode = Asc("L") And Shift = 2 Then
Beep: Beep: Beep: Beep

End If
If KeyCode = 76 And Shift = 1 Then DoCmd.OpenForm "ΕΤΑΙΡΙΑ"
End Sub


Στην φόρμα ΕΤΑΙΡΙΑ έχω

Private Sub Form_Close()
DoCmd.OpenForm "Πίνακας επιλογών"
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then DoCmd.Close
End Sub




Ευχαριστώ,
Μάρω