[Resolvido]Ao pressionar a tecla

Pessoal, boa noite!

Já li e reli o código na função ao teclar o F9 e não consigo encontrar um erro no conceito.

Está acontecendo que mesmo quando o valor IDVDA é nulo, a venda é inicia mas é emitida a mensagem "Não é possível processar duas vendas neste terminal ao mesmo tempo".

Se alguém puder dar uma olhadinha desde já muito obrigado.

Código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Segundo passo para desabilitar teclas
If (KeyCode = 27) Then
KeyCode = 0
MsgBox ":::Função da tecla ESC não permitida.", vbInformation, ":::SIG V1.0.0 (PDV)"
End If
If (KeyCode = 116) Then
KeyCode = 0
MsgBox ":::Função da tecla F5 não permitida.", vbInformation, ":::SIG V1.0.0 (PDV)"
End If
If (KeyCode = 118) Then
KeyCode = 0
MsgBox ":::Função da tecla F7 não permitida.", vbInformation, ":::SIG V1.0.0 (PDV)"
End If
If (KeyCode = 123) Then
KeyCode = 0
MsgBox ":::Função da tecla F12 não permitida.", vbInformation, ":::SIG V1.0.0 (PDV)"
End If

Select Case KeyCode

Case vbKeyF4
Playsound (CurrentProject.Path & "\Objetos\Sound\Menu") 'Mensagem para o desenvolvedor
If MsgBox(":::Em desenvolvimento." & vbCrLf & ":::Qualquer Dúvida: (67)9266-7533 / (67)9810-7533", vbInformation, ":::SIG V1.0.0 (PDV)") = vbYes Then
End If

Case vbKeyF6
Playsound (CurrentProject.Path & "\Objetos\Sound\Menu")
If IsNull(Me.IDVDA) Then
MsgBox "Não existe venda para ser cancelada", vbInformation + vbOKOnly, ":::SIG V1.0.0 (PDV)"
DoCmd.CancelEvent
Else
MsgBox ":::Em desenvolvimento." & vbCrLf & ":::Qualquer Dúvida: (67)9266-7533 / (67)9810-7533", vbInformation, ":::SIG V1.0.0 (PDV)"
End If

Case vbKeyF9
Playsound (CurrentProject.Path & "\Objetos\Sound\Menu")
If Me.IDVDA > 0 Then  'Se houver venda em aberto
MsgBox "Não é possível processar duas vendas neste terminal ao mesmo tempo.", vbCritical, ":::SIG V1.0.0 (PDV)"
Else
If IsNull(Me.IDVDA) Then
MsgBox "Deseja iniciar uma nova venda?", vbYesNo + vbDefaultButton1 + vbQuestion, ":::SIG V1.0.0 (PDV)"
Me.DATAVDA = Date
Me.btBuscaProd.Enabled = True
Me.AltQuant.Enabled = True
Me.txtCodigo.Enabled = True
Me.PDVLivre.Visible = False
Me.VdaDetalCons.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.txtCodigo.SetFocus
Me.btNovaVda.Enabled = False
Me.Sair.Enabled = False
Me.txtStatus = "Started"
End If
End If

Case vbKeyF10
Playsound (CurrentProject.Path & "\Objetos\Sound\Menu")
If IsNull(Me.txtTotal) Then
MsgBox "Não existe venda para ser finalizada", vbInformation + vbOKOnly, ":::SIG V1.0.0 (PDV)"
DoCmd.CancelEvent
Else
DoCmd.OpenForm "PDVFV", acNormal, , "IDVDA = " & Me!IDVDA
End If

Case Else
End Select
End Sub

Abraços,

Há uma diferença entre Nulo, Branco e vazio..

no repositório na sala de tutoriais creio que tem material sobre isto.

tente assim

Código:

If Len("" & Me.IDVDA) = 0 Then

Grande Piloto,

Infelizmente não funfou.

Fiz um teste aqui e percebi o motivo da mensagem: É que o código está sendo lido duas vezes. Agora o por quê é que eu não consegui entender.

Código:

Case vbKeyF9
Playsound (CurrentProject.Path & "\Objetos\Sound\Menu")
'If Me.IDVDA <> "" Then  'Se houver venda em aberto
'MsgBox "Não é possível processar duas vendas neste terminal ao mesmo tempo.", vbCritical, ":::SIG V1.0.0 (PDV)"
'Else
If MsgBox("Deseja iniciar uma nova venda?", vbYesNo + vbDefaultButton1 + vbQuestion, ":::SIG V1.0.0 (PDV)") = vbYes Then
Me.DATAVDA = Date
Me.btBuscaProd.Enabled = True
Me.AltQuant.Enabled = True
Me.txtCodigo.Enabled = True
Me.PDVLivre.Visible = False
Me.VdaDetalCons.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.txtCodigo.SetFocus
Me.btNovaVda.Enabled = False
Me.Sair.Enabled = False
Me.txtStatus = "Started"
'End If
End If

Abraços,

Tente ao invés do VbKey.. utilizar o Keycode...

Por exemplo para tecla enter:

If KeyCode = 13 Then
Seu código
KeyCode = 0
End If



Aplique o Keycode = 0 e teste.

Cumprimentos.

Tente também ao invés do Len:

If IsNull(CaixaTexto) = True or Me.CaixaTexto = "" Then


Cumprimentosn

Piloto,

Esta semana estou sem poder fazer os testes, mais assim que possível retornarei.


Abraços,

Aguardamos.

Cumprimentos.

Piloto,

Eliminei o F9. Para iniciar uma nova venda agora é só pressionar a tecla Enter. Ficou muito mais fácil pois o botão "btNovaVda" é o único objeto com parada de tabulação = sim.


Abraços,

O Fórum agradece o Retorno.