[Resolvido]Cancelar evento de outro campo

Olá amigos, tudo bem

Tô precisando da ajuda de voces, não tenho vasta experiencia com VB, muitas vezes monteo só o basico mesmo, tenho a seguinte situação.

Montei uma telinha para coleta de itens aqui na empresa, uma especie de inventário. Quando pistolamos codigo de barra do produto no campo "código", o sistema traz o produto e automaticamente a tabulação já leva o foco para o campo "quantidade".

No campo "quantidade", inseri um código que ao receber o foco, a tecla "enter é pressionada (sendkeys), isso porque o campo "quantidade" está com o valor padrão "1". Como a tecla enter é pressionada ao receber o foco, o registro já é gravado.

O que estou tentando fazer é que ao marcar uma caixa de seleção que esta ao lado do campo codigo ( figura em anexo ) antes de registrar o item claro, o comando "sendkeys" que esta no campo quantidade, seja cancelado ao receber o foco

Assim, seria possivel digitar uma quantidade diferente de 1

David,
Não seria mais fácil inverter o foco entre o campo de Quantidade e a Caixa de Seleção? Assim ao preencher o código de barras e trazer o produto, o foco cai na caixa de seleção (que fica com o texto "1" padrão) e depois avançar para o "gotfocus" da Quantidade?
Não vi nenhuma imagem que anexou mas, me parece o mais tranquilo de se fazer.

bom dia VBdev60

O campo quantidade esta com o valor padrão na tabela como "1", assim o que ocorre, quando o codigo de barras é lido pelo leitor, o foco vai direto para o campo quantidade, chegando nesse campo, ao receber o foco, coloquei no codigo "sendkeys = "enter" ", o seja quando recebe o foco a tecla enter é pressionad aautomaticamente e gravando o regsitro.

Pelo que entendi, se eu fizer o que esta me sugerindo, eu teria sempre que clicar no botão gravar quando fosse registrar um item.

Devo ter esquecido a figura, estou anexando agora

Olá senhores,
Poderia fazer uma verificação antes de executar o "SendKeys"
Algo assim:

Código:

If SuaCaixaSelecao = True Then Exit Sub

Com esse código o sendkeys só será executado caso a caixa de seleção esteja marcada.

Bom dia Marcelo

Deu certo amigo, o codigo ficou da seguinte forma:

Private Sub QUANT_GotFocus()
If checkBoxCancelEnter = True Then
Exit Sub
End If

Call SendKeys("{ENTER}", True)
End Sub


Obrigado a todos !

Se me permitem ainda neste topico

O codigo acima deu certo, mas como eu poderia por exemplo, fazer com que o checkbox respeite a ultima informação que deixei nele, exemplo

Quando eu deixar marcado para um registro, no proximo registro ele já venha marcado, e caso eu deixe desmarcado para um registro, quno proximo ele tambem ja venha desmarcado.

É como se para o proximo resgistro, ele trouxxesse sempre a ultima informação que ficou

Nesse caso, deverá gravar essa informação em algum campo da tabela, ou se essa checkbox for desacoplada, ela já manterá o último valor
para qualquer registro.

Ola Marcelo

De fato a checkbox estava acoplada a um campo sem necessidade.

Deixe desacoplada e funcionou perfeitamente

Muito Obrigado amigo !

Maravilha que deu certo! E como já resolveu, não esqueça de marcar como resolvido

Obrigado !