Boas galera,
Tenho os seguintes eventos,
A questão é que quando tenho o campo txtQuant.Setfocus e pressiono a tecla "Esc" me gera um erro pois é carregado primeiro o comando de ir para criar novo registro e depois
selecionar o botão comentar que não existiria pois o registro no foi criado.
Sei que devo usar um If mas como identifico se um campo tem o foco? pesquisei bastante mas não consegui achar um jeito.
Tenho os seguintes eventos,
- Código:
'Ao perder o foco
Private Sub txtQuant_LostFocus()
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
Me.txtIdentCardapio.SetFocus
'Salvar, "ir para" Novo registro e selecionar item para o foco.
End Sub
- Código:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyEscape
DoCmd.RunCommand acCmdSaveRecord
Me.btnComentar.SetFocus
Case vbKeyDel
Call btnExcluir_Click
Case vbKeyInsert
Call btnComentar_Click
End Select
A questão é que quando tenho o campo txtQuant.Setfocus e pressiono a tecla "Esc" me gera um erro pois é carregado primeiro o comando de ir para criar novo registro e depois
selecionar o botão comentar que não existiria pois o registro no foi criado.
Sei que devo usar um If mas como identifico se um campo tem o foco? pesquisei bastante mas não consegui achar um jeito.