MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Verificar e Listar Sequencia Numerica que falta

    Compartilhe

    Junior Meireles
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 14/08/2010

    Verificar e Listar Sequencia Numerica que falta

    Mensagem  Junior Meireles em Sab 30 Mar 2013, 14:58

    Colaboradores, estou tentando listar uma quebra de sequancia numérica em um formulario, mas não estou conseguindo. Poderiam me ajudar, anexo o BD access 2003
    Obrigado a quem puder me ajudar
    Anexos
    NumeracaoFalta.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (45 Kb) Baixado 24 vez(es)

    Junior Meireles
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 14/08/2010

    Re: [Resolvido]Verificar e Listar Sequencia Numerica que falta

    Mensagem  Junior Meireles em Sab 30 Mar 2013, 15:53

    Aqui vai o código que estou tentando mas não está listando todas os número que faltam, abrigado
    Private Sub cmdVerificar_Click()
    Dim i As Integer
    i = DMin("NotaFiscal", "tblDados")


    For i = DMin("NotaFiscal", "tblDados") To DMax("NotaFiscal", "tblDados")



    i = i + 1


    If IsNull(DLookup("NotaFiscal", "tblDados", "NotaFiscal" & "=" & i)) Then

    CurrentDb.Execute ("Insert into tblNotasFiscaisConferencia (NotaFiscal) values (" & i & ")")


    Me.Requery


    End If

    Next i


    End Sub
    [/code]
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6441
    Registrado : 05/11/2009

    Re: [Resolvido]Verificar e Listar Sequencia Numerica que falta

    Mensagem  Alexandre Neves em Sab 30 Mar 2013, 17:04

    Boa tarde, Junior
    Private Sub cmdVerificar_Click()
    'código criado por Alexandre Neves, do Fórum MaximoAccess
    'em 2013-03-30 para Junior Meireles
    'o código pode ser utilizado livremente, desde que mencionado este cabeçalho
    Dim i As Integer, RstDados As DAO.Recordset, RstNotasFiscaisConferencia As DAO.Recordset

    i = 0
    Set RstDados = CurrentDb.OpenRecordset("SELECT NotaFiscal FROM tblDados ORDER BY NotaFiscal;")
    Set RstNotasFiscaisConferencia = CurrentDb.OpenRecordset("SELECT NotaFiscal FROM tblNotasFiscaisConferencia;")

    Do While Not RstDados.EOF
    If i = 0 Then
    i = RstDados(0)
    Else
    i = i + 1
    If i <> RstDados(0) Then
    RstNotasFiscaisConferencia.AddNew
    RstNotasFiscaisConferencia(0) = i
    RstNotasFiscaisConferencia.Update
    End If
    End If
    RstDados.MoveNext
    Loop
    Set RstDados = Nothing
    Set RstNotasFiscaisConferencia = Nothing
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Junior Meireles
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 14/08/2010

    Re: [Resolvido]Verificar e Listar Sequencia Numerica que falta

    Mensagem  Junior Meireles em Sab 30 Mar 2013, 21:05

    Alexandre, boa noite, testei seu código mas na tabela tblNotasFiscaisConferencia, está me listando numeros de notas fiscais que já exitem na tabela dados, ou seja repetindo os numeros, o que eu preciso é que entre o primeiro e o ultimo numero da tabela dados, na tabela Notas fiscais conferencia me liste somente os numeros que estão faltando na tabela dados, e obrigado pela sua presteza.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9676
    Registrado : 04/11/2009

    Re: [Resolvido]Verificar e Listar Sequencia Numerica que falta

    Mensagem  JPaulo em Ter 02 Abr 2013, 09:53

    Bom dia a todos;

    Não desfazendo a ajuda do Grande Alexandre, veja se o atende;

    Pressione o botão do seu form frmNotasFiscaisConferencia;
    Anexos
    NumeracaoFalta_OLD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (27 Kb) Baixado 82 vez(es)


    Última edição por JPaulo em Qui 05 Dez 2013, 13:03, editado 1 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Junior Meireles
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 14/08/2010

    Re: [Resolvido]Verificar e Listar Sequencia Numerica que falta

    Mensagem  Junior Meireles em Ter 02 Abr 2013, 14:08

    Valeu JPaulo era isso mesmo que eu precisava, muito obrigado a você e ao Alexandre e a todos que contribuiram para resolver meu problema
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9676
    Registrado : 04/11/2009

    Re: [Resolvido]Verificar e Listar Sequencia Numerica que falta

    Mensagem  JPaulo em Ter 02 Abr 2013, 14:15

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    alcides
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 17/04/2011

    Re: [Resolvido]Verificar e Listar Sequencia Numerica que falta

    Mensagem  alcides em Qui 05 Dez 2013, 12:45

    Post é antigo mas gostaria de comentar; não sei até se vou falar alguma asneira.
    procurando algo parecido cheguei a esse post e por curiosidade baixei o exemplo do JPaulo e olhando percebi um detalhe:
    a tblDados tem 50 registros numerados de 1186 à 1242 e a tblNotasFiscaisConferencia registra a falta de 7 registros da tblDados.
    1192,1193,1194,1197,1198,1202,1210. porém notei que na tblDados também falta o registro 1188.

    será que estou vendo demais ou há um falha. ???


    .................................................................................
    Core 2Quad
    Access 2003

    Junior Meireles
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 14/08/2010

    Re: [Resolvido]Verificar e Listar Sequencia Numerica que falta

    Mensagem  Junior Meireles em Qui 05 Dez 2013, 12:56

    Realmente Alcides, não tinha percebido isso, o que será que está acontecendo?
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9676
    Registrado : 04/11/2009

    Re: [Resolvido]Verificar e Listar Sequencia Numerica que falta

    Mensagem  JPaulo em Qui 05 Dez 2013, 13:03

    Muitissimo bem visto.

    Exemplo corrigido.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    alcides
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 17/04/2011

    Re: [Resolvido]Verificar e Listar Sequencia Numerica que falta

    Mensagem  alcides em Qui 05 Dez 2013, 13:26

    Oi JPaulo, "Exemplo corrigido" , onde ???


    .................................................................................
    Core 2Quad
    Access 2003

    Junior Meireles
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 14/08/2010

    Re: [Resolvido]Verificar e Listar Sequencia Numerica que falta

    Mensagem  Junior Meireles em Qui 05 Dez 2013, 14:06

    Alcides a correção está no Anexo acima,
    obrigado J Paulo e Alcides
    avatar
    alcides
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 17/04/2011

    Re: [Resolvido]Verificar e Listar Sequencia Numerica que falta

    Mensagem  alcides em Qui 05 Dez 2013, 15:28

    OK. não havia reparado a edição no link original.


    .................................................................................
    Core 2Quad
    Access 2003

      Data/hora atual: Sab 21 Out 2017, 14:47