... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Procurar intervalos em campo numérico

Usuário Silvio:

Boa Tarde!

Qual comando uso para procurar intervalos em um campo de seqüência numérica?  Por exemplo:

Cod
1
2
3
4
6

Da seqüência acima, preciso que um comando ou um módulo mostre o número 5, que está faltando.

Grato

Suporte:

Sidney,

quer que apresente a primeira faltante ou a seqüência?

Seqüência:
1 2 3 4 6 8 11

Quer apresentar assim? 5, 7, 9, 10

Usuário Silvio:

Isso mesmo, Avelino.

no Aguardo.

Suporte:

Sidney,

experimente algo assim:

Dim seq$
Dim rs as DAO.Recordset
Dim j&
set rs = currentdb.OpenRecordset("SELECT Num FROM tblNomeTabela ORDER BY num;")
j=1
Do While Not rs.eof
   if rs!num <> j then 
      seq = seq & "," & j
   else
      rs.moveNext
   end if
   j = j + 1   
loop
rs.close
set rs = nothing
msgbox seq

Ponha esse código em um botão e teste.

Usuário Silvio:

Perfeito, Avelino!

Vou tentar adaptar estes códigos em um procedimento.

Obrigado!


 

 


Não há comentário

Envie seu comentário: