[Resolvido]Numeração Automatica muda de ano

Em relação a este Exemplo:
http://maximoaccess.forumeiros.com/t72-numeracao-muda-conforme-ano

Caso eu queria aplicar esse exemplo em varias tabelas de um BD terei que criar um modulo para cada tabela e formulario?

Ou um modulo e altero somente o form_open de cada form?

Somente um modulo, por isso é que é uma Public Function.

Tem de alterar no open de cada form e no vaor por defeito de cada campo da numeração com o =NumeracaoAno()

Tal como está no exemplo.

Grande Mestre JPaulo, me desculpe encher o saco de novo, mas eu crei conforme exemplo o cod, o modulo, tudo igual, porém quando utilizo o mesmo para um form de outra tabela do mesmo BD coloco inclusive no valor =numeracaoano() ele puxa o ultimo codigo da form onde utilizei o cod primeiro e não muda.

Exemplo, fiz isso na tabela e form chamada CENIPA 15 de certo ele gera a numeracao normalmente

Fui fazer para a tabela e form FO colocando o cod na form_open e =numeracaoano() do campo mas nesta form ele puxa o ultimo numero que esta cadastrado na CENIPA 15!

Será que me fiz entender?

Grato novamente pelo apoio

Seria um condigo de entrada para cada tabela

?

Aguarde com paciência. O Grande Mestre JPaulo não tem as 24 horas do dia disponível só para o fórum, como nenhum de nós também. Ele irá retornar assim que possível.

Perdão! Não quiz pertubar, coloquei a interrogação sem querer, eu ia perguntar algo e desistir não percebi que publicou!

Mil desculpas

Tranquilo amigo, entendemos. Todos nós trabalhamos e tentamos dar assistência ao fórum, sei também que aqui normalmente ninguém espera muito tempo por uma resposta, mesmo do nosso Mestre, no entanto por motivos profissionais pode demorar. O nosso Mestre, por exemplo, possui um cargo de grande destaque e responsabilidade na maior multinacional portuguesa. Logo não está disponível para atender sempre que queremos. Um ponto de interrogação desses é de certa forma ofensivo, mas entendemos que não foi com má intenção e fica o aviso para todos.

Perdão realmente não foi minha intenção, como disse ia publicar outra duvida, desisti e apaguei e não percebi que ficou o ? e acabou publicando.

Mas compreendo a vossa interpretação e peço desculpas pelo mal intendido!

Kleyton peço desculpa pela demora amigo.

Para o que você quer, este exemplo não serve para varios formularios, teria de ser bastante alterado.

Tem aqui um que faz o que você quer, veja se serve:

http://dl.dropbox.com/u/771097/Contador%20Zerado%20se%20Muda%20Ano.rar

Grande Mestre JPaulo, eu é que lhe peço desculpas pelo mal entendido, novamente muito obrigado pelo apoio prestado!

Kleyton

Valew pelo retorno amigo, precisando de novo dê um grito.

Mestre não funfou aperece o seguinte erro no modulo quando transpus para o meu BD

Erro de compilação: o tipo definido pelo o usuario não foi definido

Isto na seguinte linha

Dim strNum As String, DB As Database

O que será que fiz errado?

Abra um modulo, vá a Ferramentas, Referências e veja se a Referencia Microsoft Access 11.0 Object Library (ou a 12.0) está setada.

Desculpe ficar pertubando, mas positivo está setada!

Preferes que coloque o BD para o senhor da uma olhada?

Novamente obrigado pelo apoio!

Kleyton

Não tem necessidade de postar o exemplo, é simples.

Tem de setar no VBA a Referencia Microsoft DAO 3.6 Object Library

Muito obrigado novamento Mestre JPaulo deu tudo certo!!!

Valeu pelo apoio em excelencia

Kleyton

Precisando de novo estamos ae.

Boa tarde Grande JPaulo

Implementei o metodo sugerido por ti para a numeração de meu BD, conforme acima, com atualização automatica ao alterar o ano, o que funcionou perfeitamente.

Porém agora me deparei com a seguinte circunstancia do qual necessito de vossa ajuda, o BD numera o automaticamento as novas inserções, porém apo´s inserir e fechar o BD, ele esta a reorganizar a sequencia dos dados inseridos e colando por casa decimal ou seja esta ficando assim a sequencia dos registros:

0001/2011
0010/2011
0011/2011
0002/2011
0003/2011
0004/2011
0005/2011
0006/2011
0007/2011
0008/2011
0009/2011

O que posso fazer para sulucionar isto?

Grato

Para alem desse campo que é Texto, você deveria ter um campo de autonumeração e a sequencia seria por esse.

OK, novamente solucionado pelo mestre JPaulo,

Muito obrigado!

Kleyton

O que eu devo alterar se eu quiser que a numeração fique no padrão ano com dois digitos + número com quatro digitos, tipo: 110001, 110002, 110004... e em 2012 recomeça a contagem para 120001, 120002, 120003...

Ola seja bem vindo ao fórum;

O código teve se sofrer alterações para o seu intento;

http://dl.dropbox.com/u/771097/Numeracao.rar

No final este tópico vai ser difundido para a sala de duvidas.

Muito obrigado, JPaulo! Vou analisar os dois códigos e aos poucos estou aprendendo. Abraço.

Valew pelo retorno o fórum agradece.

Eu coloquei em "Valor Padrão" no campo "codigo" do formulario "=NumeracaoAno()" so que o banco de dados é compartilhado em rede e quando duas pessoas usam ao mesmo tempo ele insere o mesmo codigo e dar erro na segunda que salva. Tentei copiar e colar o codigo em "antes de atualizar" mas não funcionou... O que faço?

O que eu faço pra que o formulário apenas insira o codigo quando eu salvar? Eu usava outro codigo antes e usava o campo "antes de atualizar" mas com esse não ta dando certo...

Vou retirar o resolvido para chamar atenção do Mestre. Aguarde que assim que for possível ele vai elucida-lo.

Jefferson amigão desculpe a demora, mas como vi Resolvido nem aqui vim;

Delete a chamada da função no Valor por defeito da TextBox numeração;

Agora faça o simples;

Private Sub SeuBotaoSalvar_Click()
'atribuíu a nova numeração
Me.SeuCampoNumeração.Value = NumeracaoAno()
'salva o registro
DoCmd.RunCommand acCmdSaveRecord
'avança para novo registro
DoCmd.GoToRecord , , acNewRec
End Sub

Deu certo só que ocorre um problema, quando eu modifico qualquer dado de um registro anterior e clico em salvar, ele muda o número para um novo. Tem que adicionar um código para salvar, mas só adicionar o número se estiver em branco.

"If IsNull"?

Ok;

Veja o simples;

http://dl.dropbox.com/u/771097/Numeracao_OLD.rar

Admiro muito sua atenção, João Paulo. Obrigado novamente, deu tudo certo.

Ficou assim:

Private Sub Salvar_Click()
If Not IsNull(Me.Codigo.Value) Then
Else
'atribuíu a nova numeração
Me.Codigo.Value = NumeracaoAno()
End If
'salva o registro
DoCmd.RunCommand acCmdSaveRecord
'avança para novo registro
DoCmd.GoToRecord , , acNewRec
End Sub

Valew pelo retorno amigo, precisando de novo dê um grito.