[Resolvido]Relatório Sequencia Faltante

Ola.

Caros colegas, alguem poderia me ajudar referente a minha necessidade abaixo?

Estou precisando efetuar uma consulta e que o relátorio me informe quais as sequencias estão faltando.

Ao efetuar a consulta será digitado a serie inicial e final e gostaria que a resultante fosse as sequencias faltante no intervalo fornecido. Essas series são como um talonário que previamente ocorreu um cadastro.

exemplo: 500200 até 650000

agradeço antecipadamente.

Olá Josealdo,

Tá me parecendo que o que vc quer é um looping ou talvez na sua SQL da consulta, entre um valor e outro. Se for este o caso o critério seria: Entre[Digite o Valor Inicial]E[Digite o valor Final:] Veja como que com conhecimento da técnica de recursividade você pode fazer muita coisa.

Código:


Private Sub cmdGerar_Click()
Call CriarSequencia()  
End Sub

Public Function CriarSequencia(ValorInicial As Long, ValorFinal As Long) 'Os parâmetros estabelecem os limites inferior e superior
On Error Resume Next
Dim i As Long                   'O tipo Long possibilita a inserção de valores acima dos limites de Integer (Sem estouro)
Dim Intervalo As Integer
Dim sSimb As Variant

ValorInicial = Nz(txtValorInicial)      'Caixa de texto para inserir o valor inicial
ValorFinal = Nz(txtValorFinal)          'Caixa de texto para inserir o valor final
Intervalo = Nz(txtIntervalo)             'Caixa de texto para inserir o intervalo. Exemplo: Intervalo = 2 A sequência será de 2 em 2
sSimb = Nz(txtSimbolo)                   'Caixa de texto com o símbolo separador (Ex.: 1-2-3-; 1.2.3.;)

For i = ValorInicial To ValorFinal Step Intervalo
'Exemplo de recursividade, repete-se o nome da caixa do texto que armazenará os valores  
 txtSequencia = txtSequencia & i & sSimb         'Caixa de texto não acoplada e grande onde se desenvolverá a sequência

    
Next i

End Function


Good guy, muito obrigado pela a ajuda, não testei ainda. Mas estou vendo o código e estou entendendo que a série do talonário 500200 até 650000 estariam fixo. É isso? Estou perguntando pq terei momentos que precisarei consultar outra série.

Obrigado um abraço.

Olá Josealdo,

Ah, então se trata de um looping? Sem problema para flexibilizar o looping com outros valores. É só colocar mais algumas caixas de texto a mais no seu formulário e substituir os extremos do looping por variáveis. Deu pra entender?

Vou fazer as mudanças lá em cima mesmo no código que já está pronto. Suba a página.

OK