tudo bem, familia vbweb!
abaixo esta o codigo inteiro de uma caixa de texto. Ela é para uma loja de roupa que entra com o numero (par) da roupa de 2 à 60, e também tem o P,M,G e GG.
esta tudo pronto exceto o que esta entre o TESTE --- TESTE, sem este pedaço de codigo funciona, apos adiciona-lo nao funciona. Gostaria da Colaboração de Todos para solucionar este problema.
muito grato.
codigo:
Private Sub Txttam_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'copia
'apos o ENTER,se a cx esta vaz(msg); senao restaura o tam=2
''pois se for 1 na prox inclusao:deixa apenas digitar 1 vez
If Txttam = "" Then
resp = MsgBox("Digite O Tamanho Do Modelo", 64, "É Necessário...")
Else
'teste TESTE --- ----- TESTE ----- --- TESTE teste'
'é filtro para P,M,G,GG.
If (Txttam >= "0" And Txttam <= "99") Then
'para ver se o numero é impar, pego o resto de uma divisao
''por 2. o resto pode ser 0 ou 1. e coloco no aux.
If (Txttam Mod 2 = 1) Then
resp = MsgBox("Digite Valores Pares", 64, "É Necessário...")
'valores fora da faixa de 2 à 60
If txtam < 2 Or Txttam > 60 Then
resp = MsgBox("Valores Pares Entre 2 e 60", 64, "É Necessário...")
Txttam = ""
Exit Sub
End If
'teste TESTE --- ----- TESTE ----- --- TESTE teste'
Txttam.MaxLength = 2
Txtqtd.SetFocus
End If
Exit Sub
End If
KeyAscii = Asc(UCase(Chr(KeyAscii)))
'p qdo tiver P ou M estará valendo maxlength=1, mas usando
''o backspace p/ apagar(cx vz)entao tem q voltar ao normal
''maxlength=2
If KeyAscii = 8 And (Txttam <> "P" Or Txttam <> "M") Then Txttam.MaxLength = 2
's/ isto qdo tinha 1 G aceita depois G e nº. ex: G8
If Txttam = "G" And (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Then
resp = MsgBox("Digite P,M,G,GG Ou Tamanho Da Roupa", 64, "É Necessário...")
'p/ cancelar os digitos digitados.
KeyAscii = 0
'sai da sub p/ ñ entra em outras situaçoes.
Exit Sub
End If
'qdo se teclar P,M,G; senao sao os number e backspace
If (KeyAscii = 80 Or KeyAscii = 77 Or KeyAscii = 71) Then
'qdo teclar P e M nao pode ter receber caracteres maxlen=1
If (KeyAscii = 80 Or KeyAscii = 77) Then Txttam.MaxLength = 1
ElseIf (KeyAscii <> 8) And (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) Then
resp = MsgBox("Digite P,M,G,GG Ou Número Da Roupa", 64, "É Necessário...")
KeyAscii = 0
End If
End Sub
