Adicionar prodecimento a tecla

Olá a todos,

tenho uma base de dados que necessito que abra um formulário com os campos todos bloqueados e que ao clicar uma determinada tecla (F4 ou F5-ou outra que indicarmos) desbloqueie todos os campos desse formulário.

Consegui colocar em funcionamento mas tenho de utilizar um botão. A minha ideia passava por eliminar o botão e ficar só com a tecla para desactivar, mas não estou a conseguir faze-lo...

Estou a usar o seguinte código:

Para abrir bloqueado:

Private Sub Form_Current()
Dim ctl As Control
Dim StrName As String

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
StrName = ctl.Name
Me(StrName).Enabled = False
End Select
Next ctl
End Sub

Para desbloquear:
Private Sub Comando619_Click()
Dim ctl As Control
Dim StrName As String

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
StrName = ctl.Name
Me(StrName).Enabled = True
End Select
Next ctl
End Sub

Obrigado a todos.

Boas....


Coloque essa função ( um para bloquear e outro para desbloquear ) em um modulo e de lhe um nome de fácil identificação.


Depois..

Código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode

        Case vbKeyF6
        Call bt_salvar_Click
   
        Case vbKeyF3
        Call bt_localizaOS_Click
   
        Case vbKeyF4
        Call bt_imprimir_Click
   
        Case vbKeyF5
        Call bt_gerarPDF_Click
       
        Case vbKeyF8
        Call bt_excluir_Click
       
        Case vbKeyF1
        Call bt_fechar_Click
       
       
        Case Else
        End Select
End Sub

É só falar a chamada do modulo através do código acima