[Resolvido]Gerar código alfanumérico

Boa tarde

Gostaria de pedir uma ajuda aos colaboradores do fórum devido a um critério que não consigo realizar na geração do código nas tabelas do access. Estou criando um sistema de gerenciamento de ordem de serviço único sendo aplicada a duas empresas do mesmo grupo. Na geração da ordem de serviço o numero gerado necessita ter o padrão TE2020/000000 ou DP2020/000000. Por gentileza, poderia me ajudar como faço para o access fazer esta distinção do código?


Grato.

Fabio boa tarde,

Fiz um pequeno exemplo que gera OS, conforme tua necessidade.
Segue  tela:



Nesta tela, o sistema gera a OS com a nomenclatura (campo Tipo) selecionada.

OBS.: Existe uma tabela chamada "TB_PREFIXO_OS", onde ficam registrados os tipos, e na tela somente são exibidos os tipos com o status "A", de ativo. Caso queira incluir algum prefixo e/ou inativar um tipo, é só alterar o status para "I" (Inativo).




Segue exemplo.

Espero ter ajudado

boa sorte

Alexandre, me perdoe a intromissão, modifiquei seu exemplo, estava justamente necessitando de algo parecido e veio a calhar.

Infelizmente não tive como testá-lo alterando a data do computador, já no trabalho e equipamento bloqueador pelo TI da empresa.

Bom dia Tauron,

Fique à vontade para utilizar o exemplo.
É justamente pra isso que ele serve...rsss

O sistema busca a data atual da máquina, mas pode ser implementado um campo Data de Abertura da OS na tela também...
Não sei se isso te ajudaria.

Então Alexandre, não sei se compreendi bem o que quiz dizer com "mas pode ser implementado um campo Data de Abertura da OS na tela também". Seria algo do tipo

foram abertas 50 OS em 2019;

se hoje eu precisar inserir uma OS de 2019;

Data abertura da OS: 31/12/2019

Tipo: TE

OS: TE - 2019/000051

Seria isso?

se hoje eu precisar inserir uma OS de 2019;

Data abertura da OS: 31/12/2019

Tipo: TE

OS: TE - 2019/000051

Seria isso?

Sim, mas o prefixo "TE - 2019" tem que estar na tabela cadastrado e com status "A" para aparecer no combo "Tipo" da tela.
Ai vc pode incluir um campo para preenchimento da data, porém, é necessário mudar a instrução SQL:

   sSQL = "INSERT INTO TB_ORDSERV (data_ordserv,nro_ordserv)"
   sSQL = sSQL & " VALUES ( '" & Format([Campo data da tela], "dd/mm/yyyy") & "', '" & sOrdServ & "')"
   db.Execute sSQL


É isso!!

Tauron,

Fiz uma pequena mudança no sistema, para tua necessidade:



Tabela com prefixo cadastrado:




E o código para concatenar ficou assim:

'Concatena o texto do campo Tipo com barra e o numero da OS com 6 zeror a esquerda
   'sOrdServ = cboTipo.Column(0) & "-" & Year(Date) & "/" & Right("000000" & I, 6)
   sOrdServ = cboTipo.Column(0) & "/" & Right("000000" & I, 6)


Segue arquivo.

Espero ter ajudado

Att,

Obrigado jovens,

Deu certo para aplicação que estou trabalhando.

Grato.

Valeu Amaral...boa sorte com seu projeto!!!

Tauron, não esqueça de finalizar o tópico como Resolvido.

Valeu!!!

Abraços

Então Alexandre, o autor do tópico é o Amaral. Eu simplesmente entrei de penetra.

Ops...é mesmo....kkk
Me desculpe Tauron !!!

Então Alexandre, referente a sua mensagem (nº 7), imagine uma tabela com digamos 50 prefixos diferentes.

Modifiquei seus códigos e cheguei a isso:

Código:

'Intrução SQL para buscar a ultima OS gerada com o prefixo informado no campo Tipo
    sSQL = "SELECT MAX(nro_ordserv) as MaxNro FROM TB_ORDSERV"
    sSQL = sSQL & " WHERE nro_ordserv Like """ & cboTipo.Column(0) & Year(Me.txtData) & "*"""
    Set rs = db.OpenRecordset(sSQL)

Código:

'Concatena o texto do campo Tipo com barra e o numero da OS com 6 zeror a esquerda
    sOrdServ = cboTipo.Column(0) & Year(Me.txtData) & "/" & Right("000000" & I, 6)

Assim eu terei uma tabela com 50 linhas para gerar os códigos (numeração) a menos que, seja inserido um novo prefixo.

Abraços

Bom dia

Bom dia Assis,

Estranho, peguei o modelo aqui, no win7 64 bits com office 2010 32 bits, apaguei tudo que tinha na tabela "TB_ORDSERV". Já no formulário, informei a data, escolhi o prefixo e funcionou perfeitamente.






Vendo sua imagem, percebi que no formulário, não consta o rótulo do campo "Data de Abertura" (campo mais a direita).

Bom dia Tauron,

Legal !!

A idéia do sistema era apenas como exemplo, e o resto fica por conta da criatividade de quem utilizá-lo.

Assis?
Este erro é gerado pq é necessário preencher o campo data para concatenar com o prefixo.


Abraços a todos