teclas x codigo vba

boa noite

ola pessoal

estou usando o codigo abaixo mas no F1 nao funciona

If KeyCode = vbKeyEscape Then

DoCmd.Close acForm, "frmproduto"
Else
KeyCode = 0


If KeyCode = vbKeyF1 Then

DoCmd.GoToRecord , , acNewRec
Me.cbofornecedor.SetFocus


Else
KeyCode = 0


End If
End If

estou criando um sistema tipo clipper mas com o access e muito legal isso
mas estou com dificuldades para usar as teclas pois o clipper era todo via teclas

por exemplo: C consulta E excluir Insert incluir registro

e assim por diante

Experimente usar select case e baixe na net uma tabela ascii

Código:

Select Case KeyCode
    Case vbKeyF1
'Seu Código...
    KeyCode = 0

    Case vbKeyF5
Seu Código...
    KeyCode = 0

    Case vbKeyF6
Seu Código...
    KeyCode = 0

    Case vbKeyF7
Seu Código...
    KeyCode = 0

    Case vbKeyF8
Seu Código...
    KeyCode = 0

    Case vbKeyF9
Seu Código...
    KeyCode = 0

    Case vbKeyF10
Seu Código...
    KeyCode = 0

    Case vbKeyF11

Seu Código...
    KeyCode = 0

    Case vbKeyF12
Seu Código...
    KeyCode = 0
End Select

boa noite

ola amigo Formiga10x

muito obrigado pela ajuda

bom quando coloquei para Salvar pelo F2 esta dando erro de compilacao

end select sem select case
Select Case KeyCode

Case vbKeyEscape
DoCmd.Close acForm, "frmproduto"
KeyCode = 0

Case vbKeyF1

DoCmd.GoToRecord , , acNewRec
Me.cbofornecedor.SetFocus

KeyCode = 0

Case vbKeyF2

If MsgBox("VOCÊ QUER SALVAR/ATUALIZAR O REGISTRO", vbYesNo) = vbYes Then

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Else
Me.Undo
Me.txtDescricao.SetFocus

KeyCode = 0



End Select

Tente encerrar a condição if e por o keycode=0 antes do else.

If MsgBox("VOCÊ QUER SALVAR/ATUALIZAR O REGISTRO", vbYesNo) = vbYes Then

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

KeyCode = 0

Else
Me.Undo
Me.txtDescricao.SetFocus

KeyCode = 0

end if

brother


No evento Ao apertar tecla, uso o código abaixo nas versões 2003, 2007 e 2010 nunca tive problemas, com os seguintes botões F3 NOVO, F4 SALVAR, F5 EXCLUIR, F6 VOLTAR E F7 CANCELAR.

Observação, tem ainda os códigos no evento Ao Clicar dos botões acima.

Código:

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

On Error GoTo TrataErros

Select Case KeyCode
                 
    Case vbKeyF1
       
            KeyCode = 0
   
    Case vbKeyF2 'Imprimir
           
            KeyCode = 0
   
    Case vbKeyF3 'Novo
       
        If CmdNovo.Enabled = True Then
       
            CmdNovo.SetFocus
            SendKeys "{ENTER}"
       
        Else

            KeyCode = 0

        End If
   
    Case vbKeyF4 'Salvar
       
        If CmdSalvar.Enabled = True Then
       
            CmdSalvar.SetFocus
            SendKeys "{ENTER}"
       
        Else

            KeyCode = 0

        End If
   
    Case vbKeyF5 ' Excluir
       
        If CmdExcluir.Enabled = True Then
       
            CmdExcluir.SetFocus
            SendKeys "{ENTER}"
     
        Else

            KeyCode = 0

        End If
   
    Case vbKeyF6 'Fechar formulário
       
        If Sair_Rótulo.Visible = True Then
       
            CmdSair.SetFocus
            SendKeys "{ENTER}"
       
        Else

            KeyCode = 0

        End If
   
    Case vbKeyF7 'Cancelar registro
       
        If Cancelar_Rótulo.Visible = True Then
       
            CmdSair.SetFocus
            SendKeys "{ENTER}"
       
        Else

            KeyCode = 0
   
        End If
       
     
    Case vbKeyF8
       
            KeyCode = 0
   
    Case vbKeyF9
       
            KeyCode = 0
     
    Case vbKeyF10
       
            KeyCode = 0
     
    Case vbKeyF11
       
            KeyCode = 0
       
    Case vbKeyF12
       
            KeyCode = 0

    Case Else
   
   
End Select

Saida:

Exit Sub

TrataErros:


If Err.Number = 2110 Then

    CritMsg "Registro sendo Editado. Pressione ESC, para Cancelar."
    Exit Sub

End If

   
    CritMsg "Ocorreu um erro! " & Err.Description & "."
    Exit Sub

Resume Saida

End Sub


Abraços

boa noite

formiga e Cléverson

o código do formiga funcionou blz

também testei o do Cléverson e também me atendeu no problema

muito obrigado a todos