USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Gerar código aleatório com base em outro campo
ATS
não registrado
Postada em 15/05/2004 08:07 hs   
Tenho um formulario de cadastro de produtos, dentro deste formulario tenho um campo Codigo do Produto e um campo Safra.
Gostaria que assim que o usuário inserisse um novo registro, fosse gerado automaticamente um codigo de produto que começa-se com o número 9xxxxX e que esse codigo tivesse 6 digitos, e que o ultimo numero deste codigo fosse o ultimo numero da Safra informada.
 
Ex:
Safra: 04/05
Codigo Produto: 9xxxx5
 
Ah ! Gostaria que os numeros que estão entre o 9xxxx5 fossem aleatórios que não seguissem um seguencia.
     
ATS
não registrado
Postada em 17/05/2004 13:54 hs   
Amigos será que nimguém pode me ajudar...
     
Tiago Botari
PAULINIA
SP - BRASIL
Postada em 31/05/2004 16:19 hs            
se tiver usando acess com banco de dados, separe os campos xxxx do campo 5 e ponhe de atributo dos xxxx autonuemração aleatoria
 
se não funcionar da um toque
     
Tekki
Pontos: 2843 Pontos: 2843 Pontos: 2843
UBERLÂNDIA
MG - BRASIL
Postada em 31/05/2004 16:40 hs            
ATS, veja se é assim:
 
    Randomize
    iCodigoTemp = (Int(9999 * Rnd) + 1)
   
    iCodigoFinal = "9" & iCodigoTemp & Right(txtCampoSafra, 1)
   
    MsgBox iCodigoFinal
 
Este foi só um pequeno exemplo para te dar uma idéia.
     
Tiago Botari
PAULINIA
SP - BRASIL
Postada em 31/05/2004 16:45 hs            
tekki mas não vai ter o problema de haver repedição no banco?
 
não vai dar erro no campo de dados ?
     
Tekki
Pontos: 2843 Pontos: 2843 Pontos: 2843
UBERLÂNDIA
MG - BRASIL
Postada em 31/05/2004 17:10 hs            
Sim, pode haver código duplicado. Neste caso tem de tratar com mais código.
Uma instrução SQL ou com on error.
Depende da necessidade.
 
(Como disse, é só para ter um idéia.)
TÓPICO EDITADO
   
Página(s): 1/1     1 | 


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página
 
 Home
 Artigos
 Cadastro
 Visual Basic
 Visual Basic .Net
 ASP
 ActiveX
 Apostilas
 Fóruns
 Utilitários
 Parceiros
 Hospedagem