...
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
Antes de iniciar a sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.
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 |
