Procurar intervalos em campo numérico
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 10x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
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 |
