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

    Autonumeração

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    Autonumeração Empty Autonumeração

    Mensagem  Luís Antunes Seg Mar 29, 2021 2:37 pm

    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 50%

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

    Autonumeração Empty Re: Autonumeração

    Mensagem  crysostomo Seg Mar 29, 2021 11:27 pm

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

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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: Qua Jun 16, 2021 4:55 pm