[Resolvido]Numeração automatica personalizada

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.

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....

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?

Veja este exemplo.

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

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!!!

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.

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?

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

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

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.

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?

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!!!

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

JPaulo,

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

Me ajudou muito.

Espero um dia adquirir um pouco do seu conhecimento.

Obrigada pelo retorno o forum agradece.

Bons estudos.

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.

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