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

    [Resolvido]Número sequencial...mas iniciando com o número 2 e não com o número 1

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Número sequencial...mas iniciando com o número 2 e não com o número 1 Empty [Resolvido]Número sequencial...mas iniciando com o número 2 e não com o número 1

    Mensagem  Silvio 29/8/2014, 16:21

    Prezados, necessito de uma ajuda simples.

    Tenho o código no evento ao clicar de um botão

    Me.NVIAS = Nz(DMax("nvias", "tblcadastro"), 0) + 1

    Se deixar assim, ele inicia somando mais um, mas eu preciso que seja iniciado como o número dois e fazendo a soma a partir do 2.

    Conto com a ajuda dos colegas.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Número sequencial...mas iniciando com o número 2 e não com o número 1 Empty Re: [Resolvido]Número sequencial...mas iniciando com o número 2 e não com o número 1

    Mensagem  Alexandre Neves 29/8/2014, 16:31

    Boa tarde,
    Tem de ter código que avalie se já existe algum registo. Se sim, acrescenta 1; se não, coloca 2


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Número sequencial...mas iniciando com o número 2 e não com o número 1 Empty Re: [Resolvido]Número sequencial...mas iniciando com o número 2 e não com o número 1

    Mensagem  Silvio 29/8/2014, 18:16

    Seria muito lhe pedir, um exemplo desse código ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Número sequencial...mas iniciando com o número 2 e não com o número 1 Empty Re: [Resolvido]Número sequencial...mas iniciando com o número 2 e não com o número 1

    Mensagem  Alexandre Neves 29/8/2014, 18:33

    Oh! Sílvio
    if DCount("nvias", "tblcadastro")=0 then Me.NVIAS = 2 else Me.NVIAS = Nz(DMax("nvias", "tblcadastro"), 0) + 1


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Número sequencial...mas iniciando com o número 2 e não com o número 1 Empty Re: [Resolvido]Número sequencial...mas iniciando com o número 2 e não com o número 1

    Mensagem  Silvio 29/8/2014, 19:01

    Deu branco mesmo aqui, Alexandre...veja e aperceba a bagunça que eu estava fazendo...

    If Me.NVIAS = DLookup("[nvias]", "tblcadastro", "cpf= forms!frmcadastro!CPF") = 0 Then
    Me.NVIAS.Value = "2"
    End If
    If Me.NVIAS = DLookup("[nvias]", "tblcadastro", "cpf= forms!frmcadastro!CPF") <> 0 Then
    Me.NVIAS = DMax("[nvias]", "tblcadastro", "cpf= forms!frmcadastro!CPF") + 1
    End If


    Vou testar o código...já lhe retorno.

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Número sequencial...mas iniciando com o número 2 e não com o número 1 Empty Re: [Resolvido]Número sequencial...mas iniciando com o número 2 e não com o número 1

    Mensagem  Silvio 29/8/2014, 19:28

    Dei apenas uma aprimorada nele...ficando dessa forma...

    Código:
    If DCount("nvias", "tblcadastro", "cpf= forms!frmcadastro!CPF") = 0 Then
    Me.NVIAS = 2
    Else
    Me.NVIAS = Nz(DMax("nvias", "tblcadastro", "cpf= forms!frmcadastro!CPF"), 0) + 1
    End If

    Valeu Alexandre !

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado


    [Resolvido]Número sequencial...mas iniciando com o número 2 e não com o número 1 Empty Re: [Resolvido]Número sequencial...mas iniciando com o número 2 e não com o número 1

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/4/2024, 11:45