Search the Community

Showing results for tags 'somente'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Found 1 result

  1. Boa tarde galerinha! É o seguinte estou utilizando um código na textbox neste formato: Private Sub txt_id_AfterUpdate() Dim Linha As Long Dim id As Long 'mudar para string se o id tiver letras ou símbolos If Val(Me.txt_id) = 0 Then Exit Sub End If Plan1.Activate Linha = 2 id = txt_id Do Until Cells(Linha, 1) = "" 'vai executar o laço até encontrar uma célula vazia 'Condição para localizar o registro If Cells(Linha, 1) = id Then 'se encontrar o valor registro na célula pesquisada opt_funcionario = Cells(Linha, 2) opt_exfuncionario = Cells(Linha, 3) opt_ativo = Cells(Linha, 4) opt_inativo = Cells(Linha, 5) txt_razao = Cells(Linha, 6) txt_endereço1 = Cells(Linha, 7) txt_bairro01 = Cells(Linha, 8) txt_complemento = Cells(Linha, 9) cmb_cidade01 = Cells(Linha, 10) txt_cep01 = Cells(Linha, 11) cmb_uf01 = Cells(Linha, 12) Exit Sub 'interrompe o código quando encontrar o código e preencher os dados End If Linha = Linha + 1 Loop End Sub Eu preciso que esse campo aceite somente números sendo que eu não posso mudar o private pois o id digitado nessa textbox ao pressionar enter ele irá busca os dados do usuário na planilha e preencher os campos corretos. Alguém pode me ajudar?