[Resolvido]Ler tabela e verificar matricula pendente

Galera, bom dia.

Venho mais uma vez recorrer a esse grande fórum..

Tenho uma tabela que a estrutura é a seguinte

Código \ Nome \ Matricula \ CPF

23 Murilo Rosa 001 999.999.999-99
24 Teste 001 777.777.777-77
30 João da Silva 003 000.000.000-00
25 Maria da Luz 002 999.000.999-99
34 Carlos 005 888.888.888-88

Eu preciso ler essa tabela com essa estrutura e listar as matriculas que estão faltando. Acho que o primeiro passo é colocar em ordem crescente por Matricula e depois ler a tabela e verificar o que existe...Como resultado preciso emitir um relatório com essas matriculas pendentes.

São 28.000 matriculas e essas matriculas podem ter mais de uma entrada na tabela.

Quem puder me ajudar, estou quebrando a cabeça....

Abçs..

Olá! Primeiro, uma dica. Quando precisar reproduzir linhas de uma tabela ou algo do tipo, tente formatar os dados alinhados com o cabeçalho para facilitar no entendimento. Por exemplo:

Nome    | DataNascimento | Email
Criquio | 01/02/1990     | vcsregistros@gmail.com
Murilo  | 02/01/1988     | murilo@gmail.com
Manoel  | 01/02/1973     | manoel@gmail.com

Você pode utilizar as tags html < pre > Linhas aqui < /pre > para o texto ficar da forma que escreveu.

Quanto á questão, o que significa "faltando"? Seria esse campo em branco? Se for, pode filtrar todos os registros cujo campo matrícula esteja em branco. Supondo que você tenha um relatório e quer abrir ele com esses registros cujo campo da matrícula esteja em branco, você pode colocar, em um botão de um formulário:

DoCmd.OpenReport "NomeDoRelatório", acPreview, , "Matrícula=null"

Olá criquio.

Valeu pela dica, com certeza os próximos posts farei isso.

A Questão do "faltando" séria no caso da matricula 001 pular para 003, ou seja estaria faltando a 002.

Então no meu relatório teria a matricula 002 como pendente.

Abçs.

Então seria algo assim:

Código:

Dim N As Double

Me.NomeDoCampo = Null

For N = DMin("Código", "NomeDaTabela") To DMax("Código", "NomeDaTabela")
    If DCount("*", "NomeDaTabela", "Código=" & N) = 0 Then
        Me.NomeDoCampo = Me.NomeDoCampo & N & vbCrLf
    End If
Next

Essas linhas no evento "Ao carregar" e teria-se um campo, aqui identificado por NomeDoCampo, para receber esses valores

Esse exemplo você colocou por código, lá teria que colocar pela matricula..

No caso da matricula se repetir conforme falei.. ele não teria problema?

Att.
Murilo

Código é só exemplo. Você deve alterar para a sua realidade.

Colocaria em um relatório, no item ao carregar?

NomedoCampo poderia ser um textbox?

Como não conhecemos a estrutura do seu aplicativo, faça seus testes aí. Qualquer dúvida, retorne.

criquio o código não funcionou.

Segue imagem da minha tabela.

Tem um campo matric, que o campos que desejo verificar o numero que está faltando.

Começa com 1 e vai até 28000, e quero saber qual a matric que está faltando. Como pode ver na imagem a mesma matric pode se repetir.

Abçs.

Qual é o tipo do campo? Número ou texto? Se for texto, precisará converter para número.

criquio

O Tipo é Numero.

Mais uma prova, com medida de tempo, para vocês verem o quão DANOSO é usar funções de dominio(dsum(),DCount(), ..) em loop, como foi apresentada ao colega Murilo.

Segue um exemplo para o amigo Murilo e para quem desejar comprovar os tempos gastos em cada função apresentada.

Abra a janela de verificação Imediata do VBA e digite a função tempDc e aguarde apresentar o tempo de conclusão.

Digite a função tempRs e aguarde apresentar o tempo de conclusão.

Observe na imagem abaixo os tempos obtidos.



Enquanto que para uma função temos que aguardar INCRIVEIS 19 segundos, na outra em MEIO segundo resolveu.

Murilo, abra o relatório e veja o resultado. O código está no evento "ao carregar" do relatório. É só adaptar para sua tabela e seu campo matricula

Sucesso a todos

Avelino, Grande mestre.

Segui seu modelo, mais aparece apenas a primeira matricula não encontrada no relatório depois as demais não aparecem. Será que é porque a matricula se repete:

Por exemplo abaixo, ele mostra a 2 e para o restante que seria a 5 e por ae não mostra.

matric
1
1
1
3
3
3
4
4
6
6

Salve uma tabela apenas com o campo matricula e anexe aqui no tópico. Fica mais rápido de te ajudar.

No aguardo

Avelino,

Segue em anexo o BD. Tem duas tabelas para voce ver a estrutura.

A reg_real não se repete a matricula no campo matric

Já a pessoal se repete varias vezes.

Abçs

Ok, baixei mais ainda não ficou claro o que deseja.

Qual das duas tabelas tem todas as matriculas existentes ?

Vc quer comparar as matriculas de uma tabela com a outra tabela e listar as faltantes? Faltantes de que tabela ?

No aguardo

Olá Avelino,

Eu preciso verificar as matriculas que estão faltando em cada tabela.

Nas duas tabelas tem todas as matriculas.

Não precisa comparar uma com a outra não, coloquei as duas tabelas para você visualizar que em uma tabela (pessoal) a matricula se repete e em outra (reg_real) não se repete.

Preciso apenas verificar na tabela qual a matricula que não existe na ordem.

Pô, mas tem um buraco ai do tamnho de um monstro.

Veja, numa das tabelas vc pula de um sequancia na casa dos 10000 para 203000 e termina na casa dos 599000. É numero faltante que não acaba mais. Não daria nem no relatório. Ou tem lançamentos de matriculas equivocados ou vc tem que dizer o limite de matricul. Tem o numero limite superior de matriculas ?

AVelino,

Eu apaguei esse intervalo para diminuir o tamanho do arquivo. Voce pode apagar e deixar na ordem apenas para eu ver o codigo utilizado.

No meu tem faltando mais nao com grandes quantidades.

Desculpa pela demora

Entendi, apagarei então os registros com as diferenças.

Confirme pra mim, tens as tabelas em torno de 600 mil registros ?

Avelino,

Isso mesmo, são tabelas grandes.

segue modificações

1) usei consultas para eliminar as duplicações. assim também diminue o número de registros a ser varrido.

2) Criei dois relatórios. Um para cada tabela. O relatório1 demorou 2 minutos para apresentar o resultado devido ao numero excessivo de matriculas faltantes. O relatório2 demorou 17 segundos

3) Ainda é possivel baixar o tempo com alterações no código. A princípio, veja como irá se comportar.

Sucesso!

Murilo,

Acordei hoje pensando no tempo demasiadamente grande para obter o resultado disso. Ainda mais em uma tabela gigantesca que vc tem aí.

Cheguei a um códgo bem mais simples e ultra rápido.

Código:

Private Sub Report_Load()
Dim rs As DAO.Recordset
Dim k, j As Long
Dim t, m As String
t = Timer
Set rs = DBEngine(0)(0).OpenRecordset("QryReg_Real", 4)
rs.MoveFirst
j = 1
    Do While Not rs.EOF
        If rs!matric <> j Then
            For k = j To rs!matric - 1
                m = m & ";" & k
            Next
            j = rs!matric
        End If
        j = j + 1
        rs.MoveNext
    Loop
Me!matricula = m
MsgBox (Timer - t)
End Sub

Observe que consegui evitar o uso do laço FOR.

Teste o relatório3 e veja o tempo gasto.

Sucesso!

Avelino,

Funcionou perfeitamente. As outras rotinas na hora do processamento, travava o access. Essa demorou mais gerou o relatório.
Grato.
Murilo

Opa! valeu pelo feedback e sucesso!