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

    Condição pra numeração automática.

    avatar
    Lucas Ernesto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 27/07/2022

    Condição pra numeração automática. Empty Condição pra numeração automática.

    Mensagem  Lucas Ernesto 3/8/2022, 21:41

    Boa tarde, então eu fiz código pra gerar uma numeração pra minha chave.

    If DCount("*", "tabela") < 1 Then
    Me.chave = 1
    Else
    Me.chave = DMax("chave", "tabela") + 1
    End If

    Mas eu queria que esse código só rodasse caso a chave fosse igual a NULL, pra esse código não ficar subscrevendo chaves que já tem numeração.
    Esse if vai ter que ficar dentro de outro if?

    Agradeço que puder ajudar, ainda sou leigo nisso.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Condição pra numeração automática. Empty Re: Condição pra numeração automática.

    Mensagem  DamascenoJr. 5/8/2022, 03:39

    Código:
    if nz(me.chave.value)="" then
      If DCount("*", "tabela") < 1 Then
          Me.chave = 1
      Else
          Me.chave = DMax("chave", "tabela") + 1
      End If
    end if


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 8/12/2024, 03:53