MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    Autonumeração

    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    Autonumeração Empty Autonumeração

    Mensagem  Luís Antunes 29/3/2021, 19:37

    Como ponho este código a aproveitar numeração ausente?
    Funcionará num campo Chave?

    Código:
    Public Function autonumera()

    'Autoria de sampaioin

       Dim db As Database
       Dim rs As Recordset
       Dim sql As String
       Dim idAnterior As Long
       Dim idAtual As Long
       Dim idNovo As Long
      
       sql = "Select * from teste order by idTeste"
       Set db = CurrentDb()

       Set rs = db.OpenRecordset(sql)     'abre o recordset
       If rs.EOF = True And rs.BOF = True Then
           idNovo = 1
          

       ElseIf rs(0) > 1 Then
           idNovo = 1
           'Debug.Print idNovo
          
          

       ElseIf rs(0) = 1 Then
           idAnterior = 0

          Do While idNovo = 0
               idAtual = rs(0)
               If idAnterior = idAtual - 2 Then
                  
                   idNovo = idAtual - 1
                  
               Else
                   idAnterior = idAnterior + 1


                   rs.MoveNext
          
               End If
           Loop

    Luís Antunes
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2377
    Registrado : 23/01/2018

    Autonumeração Empty Re: Autonumeração

    Mensagem  crysostomo 30/3/2021, 04:27

    O campo chave tem que está em número.
    Tira ele da autonumeração.
    Ex

    https://www.maximoaccess.com/t38635p11-gestor-desenhos#263573


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 27/1/2023, 05:27