SOMENTE LETRAS

USUARIO.EXCLUIDOS 28/05/2007 13:21:18
#218496
Boa Tarde !

O comando abaixo faz com que o campo em questão só aceite numeros ,sem nem deixar eu escrever nada além de numeros.

Como posso fazer isso com letras ? Não conheço muito.

Grato.

Private Sub tb_num_ssti_KeyPress(KeyAscii As Integer)
On Error Resume Next
   KeyAscii = SoNumeros(KeyAscii)
End Sub



Sub SU_Permite_Numero_versao(Tecla%)
    
    If Tecla% = 8 Then
        Exit Sub
       
    End If
  
    If InStr("1234567890.", Chr(Tecla%)) = 0 Then
        Tecla% = 0
    End If

End Sub
CAIO.IN.DUST 28/05/2007 13:36:17
#218498
Fera esse bloco de codigo não aceita numero, sendo assim so letras

Private Sub tb_num_ssti_KeyPress(KeyAscii As Integer)
On Error Resume Next
    If KeyAscii > 45 And KeyAscii < 57 Then
        KeyAscii = 0
    End If
End Sub]
USUARIO.EXCLUIDOS 28/05/2007 13:39:57
#218500 Resposta escolhida
cara, ve se isso aqui resolve a sua duvida!


If Text1.Text <> "" Then
    
    If Not IsNumeric(Text1.Text) Then
         MsgBox "voce digitou:  | " & Text1.Text & " |"
    Else
        MsgBox "Numeros nao sao aceitos"
    End If
    
End If


qualquer coisa posta

abraços
ALEXANDREMOTA 28/05/2007 13:44:14
#218501
Tenta esse código:

If KeyAscii > 40 And KeyAscii > 60 Then
KeyAscii = KeyAscii
ElseIf KeyAscii = 8 Then
KeyAscii = KeyAscii
Else
Me.Caption = "Você digitou um número!"
KeyAscii = 0
End If

If KeyAscii = 8 Or KeyAscii = 13 Then
KeyAscii = KeyAscii
End If
USUARIO.EXCLUIDOS 28/05/2007 13:49:17
#218503
Faça a modificação abaixo: 

Sub SU_Permite_Letras_versao(Tecla%)
    
    If Tecla% = 8 Then
        Exit Sub       
    End If

    dim i as Integer
    dim sLetras as string

    sLetras=""

    for i = 65 to 122
       sLetras=sLetras & chr(i)
    next
  
    If InStr(sLetras, Chr(Tecla%)) = 0 Then
        Tecla% = 0
    End If

End Sub


Espero ter ajudado.
MARIOZNETO 28/05/2007 14:32:37
#218510
O Pessoal aqui tem bastante vontade de ajudar! Muito Bom!

Amigo, Sempre antes de postar, procure pesquisar no forum, pois este assunto já foi abordado por várias vezes...

Tenha um Bom Dia!

Falow... T+
FFCOUTO 28/05/2007 17:41:16
#218564
é bem simples. No evento KeyPress faça conforme abaixo

Private Sub Text1_KeyPress(KeyAscii As Integer)
   Select Case KeyAscii
      Case 8  'Tab
      Case 13 'Enter
      Case 65 To 90   'Letras MAIÃÅ¡SCULAS
      Case 97 To 122  'Letras minúsculas
      Case Else
         KeyAscii = 0 'Outros caracteres, muda para o caracter nulo
   End Select
End Sub


espero ter ajudado
ICEMAN 28/05/2007 18:56:13
#218580
Citação:

FFCOUTO escreveu:
é bem simples. No evento KeyPress faça conforme abaixo

Private Sub Text1_KeyPress(KeyAscii As Integer)
   Select Case KeyAscii
      Case 8  [ÃÂ']Tab
      Case 13 [ÃÂ']Enter
      Case 65 To 90   [ÃÂ']Letras MAIÃÅ¡SCULAS
      Case 97 To 122  [ÃÂ']Letras minúsculas
      Case Else
         KeyAscii = 0 [ÃÂ']Outros caracteres, muda para o caracter nulo
   End Select
End Sub


espero ter ajudado



esse seu codigo trava o back space fui tentar usar travou o back space
ICEMAN 28/05/2007 19:01:11
#218581
Citação:

CAIO.IN.DUST escreveu:
Fera esse bloco de codigo não aceita numero, sendo assim so letras

Private Sub tb_num_ssti_KeyPress(KeyAscii As Integer)
On Error Resume Next
    If KeyAscii > 45 And KeyAscii < 57 Then
        KeyAscii = 0
    End If
End Sub]



esse aqui permite o 9 e os simbolos de adição subtraçao multiplicação e virgula.

so to falndo pq fui tentar usar e fez isso tambem to precisando.

desculpem qualquer coisa
ICEMAN 28/05/2007 19:05:22
#218582
Bem desculpem eu pertubar vcs eu usei o esquema do CAIO.IN.DUST

so que fiz uma alteraçãozinha


Private Sub tb_num_ssti_KeyPress(KeyAscii As Integer)On Error Resume Next    If KeyAscii => 42 And KeyAscii <= 57 Then        KeyAscii = 0    End IfEnd Sub


Ai nao aceita os simbolos tambem e com uma vantagem nao trava nem o delete nem o backspace

desculpem qualquer coisa
USUARIO.EXCLUIDOS 29/05/2007 15:35:59
#218731
O codigo e legal ,mas a questão ,se aparecer algum erro ele vai passar direto.

Esse caso alguem sabe alguma forma para fazer tratamento de erro ?
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar