Procurar intervalos em campo numérico
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
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 |
