VERIFICACAO NA TABELA ATRAVES DO CODIGO DO PRODUTO

USUARIO.EXCLUIDOS 26/05/2007 11:37:11
#218352
Bom dia Pessoaaaaal!!!!
O Seguinte é esse,tenho essa duvida.VEjam:
VB 6.0 + ADO

Tenho uma tabela no access 2000 ,contendo (ns).produtos tenho um form de vendas contendo uma text aonde vc digita o código do produto,pra ele ir buscar na Tab_Produtos,ok. Esses produtos os seus códigos possuem 13digitos.
Então eu fiz essa verificação e funciona perfeitamente.Porem á minha duvida é o seguinte é qdo o produto possuir 14 digitos no caso diferente de 13 digitos que é a maioria dos produtos cadastrados na base? O meu código ficou dessa forma ,vejam:
VAleu,Genteeee!!!


'------------------------
If Len(Txt_Id.Text) >= 13 Then
Call Carrega ' '*******CHAMA A SUB PARA CARREGAR O PRODUTO PELO ID***
End If
ROBIU 26/05/2007 12:08:50
#218359 Resposta escolhida
da forma que está a sub nunca será chamada se o produto estiver 14 digitos. é só fazer assim:

If Len(Txt_Id.Text) >= 14 Then
   Call Carrega ' '*******CHAMA A SUB PARA CARREGAR O PRODUTO PELO ID***
End If
ROBIU 26/05/2007 12:12:10
#218360
então se Len(Txt_Id.Text) =15 a sub será chamada isso ainda está errado.
Faz desta forma:ÂÂ'Se o valor retornado for 13 ou 14 executa a sub:

If Len(Txt_Id.Text) = 13 or Len(Txt_Id.Text)=14 Then
   Call Carrega ' '*******CHAMA A SUB PARA CARREGAR O PRODUTO PELO ID***
End If
DANIELCPAETE 26/05/2007 12:21:43
#218362
bom mas se a sua intenção é validar o comprimento minimo de caracteres apenas não importando o maximo poderia apenas fazer isto

'eu colocaria um trim no caso de ter algum espaço a mais
If Len(trim(Txt_Id.Text)) > 12 Then
Call Carrega ' '*******CHAMA A SUB PARA CARREGAR O PRODUTO PELO ID***
End If
USUARIO.EXCLUIDOS 26/05/2007 12:30:37
#218365
não funucia dessa forma tb, já tinhe feito isso!
If Len(Txt_Id.Text) = 13 or Len(Txt_Id.Text)=14 Then
Call Carrega ' '*******CHAMA A SUB PARA CARREGAR O PRODUTO PELO ID***
End If

ele só chama produtos com 13 digitos se tiver 14 ele não busca,ele fica limitado em 13...

??
USUARIO.EXCLUIDOS 26/05/2007 12:43:11
#218366
DANIELCPAETE

também dessa forma ele fica limitado só nos prod.com codigos de 13 numeros
If Len(trim(Txt_Id.Text)) > 12 Then
Call Carrega ' '*******CHAMA A SUB PARA CARREGAR O PRODUTO PELO ID***
End If

??
USUARIO.EXCLUIDOS 26/05/2007 18:20:48
#218384
vixiii!alguem tem uma solução pois ainda eu não consegui fazer?
USUARIO.EXCLUIDOS 26/05/2007 23:08:17
#218391
CLAUDIF, uma sugestão: Se os códigos dos produtos só podem ter 13 dígitos para ser um código válido então pode ser definido o tamanho máximo de caracteres através da propriedade MaxLength do próprio TextBox (vc coloca 13). Agora se não for isso faça o seguinte:

If Len(Txt_Id.Text) >= 13 and Len(Txt_Id.Text) <=13 Then
Call Carrega ' '*******CHAMA A SUB PARA CARREGAR O PRODUTO PELO ID***
End If

Desta forma o seu text só chamará a rotina se existir um número com exatamente 13 dígitos.
USUARIO.EXCLUIDOS 30/05/2007 21:40:46
#218999
blz galera ,resolvi o prablema ,deu certo com a dica do nusso amigo ROBIU
incrivel esta esquecendo de colocar a chamada
If Len(Txt_Id.Text) = 13 or Len(Txt_Id.Text)=14 Then


VAleu á todos!!!!
ALEXANDREMOTA 30/05/2007 22:52:10
#219001
Por favor então finalize o tópico e pontue o ROBIU.
MARIOZNETO 31/05/2007 07:54:22
#219009
Estou finalizando este tópico!
Tópico encerrado , respostas não são mais permitidas
Voltar