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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Numerar documento
Irenko
BELO HORIZONTE
MG - BRASIL
Postada em 03/03/2007 08:36 hs            
Tenho um bloco de requisição numerado de 254551 a 254600, o que quero fazer é usar esse numeros no sistema para numeração automatica de um determinado documento, jogaria na tabela campos:

INICIAL = 254551
FINAL = 254600

Na inclusão do primeiro registro o código pegaria o 254551 no segundo 254552 e assim por diante ate o final 254600 e eliminado os que foram usados para evitar duplicidade pois não preciso quardar esses numeros. Agora, como fazer isso, ou isso é possivel?
     
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
ENUNCIADA !
Postada em 03/03/2007 12:31 hs            
cria um campo "Numeração" na tabela...
 
ela ficaria +- assim
campo cod (autonum)
campo numeração ( onde vc vai lançar os numeros q vc quer)
e...
os outros campos q vc precisa...
 
na hora de inserir,
vc faz uma consulta antes se existe algum registro na tabela...
+- isso aki (to usando dao tá?)
private sub botãoinserir_click()
 
ssql = "select * from requisição"
set tabela= banco.openrecordset(ssql,dbopensnapshot)
do until tabela. eof
          tabela.movenext
loop
n=tabela.recordcount
tabela.close
if n=0 then
         ' se não houver nenhum registro vc vai usar o 1o numero
        numreg=254551
else
      ' se houver registro vc vai buscar o maior numero na tabela
     
set tabela= banco.openrecordset(ssql,dbopensnapshot)
numreg=254551
do until tabela. eof
          n1=tabela("numeração")
          if n1> numreg then
                numreg=n1
           else
           endif
          tabela.movenext
loop
tabela.close
 
'com esta 2a consulta, vc pegou o maior valor existente no seu campo numeração..
agora é só acrescentar 1 e inserir o registro
numreg=numreg+1
endif
GRAVAREGISTRO
 
   
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página