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


2 participantes

    Diferenciar letras e numeros

    avatar
    gutobrotas
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 16/02/2013

    Diferenciar letras e numeros Empty Diferenciar letras e numeros

    Mensagem  gutobrotas 14/9/2016, 19:47

    Ola amigos, boa tarde

    Tenho um campo que sao digitados numeros, mas se for digitado uma letra gostaria que abrisse um form (que seria um form de pesquisa)
    Tem como fazer isso?
    Dese já obrigado
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Diferenciar letras e numeros Empty Re: Diferenciar letras e numeros

    Mensagem  FabioPaes 15/9/2016, 01:11

    Da pra fazer assim no evento ao Pressionar tecla, analisando se foi numero ou nao...

    Faça assim:

    No Formulario, no Evento Visualiza Teclas coloque = Sim.


    Agora na Caixa de Texto onde é realizado a Pesquisa Coloque esse Codigo, no evento AO APERTAR TECLA:

    Código:

    Private Sub Texto0_KeyDown(KeyCode As Integer, Shift As Integer)
    'Aqui eu listo todas os 10 Numeros, que se for pressionado um deles, Façamos algo...
    If KeyCode = vbKey0 Or KeyCode = vbKey1 Or KeyCode = vbKey2 Or KeyCode = vbKey3 Or _
    KeyCode = vbKey4 Or KeyCode = vbKey5 Or KeyCode = vbKey6 Or KeyCode = vbKey7 Or _
    KeyCode = vbKey8 Or KeyCode = vbKey9 Then

    'Coloque aqui o que deve ser feito qnd pressionar algum Numero, ou NAO COLOQUE NADA
    MsgBox "Pressionou Numero...", vbInformation
    Else

    'AQUI coloque o Codigo para ABRIR o FORMULARIO que pretende...
    MsgBox "Nao foi Numero", vbInformation
    End If
    End Sub


    Para saber o codigo de cada tecla veja aqui:
    https://msdn.microsoft.com/en-us/library/aa243025(v=vs.60).aspx


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    gutobrotas
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 16/02/2013

    Diferenciar letras e numeros Empty Re: Diferenciar letras e numeros

    Mensagem  gutobrotas 17/9/2016, 15:25

    Ola Fabio, bom dia
    Desculpe a demora pois eu estava viajando e obrigado por responder

    Fiz tudo do jeito que vc disse mas nao funcionou, ele reconhece como se eu tivesse apertado qualquer tecla e nao um numero e abre sempre o form de pesquisa
    (Deixe explicar: o numero é codigo de barras -> se for codigo de barras ele entra normal, caso for uma letra ele faz a busca pelo nome)

    Que pode ser?

    Tks
    avatar
    gutobrotas
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 16/02/2013

    Diferenciar letras e numeros Empty Re: Diferenciar letras e numeros

    Mensagem  gutobrotas 17/9/2016, 18:24

    Ola Fabio,
    Dando uma olhada naquele link que me enviou acabei vendo que tem uma diferença para os numeros e os numeros do teclado pequeno (lateral)
    Resolvido!

    Obrigado!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Diferenciar letras e numeros Empty Re: Diferenciar letras e numeros

    Mensagem  FabioPaes 17/9/2016, 18:36

    Bacana que deu certo...

    Mas, veja bem... Se for uma tela de vendas e nela uma caixa de texto para inserir o codigo de barras para localizar o produto e inserir na venda... Nem precisa disso amigo. Basta no mesma caixa de texto, ao construir a consulta, mandar buscar tanto no Campo CodBarras quanto no campo DesProduto, utilizando no criterio...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    gutobrotas
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 16/02/2013

    Diferenciar letras e numeros Empty Re: Diferenciar letras e numeros

    Mensagem  gutobrotas 17/9/2016, 19:09

    Ops Ops Ops...
    Isso seria melhor ainda!!!
    Mas o campo do codBarra esta em um sub...
    Como fazer se ele esta relacionado com o form?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Diferenciar letras e numeros Empty Re: Diferenciar letras e numeros

    Mensagem  FabioPaes 18/9/2016, 11:58

    Faz assim, posta seu aplicativo aqui, somente essa parte envolvida... Pra que eu possa dar uma olhada e ver se tem como...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Conteúdo patrocinado


    Diferenciar letras e numeros Empty Re: Diferenciar letras e numeros

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 03:40