[Resolvido]Decomposição de sequência numérica.

Olá Feras de Plantão, preciso de ajuda.

Supondo que eu tenha um campo numérico com a sequência 27016194 pretendo que esta sequência seja decomposta da seguinte forma numa consulta:

Semestre = 2
Ano = 70
Curso = 16
NumOrdem = 194

Melhor seria atraves de um código VBA pois eu poderia criar os campos Semestre, Ano, CódCurso e NumOrdem na tabela e ao digitar a sequência esses campos se auto-preencheriam.

Auguma idéia?

Abraços, WSenna

Opa Senna, blzinha?

Então, o seu caso poderia ser resolvido com a instrução MID.

Para o exemplo que você informou ficaria assim


dim stCodigo as string
stCodigo= "27016194"

Mid(stCodigo, 1, 1)
Mid(stCodigo, 2, 2)
Mid(stCodigo, 4, 2)
Mid(stCodigo, 6, 3)

Só que surgem algumas questões:
• o curso sempre terá 2 digitos?
• o número ordem sempre terá 3 dígitos?

Se esses valores alterarem os números de dígitos, o mid não vai funcionar

Olá Livebraim, boa noite.

Amigão, é isso mesmo, o código do curso sempre possui dois algarismos e o NumOrdem 3 algarismos.

Fico imensamente grato pela rapidez na ajuda prestada.
Vou testar e dou retorno logo que estiver pronto.

Abraços, WSenna

Para não perder viagem vai ai

Código:

Private Sub btnDecompor_Click()

Me.txtSemestre = Mid(Me.txtDecompor, 1, 1)
Me.txtAno = Mid(Me.txtDecompor, 2, 2)
Me.txtCurso = Mid(Me.txtDecompor, 4, 2)
Me.txtOrdem = Mid(Me.txtDecompor, 6, 3)


End Sub


Grande Livebraim.

Amigão, na mosca, bateu em cima.

Abraços, WSenna