[Resolvido]Mascara com inserção do ano

Prezados tenho um formulário em que tenho que fazer a inserção de um número de procedimento no seguinte formato "000001/2017". Há a possibilidade de que a máscara faça tanto a inserção dos zeros a esquerda do ´número como também o ano corrente automaticamente? Ou que a inserção do ano seja por algum código VBA?

Olá Cassio Ferreira,

Voce pode colocar a seguinte função:

SeuCampo=Right("QtdeZerosAEsquerda" & CampoValor & , Largura) &"/"& Year(Date)

Ex.: Right("00000000" & 1, 6) &"/"& Year(Date)

Resultado: 00000001/2017

Espero ter ajudado.

Abraços

E ai Cassio? Deu certo?

Att,

Eu não sei se deveria esclarecer que este formulário é do Access. Estou na dúvida, pela forma como inicia a rotina "SeuCampo=", onde deve ser inserida.

Olá Cassio,

Me desculpe, não entendi a sua dúvida.

Bom dia,

Pela quantidade de zeros ser veriável de acordo com o número do procedimento (ex. se o procedimento foi o numero 1 então será 000001/2017 mas se for o 15 será 000015/2017, ou seja, diminuiu um "0" do procedimento), não é bom manter essa quantidade fixa ou pedir ao usuário que a informe, então eu pensaria numa função assim:

Dim strZeros As String
Dim qntDigitos As Integer
       
qntDigitos = 6
       
For i = 1 To qntDigitos - Len(txt) Step 0
   strZeros = strZeros & "0"
   i = i + 1
Next i
       
txt1 = strZeros & txt & "/" & Year(Date)

- qntDigitos é a quantidade de números que você terá antes da barra que divide o ano.
- txt é o campo que você insere o número do procedimento, pode ser substituido por uma função que retorne esse valor.
- txt1 é o campo que receberá o valor do número do procedimento

No evento Após Atualizar do campo que você insere o número do procedimento ou então no evento que isso acontece, coloque este código.

Vale ressaltar que usar o Date para retornar a data atual é uma falha de segurança, isso porque essa função retorna a data atual do windows, que pode ser alterada a qualquer momento pelo usuário, gerando uma insegurança se a informação está correta ou não. Por isso, sugiro que leia: usandoaccess.com.br/dicas/capturando-data-e-hora-da-internet.asp?id=1 (copiar e colar no navegador) e utilizar esse procedimento para capturar a data correta, que no seu caso é o ano.

Estou enviando em anexo um modelo para ver o funcionamento.

Abraço.

Ou o simples sem necessidade de acesso pela internet;

Já inserido aqui no forum, muitas vezes;

Download

Esse site é porreta mesmo, obrigado a todos que vieram ao meu auxílio, deu certo, já estou acrescentando ao meu sistema access. esse modo de inserção de dados já parametrizados aceleram em muito o trabalho de digitação. Mais uma vez obrigado a todos.

Fico feliz.

Obrigado pelo retorno o forum agradece.