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


2 participantes

    [Resolvido]Numeração automática muda de ano, conforme ano corrente

    avatar
    paulo_ricardo80
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 08/08/2012

    [Resolvido]Numeração automática muda de ano, conforme ano corrente Empty [Resolvido]Numeração automática muda de ano, conforme ano corrente

    Mensagem  paulo_ricardo80 11/8/2014, 20:28

    Caro J. Paulo Boa tarde.

    No seu exemplo estou tentanto colocar mais um dígito (0000/ano atual).
    Poderia me dizer o que tá faltando, pois já alterei o DMax, Nz, Left e Right e nada.
    No aguardo
    Obrigado!

    Paulo
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Numeração automática muda de ano, conforme ano corrente Empty Re: [Resolvido]Numeração automática muda de ano, conforme ano corrente

    Mensagem  Alvaro Teixeira 11/8/2014, 22:05

    Olá, veja se este tópico ajuda (mensagem nº 5) http://maximoaccess.forumeiros.com/t20018-resolvidonumeracao-muda-conforme-ano-0000-ano-atual
    A busca do forum é muito útil.
    Abraço  cheers 
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Numeração automática muda de ano, conforme ano corrente Empty Re: [Resolvido]Numeração automática muda de ano, conforme ano corrente

    Mensagem  Alvaro Teixeira 11/8/2014, 22:08

    Ops, não reparei que vinha de lá.
    As minhas sinceras desculpas  cheers

    Veja se é isto que pretende:

    Option Compare Database

    Public Function NumeracaoAno() As String
    'By JPaulo@2009
    Dim fazcodigo(1) As Integer, temporario As Integer

    fazcodigo(1) = Nz(DMax("Left(CodigoControle,5)", "tblExemplo", "Right(CodigoControle,4)=Year(Date())"), 0)

      For I = 1 To UBound(fazcodigo)
          If temporario < fazcodigo(I) Then temporario = fazcodigo(I)
      Next

    NumeracaoAno = Format(temporario + 1, "00000") & "/" & year(Date)

    End Function

    Ao Abrir no formulário:

    Private Sub Form_Open(Cancel As Integer)
    If Not IsNull(Me.CodigoControle) Then
    Exit Sub
    Else
    Me.CodigoControle.Value = "00000" & "/" & year(Date)
    End If
    End Sub

    Entretanto se o pretendido é 00000/2014 (cinco digitos/4 do ano), fiz alteração ao exemplo disponibilizado pelo colega Fernando Bueno
    Anexos
    [Resolvido]Numeração automática muda de ano, conforme ano corrente AttachmentNumeracao5DigitosNumero&4DigitosAno.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (19 Kb) Baixado 129 vez(es)
    avatar
    paulo_ricardo80
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 08/08/2012

    [Resolvido]Numeração automática muda de ano, conforme ano corrente Empty Re: [Resolvido]Numeração automática muda de ano, conforme ano corrente

    Mensagem  paulo_ricardo80 12/8/2014, 12:53

    Muito Obrigado ahteixeira

    Abs,

    Paulo.

    Conteúdo patrocinado


    [Resolvido]Numeração automática muda de ano, conforme ano corrente Empty Re: [Resolvido]Numeração automática muda de ano, conforme ano corrente

    Mensagem  Conteúdo patrocinado


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