MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 17 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]

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    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.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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 55 vez(es)


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


    .................................................................................
    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.


    .................................................................................
    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.]

    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?

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.


    .................................................................................
    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.]

    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

    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 03 Dez 2016, 19:43