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


4 participantes

    [Resolvido]Numeração automatica personalizada

    avatar
    priscila_maia82
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 7
    Registrado : 12/02/2012

    [Resolvido]Numeração automatica personalizada Empty Numeração automatica personalizada

    Mensagem  priscila_maia82 12/2/2012, 21:21

    Pessoal,

    Sou nova trabalhando com access e preciso muito de ajuda, já olhei outros tópicos sobre este assunto mas não consegui desenvolver o código.
    Preciso criar um código de abastecido (codabast) que busque o número do equipamento escolhido + uma numeração automatica que comece de 1.
    Ex:
    equipamento 1 - abastecimento 1
    codabast = 01-001
    equipamento 1 - abastecimento 2
    codabast = 01-002
    equipamento 2 - abastecimento 1
    codabast = 02-001

    Tem como vocês me ajudarem...
    Consegui colocar somente o numero do equipamento no codabast, mas o restante não consigo colocar.
    avatar
    Convidado
    Convidado


    [Resolvido]Numeração automatica personalizada Empty Re: [Resolvido]Numeração automatica personalizada

    Mensagem  Convidado 12/2/2012, 21:29

    Boa tarde Priscila e seja bem vindo ao um ou melhor forum de access....
    Sobre sua dificuldade acima há o menu busca. Digite "numeração personalizada" que encontrará muitos tópicos, exemplos que tratam justamento disso.
    Qualquer dificuldade retorne.....bom estudo....
    avatar
    priscila_maia82
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 7
    Registrado : 12/02/2012

    [Resolvido]Numeração automatica personalizada Empty Re: [Resolvido]Numeração automatica personalizada

    Mensagem  priscila_maia82 12/2/2012, 21:49

    Eu pesquisei os tópicos e como disse consegui somente trazer o código da empresa, mas um código automatico que fique concatenado a ele eu não consegui, por isso abri um novo tópico.

    [cod]me.CodAbastecimentoMelosa = me.equipamento[/cod]
    [cod]&"-"& Right(DMax("CodAbastecimentoMelosa","ABASTECIMENTOMELOSA"),4)+1[/cod]

    Peguei este código no fórum
    mas ele só me retorna o numero do equipamento e o traço (14-)
    E como eu disse preciso que traga 001,002...
    Você teria como me ajudar?
    avatar
    Convidado
    Convidado


    [Resolvido]Numeração automatica personalizada Empty Re: [Resolvido]Numeração automatica personalizada

    Mensagem  Convidado 12/2/2012, 23:53

    Veja este exemplo.

    http://speedy.sh/7BV76/Numeracao-Automatica.rar
    avatar
    priscila_maia82
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 7
    Registrado : 12/02/2012

    [Resolvido]Numeração automatica personalizada Empty Re: [Resolvido]Numeração automatica personalizada

    Mensagem  priscila_maia82 13/2/2012, 11:16

    Bom dia!!

    Eu vi o exemplo que você me enviou, mas não sei como coloca-lo no mesmo campo, vou te dar um exemplo.

    Eu tenho uma tabela ABASTECIMENTOMELOSA, nesta tabela é feito um controle do abastecimento dos equipamento, então, o que eu queria era que quando um usuário escolhesse um equipamento o campo CodAbastecimentoMelosa receba o código do equipamento + numeração automatica referente ao abastecimento que está sendo feito.
    Ex:
    foi escolhido pelo usuário o equipamento numero 14 e é o primeiro registro de abastecimento deste equipamento no sitema, então, o código gerado automaticamente no campo CodAbastecimentoMelosa seria - 14-001, quando houvesse um segundo registro de abastecimento deste mesmo equipamento no sistema o código seria - 14-002 e assim sucessivamente.
    Eu consigo colocar o código do equipamento, mas não consigo colocar esta numeração automatica concatenada a ele no mesmo campo.

    será que você poderia me ajudar?

    Desde já agradeço a sua ajuda!!!
    linx1010
    linx1010
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 03/10/2011

    [Resolvido]Numeração automatica personalizada Empty Re: [Resolvido]Numeração automatica personalizada

    Mensagem  linx1010 13/2/2012, 11:53

    Bem vinda Priscila_Maia82
    Bem, eu pensei em uma solução não muito pratica muito menos aconselhavel para fazer do modo que voce quer mas vamos lá:

    Na sua tabela você vai precisar de 3 campos de chave composta, um codAbastecimento (Autonumeração) codEquipamento(inteiro ou texto) e o que lhe interessa codAbastEquip(texto)

    Ao criar um novo codigo de abastecimento realize um SELECT nesta tabela pegando somente o codEquipamento conte quantas linhas existem, (usando o EOF ou BOF) em seguida crie uma concatenação do codEquipamento com o resultado das linhas e grava no codAbastEquip (Para concatenar você deve ter visto nos exemplos acima citado, caso tenha alguma duvida dos EOF e BOF escreve aqui)

    A criação de tantos campos e gravar no banco deixa um tanto quanto pesada a sua base e não é necessario gravar no banco, voce pode fazer diretamente nos controles evitando assim a consulta e acesso sem necessidade ao banco.

    Espero ter Ajudado.


    .................................................................................
    Leio playboy pelo mesmo motivo que assisto national geographic, para poder ver lugares que sei que nunca irei visitar.
    avatar
    priscila_maia82
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 7
    Registrado : 12/02/2012

    [Resolvido]Numeração automatica personalizada Empty Re: [Resolvido]Numeração automatica personalizada

    Mensagem  priscila_maia82 13/2/2012, 12:06

    Linx,
    Obrigada por sua resposta, mas não existe uma forma de criar automaticamente o código quando escolher o equipamento, colocar no após atualizar do equipamento, ele crie o CodAbastecimentoMelosa com o código do equipamento + numeração automática?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Numeração automatica personalizada Empty Re: [Resolvido]Numeração automatica personalizada

    Mensagem  JPaulo 13/2/2012, 12:23

    Teste por favor;


    Dim numeroencontrado As String, proximoNumero As Integer
    'By JPaulo ® Maximo Access
    'encontrar o ultimo numero na tabela
    numeroencontrado = Nz(DMax("CodAbastecimentoMelosa", "ABASTECIMENTOMELOSA"), 0)

    If IsNull(numeroencontrado) Or numeroencontrado = "" Then
    'se não existir numeração, insere o equipamento + 001 para iniciar
    numeroencontrado = Me.Equipamento.Value & "-" & "001"
    'devolve ao campo a nova numeração
    Me.CodAbastecimentoMelosa.Value = numeroencontrado
    Else
    'se já existir numeração na tabela, acrescenta +1
    proximoNumero = Right(DMax("CodAbastecimentoMelosa", "ABASTECIMENTOMELOSA"), 3) + 1
    'devolve ao campo a nova numeração
    Me.CodAbastecimentoMelosa.Value = Me.Equipamento.Value & "-" & Format(proximoNumero, "000")
    End If


    Última edição por JPaulo em 13/2/2012, 12:46, editado 1 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Numeração automatica personalizada Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Numeração automatica personalizada Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Numeração automatica personalizada Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Numeração automatica personalizada Empty Re: [Resolvido]Numeração automatica personalizada

    Mensagem  JPaulo 13/2/2012, 12:32

    Se pretender iniciar do 1, sempre que mude de Equipamento, será assim, sendo que no meu exemplo o campo Equipamento está como se fosse numerico e o campo CodAbastecimentoMelosa Texto:



    Dim numeroencontrado As String, proximoNumero As Integer
    'By JPaulo ® Maximo Access
    'encontrar o ultimo numero na tabela
    numeroencontrado = Nz(DMax("CodAbastecimentoMelosa", "ABASTECIMENTOMELOSA", "[Equipamento] = " & Me.Equipamento.Value), 0)
    If IsNull(numeroencontrado) Or numeroencontrado = "" Or numeroencontrado = "0" Then
    'se não existir numeração, insere o equipamento + 001 para iniciar
    numeroencontrado = Me.Equipamento.Value & "-" & "001"
    'devolve ao campo a nova numeração
    Me.CodAbastecimentoMelosa.Value = numeroencontrado
    Else
    'se já existir numeração na tabela, acrescenta +1
    proximoNumero = Right(DMax("CodAbastecimentoMelosa", "ABASTECIMENTOMELOSA", "[Equipamento] = " & Me.Equipamento.Value), 3) + 1
    'devolve ao campo a nova numeração
    Me.CodAbastecimentoMelosa.Value = Me.Equipamento.Value & "-" & Format(proximoNumero, "000")
    End If


    Exemplo:
    http://dl.dropbox.com/u/771097/Priscila.rar


    Última edição por JPaulo em 13/2/2012, 12:44, editado 1 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Numeração automatica personalizada Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Numeração automatica personalizada Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Numeração automatica personalizada Folder_announce_new Instruções SQL como utilizar...
    linx1010
    linx1010
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 03/10/2011

    [Resolvido]Numeração automatica personalizada Empty Re: [Resolvido]Numeração automatica personalizada

    Mensagem  linx1010 13/2/2012, 12:42

    A resposta do JPaulo é bem melhor que a minha, mas se voce quer que os campos criem esse código de abastecimento fica mais dificil, tem que programar um pouco mesmo.
    Há como fazer na guia "dados" da propriedades no campo "Origem do Controle" mas acaba sendo necessario saber programar um pouco tambem.


    .................................................................................
    Leio playboy pelo mesmo motivo que assisto national geographic, para poder ver lugares que sei que nunca irei visitar.
    avatar
    priscila_maia82
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 7
    Registrado : 12/02/2012

    [Resolvido]Numeração automatica personalizada Empty Re: [Resolvido]Numeração automatica personalizada

    Mensagem  priscila_maia82 13/2/2012, 12:43

    JPaulo,
    Muito obrigada por sua ajuda, testei e apresentou a seguinte mensagem:
    Erro em tempo de execução '94':
    uso de 'null' inválido

    O que pode ser?
    avatar
    priscila_maia82
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 7
    Registrado : 12/02/2012

    [Resolvido]Numeração automatica personalizada Empty Re: [Resolvido]Numeração automatica personalizada

    Mensagem  priscila_maia82 13/2/2012, 12:44

    Linx, meu maior problema é esse, que não sei muito sobre programação, estou inciando agora... por isso a ajuda de vocês está sendo de muita importância pra mim.

    Obrigada!!!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Numeração automatica personalizada Empty Re: [Resolvido]Numeração automatica personalizada

    Mensagem  JPaulo 13/2/2012, 12:45

    Copie novamente o ultimo codigo que já corrigi, e tem lá o exemplo para ajuda.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Numeração automatica personalizada Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Numeração automatica personalizada Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Numeração automatica personalizada Folder_announce_new Instruções SQL como utilizar...
    avatar
    priscila_maia82
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 7
    Registrado : 12/02/2012

    [Resolvido]Numeração automatica personalizada Empty Re: [Resolvido]Numeração automatica personalizada

    Mensagem  priscila_maia82 13/2/2012, 12:49

    JPaulo,

    Muito obrigada!!!!!!!!!!!!!!!!!!
    Você é D++++++

    Me ajudou muito.

    Espero um dia adquirir um pouco do seu conhecimento.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Numeração automatica personalizada Empty Re: [Resolvido]Numeração automatica personalizada

    Mensagem  JPaulo 13/2/2012, 12:53

    Obrigada pelo retorno o forum agradece.

    Bons estudos.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Numeração automatica personalizada Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Numeração automatica personalizada Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Numeração automatica personalizada Folder_announce_new Instruções SQL como utilizar...
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    [Resolvido]Numeração automatica personalizada Empty Re: [Resolvido]Numeração automatica personalizada

    Mensagem  Cláudio Machado 14/11/2012, 11:58

    Bom dia.


    Andei procurando alguns códigos para autonumeração personalizada e encontrei este.
    Tá funcionando perfeitamente.
    Criei um form (Gerar Pedidos) e após colocada as informações tenho um botão para criar o registro de acordo com o ódigo do Jàulo que abre outro form (Pedidos) com todas as informações filtradas.

    Queria saber se têm como eu abrir este form de Pedidos já no registro criado personalizado.

    O campo deste registro é texto de acordo com seu código.

    Se puder me ajudar lhe agradeço muito.

    Abraços.



    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Numeração automatica personalizada 90dssg para agradecer a dica que solucionou seu problema.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Numeração automatica personalizada Empty Re: [Resolvido]Numeração automatica personalizada

    Mensagem  JPaulo 14/11/2012, 12:36

    Bom dia Cláudio;

    Seguindo o raciocinio deste tópico, é só adicionar o DoCmd.RunCommand acCmdSaveRecord após as instruções IF

    Depois é só mandar abrir o segundo formulário já nesse registro:


    Private Sub Command7_Click()
    DoCmd.OpenForm "SeuSegundoFormulario", acNormal
    DoCmd.ApplyFilter "Forms!SeuSegundoFormulario" = Me.CodAbastecimentoMelosa.Value
    End Sub




    Private Sub Equipamento_AfterUpdate()
    Dim numeroencontrado As String, proximoNumero As Integer
    'By JPaulo ® Maximo Access
    'encontrar o ultimo numero na tabela
    numeroencontrado = Nz(DMax("CodAbastecimentoMelosa", "ABASTECIMENTOMELOSA", "[Equipamento] = " & Me.Equipamento.Value), 0)
    If IsNull(numeroencontrado) Or numeroencontrado = "" Or numeroencontrado = "0" Then
    'se não existir numeração, insere o equipamento + 001 para iniciar
    numeroencontrado = Me.Equipamento.Value & "-" & "001"
    'devolve ao campo a nova numeração
    Me.CodAbastecimentoMelosa.Value = numeroencontrado
    DoCmd.RunCommand acCmdSaveRecord
    Else
    'se já existir numeração na tabela, acrescenta +1
    proximoNumero = Right(DMax("CodAbastecimentoMelosa", "ABASTECIMENTOMELOSA", "[Equipamento] = " & Me.Equipamento.Value), 3) + 1
    'devolve ao campo a nova numeração
    Me.CodAbastecimentoMelosa.Value = Me.Equipamento.Value & "-" & Format(proximoNumero, "000")
    DoCmd.RunCommand acCmdSaveRecord
    End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Numeração automatica personalizada Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Numeração automatica personalizada Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Numeração automatica personalizada Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Numeração automatica personalizada Empty Re: [Resolvido]Numeração automatica personalizada

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 19:25