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

    avatar
    Junior Meireles
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Verificar e Listar Sequencia Numerica que falta Empty Verificar e Listar Sequencia Numerica que falta

    Mensagem  Junior Meireles em 30/3/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
    [Resolvido]Verificar e Listar Sequencia Numerica que falta AttachmentNumeracaoFalta.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (45 Kb) Baixado 34 vez(es)
    avatar
    Junior Meireles
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Junior Meireles em 30/3/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
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves em 30/3/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
    avatar
    Junior Meireles
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Junior Meireles em 30/3/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
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em 2/4/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
    [Resolvido]Verificar e Listar Sequencia Numerica que falta AttachmentNumeracaoFalta_OLD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (27 Kb) Baixado 126 vez(es)


    Última edição por JPaulo em 5/12/2013, 13:03, editado 1 vez(es)


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Verificar e Listar Sequencia Numerica que falta Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Verificar e Listar Sequencia Numerica que falta Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Verificar e Listar Sequencia Numerica que falta Folder_announce_new Instruções SQL como utilizar...
    avatar
    Junior Meireles
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Junior Meireles em 2/4/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
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em 2/4/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Verificar e Listar Sequencia Numerica que falta Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Verificar e Listar Sequencia Numerica que falta Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Verificar e Listar Sequencia Numerica que falta Folder_announce_new Instruções SQL como utilizar...
    alcides
    alcides
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  alcides em 5/12/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
    avatar
    Junior Meireles
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Junior Meireles em 5/12/2013, 12:56

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

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em 5/12/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Verificar e Listar Sequencia Numerica que falta Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Verificar e Listar Sequencia Numerica que falta Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Verificar e Listar Sequencia Numerica que falta Folder_announce_new Instruções SQL como utilizar...
    alcides
    alcides
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  alcides em 5/12/2013, 13:26

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


    .................................................................................
    Core 2Quad
    Access 2003
    avatar
    Junior Meireles
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Junior Meireles em 5/12/2013, 14:06

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

    Respeito às Regras 100%

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

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

    Mensagem  alcides em 5/12/2013, 15:28

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


    .................................................................................
    Core 2Quad
    Access 2003
    avatar
    cesaralvesemail
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 12/01/2014

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

    Mensagem  cesaralvesemail em 16/10/2019, 03:59

    Não funcina comingo
    uma duas ou três vezes usando para de fucionar preciso muito de código pois verifico se alguma nf que importo par o banco de dados tá faltando

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/11/2019, 01:13