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


    [Resolvido]numeração sequencial

    avatar
    dori
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 22/04/2016

    [Resolvido]numeração sequencial Empty [Resolvido]numeração sequencial

    Mensagem  dori 13/12/2019, 19:18

    Boa tarde professores!

    Minha dúvida parece ser relativamente simples:
    No meu formulário de cadastro de contribuintes de um time de futebol tem um campo MatriculaNum (Número da matrícula) do tipo número.(não é numeração automática).
    tem também um botão de comando "Nova matrícula" acontece que quando eu clico nesse botão eu eu gostaria que ele limpasse os campos do formulário e do subFormulário dando origem a uma nova mátricula. eu usei a função: Me.txtMatricula = Nz(DMax("MatriculaNum", "TabCadContribuintes"), 0) + 1 no evento "ao clicar " mas quando clico não acontece nada.Testei vários códigos aqui do fórum mas não deu certo. Podem me dizer onde estou errando?

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]numeração sequencial Empty Re: [Resolvido]numeração sequencial

    Mensagem  crysostomo 13/12/2019, 19:24

    no atual

    Código:
    If DCount("*", "suaTabela") = 1 Then
            Me.txtNumero = 1
        Else
            Me.txtNumero = DMax("nomeDoCampo", "Sua Tabela") + 1
            End If


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    dori
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 22/04/2016

    [Resolvido]numeração sequencial Empty Re: [Resolvido]numeração sequencial

    Mensagem  dori 15/12/2019, 14:52

    Muito obrigado, amigo! Very Happy Very Happy

    Conteúdo patrocinado

    [Resolvido]numeração sequencial Empty Re: [Resolvido]numeração sequencial

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/5/2021, 10:11