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.

    Compartilhe

    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.

    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.
    avatar
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Mostrar registros que foram deletados.

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

    Veja "Mostra numeração em falta numa Tabela" em [Você precisa estar registrado e conectado para ver este link.] do grande mestre JP.

    avatar
    tauron
    VIP
    VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Mostrar registros que foram deletados.

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

    Da uma olhada

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

    Ivan Carlo
    Novato
    Novato

    Respeito às Regras 100%

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

    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
    Exemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 2 vez(es)
    avatar
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    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
    Exemplo_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (54 Kb) Baixado 8 vez(es)

    Ivan Carlo
    Novato
    Novato

    Respeito às Regras 100%

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

    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: 16/11/2018, 10:35