[Resolvido]Ação por tecla

Mestres, bom dia!

Tenho aqui uma nova dúvida. Estou finalizando meu formulário de vendas e parei em um detalhe: Associei a tecla F9 para iniciar a venda ... ok, mas como utilizar este comando apenas uma vez a cada carregamento do formulário? Preciso evitar que durante a operação de venda o usuário abra uma novo deixando a atual sem finalizar.


Desde já agradeço pela atenção.

Abraços,

Fala Uilson....

Se você verificar se o formulário já está aberto, não resolve????

F9 1x abre o form e só carrega o F9 novamente, a partir do momento em que você finalizou o form.....


Desde já agradeço....

No aguardo de eventuais dúvidas!!!!

Cris o F9 está no formulário de venda "PDV". ao teclar o F9 é iniciado uma nova venda, seta para o campo "código". A partir daí que gostaria que o F9 ficasse indisponível.

Fala Uilson....

Cara, de forma rápida, entendo que você poderia verificar o código da venda, toda vez que o F9 for pressionado.....

F9 + Com Código = Nova venda

F9 + Sem Código = Nada....

Para gerar o código da venda, você poderia gerenciar de acordo com os campo de pré requisito da venda....

O que acha????

Desde já agradeço...

Abraço a todos!!!!!

Cris, Seria o contrário.
Ao teclar F9 se o campo "CODVENDA" for maior que "0" = mensagem de informação que não é possível ...
Ao teclar F9 se o campo "CODVENDA" for igual "(novo)" = Inicia-se uma nova venda

O conceito está OK.
O que preciso é como fazer

Que tal...

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

Select Case KeyCode
    Case vbKeyF9
    If Me.Dirty Then 'se estiver a decorrer inserções ou alterações
       KeyCode = 0
       MsgBox "Venda a decorrer...", vbCritical
       Else
       'se os dados já estiverem salvos, abre uma nova venda
      DoCmd.GoToRecord , , acNewRec
       End If
 End Select
 
End Sub

Opaaaa!!!!

Estou com o Paulo e não abro....
hahahahahahahahaha

Seria esta a necessidade?????

Desde já agradeço...

Abraço a todos!!!!

Mestre, JPaulo

O código não funcionou por completo porque os controles nem sempre estão em sujo (me.dirty), mas adaptei a minha necessidade.

Código:

Case vbKeyF12
Playsound (CurrentProject.Path & "\Objetos\Sound\Menu")
If Me.IDVDA > 0 Then  'Se houver venda em aberto
KeyCode = 0
MsgBox "Não é possível processar duas vendas neste terminal ao mesmo tempo.", vbCritical, "SIG (PDV)"
Else
'Caso não haja venda em aberto
DoCmd.GoToRecord , , acNewRec
If Me.btNovaVda.Enabled = True Then
If MsgBox("Deseja iniciar uma nova venda?", vbYesNo + vbDefaultButton1 + vbQuestion, "SIG V1.0.0") = vbYes Then
Me.DATAVDA = Date
Me.btBuscaProd.Enabled = True
Me.AltQuant.Enabled = True
Me.txtCodigo.Enabled = True
Me.PDVLivre.Visible = False
Me.VdaDetal.Visible = True
Me.txtEANCx001.Visible = True
Me.txtProdutoCx001.Visible = True
Me.txtQuantCx001.Visible = True
Me.rtlQuantCx001.Visible = True
Me.rtlMultCx001.Visible = True
Me.txtPrecCx001.Visible = True
Me.rtlPrecCx001.Visible = True
Me.rtlIgualCx001.Visible = True
Me.txtSTCx001.Visible = True
Me.rtlSTCx001.Visible = True
Me.CX001.Visible = True
Me.txtStatus.Value = "Started"
Me.txtCodigo.SetFocus
Me.btNovaVda.Enabled = False
Me.Sair.Enabled = False
End If
End If
End If

Muito obrigado pela ajuda.


Abraços,

Obrigado pelo retorno o forum agradece.