MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Cancelar evento de outro campo

    avatar
    david_maximo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 06/07/2016

    [Resolvido]Cancelar evento de outro campo Empty [Resolvido]Cancelar evento de outro campo

    Mensagem  david_maximo 24/1/2024, 17:01

    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
    avatar
    VBDev60
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 09/08/2016

    [Resolvido]Cancelar evento de outro campo Empty Re: [Resolvido]Cancelar evento de outro campo

    Mensagem  VBDev60 28/1/2024, 17:06

    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.
    avatar
    david_maximo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 06/07/2016

    [Resolvido]Cancelar evento de outro campo Empty Re: [Resolvido]Cancelar evento de outro campo

    Mensagem  david_maximo 29/1/2024, 12:24

    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
    Anexos
    [Resolvido]Cancelar evento de outro campo AttachmentSem título.bmp
    Você não tem permissão para fazer download dos arquivos anexados.
    (704 Kb) Baixado 6 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Cancelar evento de outro campo Empty Re: [Resolvido]Cancelar evento de outro campo

    Mensagem  Marcelo David 29/1/2024, 12:56

    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.


    .................................................................................
    [Resolvido]Cancelar evento de outro campo Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Cancelar evento de outro campo Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Cancelar evento de outro campo Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Cancelar evento de outro campo Marcel11
    avatar
    david_maximo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 06/07/2016

    [Resolvido]Cancelar evento de outro campo Empty Re: [Resolvido]Cancelar evento de outro campo

    Mensagem  david_maximo 29/1/2024, 14:03


    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 !
    avatar
    david_maximo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 06/07/2016

    [Resolvido]Cancelar evento de outro campo Empty Re: [Resolvido]Cancelar evento de outro campo

    Mensagem  david_maximo 29/1/2024, 14:32


    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
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Cancelar evento de outro campo Empty Re: [Resolvido]Cancelar evento de outro campo

    Mensagem  Marcelo David 29/1/2024, 15:10

    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.


    .................................................................................
    [Resolvido]Cancelar evento de outro campo Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Cancelar evento de outro campo Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Cancelar evento de outro campo Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Cancelar evento de outro campo Marcel11
    avatar
    david_maximo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 06/07/2016

    [Resolvido]Cancelar evento de outro campo Empty Re: [Resolvido]Cancelar evento de outro campo

    Mensagem  david_maximo 29/1/2024, 16:02

    Ola Marcelo

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

    Deixe desacoplada e funcionou perfeitamente

    Muito Obrigado amigo !

    Marcelo David gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Cancelar evento de outro campo Empty Re: [Resolvido]Cancelar evento de outro campo

    Mensagem  Marcelo David 29/1/2024, 20:23

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


    .................................................................................
    [Resolvido]Cancelar evento de outro campo Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Cancelar evento de outro campo Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Cancelar evento de outro campo Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Cancelar evento de outro campo Marcel11

    david_maximo gosta desta mensagem

    avatar
    david_maximo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 06/07/2016

    [Resolvido]Cancelar evento de outro campo Empty Re: [Resolvido]Cancelar evento de outro campo

    Mensagem  david_maximo 29/1/2024, 20:31

    Obrigado !

    Marcelo David gosta desta mensagem


    Conteúdo patrocinado


    [Resolvido]Cancelar evento de outro campo Empty Re: [Resolvido]Cancelar evento de outro campo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 08:44