[Resolvido]Numeração automática de vários documentos.

Olá a todos, venho pedir a vossa ajuda numa BD que pretendo utilizar para numerar documentos no meu local de trabalho.

Estou a utilizar um código que conta os registos existentes numa consulta e adiciona um ao total (função DMax). A questão é que tenho vários tipos de documentos e a solução que arranjei foi colocar no evento AfterUpdate da ComboBox que contém os tipos de documentos. em função do tipo de documento que escolher é chamada uma função que conta os registos de uma determinada consulta. Neste momento estou a usar 3 funções e 3 consultas filtradas pois tenho 3 tipos de documentos. No entanto queria obter uma função que contasse os vários tipos de documentos utilizando uma String ou qualquer coisa parecida. Já tentei fazer outras coisas como criar um critério na função Dmax e mesmo na função Dcount.

Fica aqui o exemplo e espero que me possam ajudar

Obrigado

Olá Artur

Como Oficio é um tipo de documento, então  o nome do formulário deve ser frm_Documentos pois serve para
todos os tipos, certo?

Eu criei 1 tabela e um formulário que tem meu nick para não te confundir.

No Access em geral, e então na combobox (caixa de combinação), deveremos sempre trabalhar com números ao invés de textos.
Assim, evitamos erros de digitação, o que nos dá muita dor de cabeça e perda de tempo na hora de procurar o erro.
Então, veja que na origem da linha, coloquei mais uma coluna, onde:
1 = Oficio, 2 = Guia de remessa e 3 = Notas
O access irá procurar pelo tipo (número) e não pelo texto.

O Código está na mensagem de nº 7

Boas....

Agradeço ao Noobezinho, estava fazendo aqui, com outra finalidade... e de repente já está feito....Valeu Grande Noob. Abraços.

Grande Silvio

Isso tá parecendo o ditado: Atirei no que vi e matei o que ...

Abração

Pois é.....tive que mudar algumas coisas por certo, mas a estrutura, a ideia... serviu-me como uma luva.
Abraços Noob.

Boas Noobezinho,

A finalidade é toda essa, obrigado.

Em relação ao nome do formulário é para ser mesmo FormDocumentos. A questão de ter um FormOficios e respetiva consulta é porque não tinha o código que agora me facultou (nem capacidade para o construir ).

Agora a razão pela qual preferia ter uma lista de valores a alimentar a ComboBox. A qualquer momento eu iria poder acrescentar outro tipo de documento a lista e a função iria contar esse documento. Da forma como fez é sem dúvida a melhor, mas obriga a que cada documento que seja necessário acrescentar tenha de se proceder à atualização da origem da linha e do próprio código.

Por mim, julgo que não haverá problema, não tenho formação em Access, nem consigo construir nada de muito complicado e como não tenho conhecimentos, também não consigo arranjar forma de contornar problemas sem a ajuda de muita pesquisa e dos prestáveis "Génios" do forum. No entanto consigo compreender muitos dos códigos com que me deparo e e adaptar às minhas necessidades, ou mesmo construir novos com partes de outros códigos. O problema é que "amanhã" pode um colega do serviço estar a operar a BD e ter essa necessidade. É que nós temos rotação na nossa empresa e posso estar colocado longe e não poder atualizar a função.

No entanto, se acha que não é conveniente, ou arriscado ficamos assim.

Obrigado mais uma vez. Depois vou postar aqui o exemplo já mais "afinado" para que outros possam desfrutar.

Por agora dou como resolvido e deixo aqui mais um tópico de outro projeto em que estou a trabalhar.

Registo Fotográfico

Artur

Apague todo aquele código e coloque esse somente:

Private Sub TipoDocumento_AfterUpdate()
 
             If DCount("*", "TabDocumentosNoobezinho", "[TipoDocumento]=" & Me.TipoDocumento) = 0 Then '
                Me.Numero = Format("1", "000") & "/" & Year(Date)
             Else
                If Val(Right(DMax("[Numero]", "TabDocumentosNoobezinho", "[TipoDocumento]=" & Me.TipoDocumento & " and Right([Numero],4)= " & Year(Date)), 4)) <> Year(Date) Then
                   MsgBox "Acredito que nem precise dessa msgbox, isso não interessa ao usuário.", vbInformation, "Aviso"
                   Me.Numero = Format("1", "000") & "/" & Year(Date)
                Else
                   Me.Numero = Format(Left(DMax("[Numero]", "TabDocumentosNoobezinho", "[TipoDocumento]=" & Me.TipoDocumento), 3) + 1, "000") & "/" & Year(Date)
                End If
             End If

End Sub

Para colocar futuros tipos de documentos então terá que criar uma tabela de tipos com duas colunas, código e NomeTipo então referenciar
a mesma na propriedade origem da linha da combobox
Assim vc poderá acrescentar outros tipos de documentos direto na combobox.

Já tinha tentado fazer o código de forma parecida à que agora me mostrou, mas estava a colocar no evento on Dirty... Hj pensei que deveria ser no evento AfterUpdate... Já testei e está muito bom. Já testei com outros documentos e funciona na perfeição

Pois, a tabela seria outra hipótese... e nesse caso até poderia colocar um formulário onde pudesse acrescentar outros documentos, dessa forma qualquer um lá chegaria  

Depois diga se pode ajudar no outro projeto que deixei referenciado na mensagem 6.

Mais uma vez, obrigado

Ótimo Artur

Que bom que deu certo !

Darei uma olhada no outro tópico.

Boa sorte !

Boa Tarde RIcardo/Nobrezinho,

Este é o meu primeiro dia no forum, e apanhei aqui no seu problema, o que procuro.

Tentei fazer o download do exemplo do Nobrezinho, mas o link já não esta disponivel, tem como disponibiliza-lo para mim?

Obrigado

Olá Lyacat

Bem vindo ao fórum

Como pode ver na mensagem nº7,

o código do exemplo estava errado.

Então,coloquei o código correto naquela

mensagem.

[ ]' s

Bom Dia Noobezinho,

Obrigado. Vou ver se testo no final de semana, se tiver algum problema venho apresentar aqui no forum.