MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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 41 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 : 7780
    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 : 10605
    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 143 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 : 10605
    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 : 10605
    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

      Data/hora atual: 27/11/2020, 08:31