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]numeração automatica via vb

    PauloEzequiel
    avatar
    PauloEzequiel
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 25/01/2012
    • Mensagem nº1

    [Resolvido]numeração automatica via vb Empty numeração automatica via vb

    Mensagem  PauloEzequiel 26/1/2012, 08:50

    bao tarde a todos

    preciso de ajuda para resolver o seguinte problema!

    tenho uma tabela relacionada que entre outros campos tem o "idex" que é chave primária e tipo de dados "número", preciso fazer número automático mas via codigo vb, já tentei varios explos que peguei em foruns mas não consigo resolver.

    agradeço se alguem puder me ajudar
    • Ir para o topo
    criquio
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009
    • Mensagem nº2

    [Resolvido]numeração automatica via vb Empty Re: [Resolvido]numeração automatica via vb

    Mensagem  criquio 26/1/2012, 09:14

    Olá, seja bem vindo ao forum.

    Já tentou usando o DMax para pegar o maior número e acrescentar 1?

    If DCount("*", "NomeDaTabela") < 1 Then
        Me.NomeDoCampo = 1
    Else
        Me.NomeDoCampo = DMax("Código", "NomeDaTabela") + 1
    End If


    .................................................................................
    Meu novo site: www.vcssistemas.com.br
    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº3

    [Resolvido]numeração automatica via vb Empty Re: [Resolvido]numeração automatica via vb

    Mensagem  Convidad 26/1/2012, 09:19


    Olá

    Uma forma é alterar na tabela o tipo de campo para Numeração Automática. Aí o próprio Access atribui o número.

    Outra é gerar o número através de uma função. Pode usar DMax.
    No formulário pode colocar colocar código para gerar o valor do campo:

    Nz(DMax("[NomeCampo]", "[NomeTabela]"), 0) + 1

    A função DMax verifica o maior valor do campo existente na tabela, e acrescenta 1.
    A função Nz atribui o valor zero se não houver valor no campo em nenhum registro, caso de uma tabela zerada.
    • Ir para o topo
    PauloEzequiel
    avatar
    PauloEzequiel
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 25/01/2012
    • Mensagem nº4

    [Resolvido]numeração automatica via vb Empty numeração automatica via vb resposta

    Mensagem  PauloEzequiel 27/1/2012, 10:18

    Obrigado pela ajuda, o código postadado pelo criquio funcionou direitinho

    • Ir para o topo
    criquio
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009
    • Mensagem nº5

    [Resolvido]numeração automatica via vb Empty Re: [Resolvido]numeração automatica via vb

    Mensagem  criquio 27/1/2012, 11:02

    Grato pelo retorno. O forum agradece. Só para constar, o nz postado pelo Norberto faz a mesma coisa que a condição If do meu exemplo.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br
    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº6

    [Resolvido]numeração automatica via vb Empty Re: [Resolvido]numeração automatica via vb

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 19/4/2024, 06:18