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]Mostrar registros que foram deletados.

    avatar
    Ivan Carlo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 13/06/2015

    [Resolvido]Mostrar registros que foram deletados. Empty [Resolvido]Mostrar registros que foram deletados.

    Mensagem  Ivan Carlo em 16/10/2018, 21:23

    Boa tarde senhores.
    Tenho uma tabela com numeração automática.
    O que preciso é, algum jeito de conferir essa tabela e retornar os numeros sequenciais que foram deletados.
    Ex:
    Numero do registro: 1023, 1024, 1025, 1027, 1028, 1030.
    Nesse caso foram deletados os numeros: 1026 e 1029.
    São esses dois que eu preciso saber que foram deletados.
    Existe algum jeito?
    Obrigado a todos.
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 496
    Registrado : 22/11/2016

    [Resolvido]Mostrar registros que foram deletados. Empty Re: [Resolvido]Mostrar registros que foram deletados.

    Mensagem  IvanJr. em 17/10/2018, 02:11

    Veja "Mostra numeração em falta numa Tabela" em 102 códigos VBA para Access do grande mestre JP.

    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 07/12/2011

    [Resolvido]Mostrar registros que foram deletados. Empty Re: [Resolvido]Mostrar registros que foram deletados.

    Mensagem  tauron em 18/10/2018, 15:54

    avatar
    Ivan Carlo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 13/06/2015

    [Resolvido]Mostrar registros que foram deletados. Empty Ainda sem solução

    Mensagem  Ivan Carlo em 21/10/2018, 13:18

    Bom dia Senhores.
    Tentei adaptar o código sugerido pelos amigos no meu projeto mas não obtive resultado esperado.
    Estou enviado um exemplo da tabela do meu banco onde consta os dados que eu preciso que seja informado para ver se alguém pode me ajudar.
    neste exemplo note que o que falta são os registros de nºs: 100031865, 100031866, 100031868, 100031885 e 100031888.
    São esses dados que preciso listar, ou seja: esses numeros faltantes.
    Agradeço antecipadamente a ajuda.
    Anexos
    [Resolvido]Mostrar registros que foram deletados. AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 2 vez(es)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 496
    Registrado : 22/11/2016

    [Resolvido]Mostrar registros que foram deletados. Empty Re: [Resolvido]Mostrar registros que foram deletados.

    Mensagem  IvanJr. em 21/10/2018, 16:31

    Estude o que foi feito. Sucesso.

    A chamada
    Código:
    NumeracaoEmFalta("[CódigoDoDetalheDoPedido]", "[Detalhes do Pedido]", False)

    O Código

    Código:
    Public Function NumeracaoEmFalta(strCampo As String, strTabela As String, Optional booDoPrimeiro As Boolean = True) As String

        'By JPaulo ? Maximo Access
        Dim rst As DAO.Recordset
        Dim intNumeracao As Long
        Dim strRetornaResultado As String
       
        If booDoPrimeiro Then
            intNumeracao = 1
        Else
            intNumeracao = DMin(strCampo, strTabela)
        End If
       
        Set rst = CurrentDb.OpenRecordset("SELECT " & strCampo & " FROM " & strTabela & " ORDER BY " & strCampo & ";", 8, 4)
       
        While Not rst.EOF
       
            If rst.Fields(strCampo) = intNumeracao Then
                rst.MoveNext
            Else
                strRetornaResultado = strRetornaResultado & ", " & intNumeracao
          End If
         
          intNumeracao = intNumeracao + 1
       
        Wend
       
        rst.Close: Set rst = Nothing
       
        NumeracaoEmFalta = Mid(strRetornaResultado, 3)

    End Function
    Anexos
    [Resolvido]Mostrar registros que foram deletados. AttachmentExemplo_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (54 Kb) Baixado 11 vez(es)
    avatar
    Ivan Carlo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 13/06/2015

    [Resolvido]Mostrar registros que foram deletados. Empty Perfeito!!!!!

    Mensagem  Ivan Carlo em 21/10/2018, 20:17

    Muito obrigado ao amigo e xará IvanJr.
    Conforme sugerido e sendo de praxe, vou estudar e procurar entender a forma que foi feita, pois assim sendo poderei aplicar a função em outras tabelas minhas.
    Excelente até mais que o esperado.
    Sucesso em tudo o que faças.
    Very Happy Very Happy Very Happy

      Data/hora atual: 19/4/2019, 04:08