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 automática de vários documentos.

    avatar
    Ricardo84
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 78
    Registrado : 18/01/2014

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

    Mensagem  Ricardo84 24/8/2015, 21:49

    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
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 25/8/2015, 14:50

    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



    Última edição por Noobezinho em 22/1/2016, 10:05, editado 1 vez(es)


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

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

    Mensagem  Silvio 25/8/2015, 17:37

    Boas....

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 25/8/2015, 18:14

    Grande Silvio

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

    Abração


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

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

    Mensagem  Silvio 25/8/2015, 18:55

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Ricardo84
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 78
    Registrado : 18/01/2014

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

    Mensagem  Ricardo84 25/8/2015, 22:20

    Boas Noobezinho,

    A finalidade é toda essa, obrigado. cheers

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

    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
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 25/8/2015, 22:32

    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.


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Ricardo84
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 78
    Registrado : 18/01/2014

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

    Mensagem  Ricardo84 25/8/2015, 23:40

    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  Smile

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

    Mais uma vez, obrigado
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 26/8/2015, 00:12

    Ótimo Artur

    Que bom que deu certo !

    Darei uma olhada no outro tópico.

    Boa sorte !


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    LiyacatHanifMoz
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 2
    Registrado : 21/01/2016

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

    Mensagem  LiyacatHanifMoz 21/1/2016, 15:02

    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 Smile
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 21/1/2016, 17:05

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    LiyacatHanifMoz
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 2
    Registrado : 21/01/2016

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

    Mensagem  LiyacatHanifMoz 22/1/2016, 06:32

    Bom Dia Noobezinho,

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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 00:52