[Resolvido]Contagem de numeros pares e ímpares

Bom dia,

Estou com uma dificuldade referente a contagem de números pares e ímpares, eu preciso fazer um cadastro de peças que gere um numero automático para as peças, só que esse numero automático tem de ser ímpar para peças esquerdas e par para peças direitas.

Eu tenho o código abaixo que gera a sequencia dos números mas como eu modifico esse código só gerar números pares e impares?

Dim numeroencontrado As String, proximoNumero As Integer

'código adaptado do mestre Jpaulo
'encontrar o ultimo numero na tabela
numeroencontrado = Nz(DMax("Sequence", "CODEDOCUMENTPARTIAL", "[Code Numeric] = " & Me.CodigoNumerico.Value), 0)
If IsNull(numeroencontrado) Or numeroencontrado = "" Or numeroencontrado = "0" Then
'se não existir numeração, insere o equipamento + 001 para iniciar
numeroencontrado = "001"
'devolve ao campo a nova numeração
Me.Sequencia.Value = numeroencontrado
Else
'se já existir numeração na tabela, acrescenta +1
proximoNumero = Right(DMax("Sequence", "CODEDOCUMENTPARTIAL", "[Code Numeric] = " & Me.CodigoNumerico.Value), 3) + 1
'devolve ao campo a nova numeração
Me.Sequencia.Value = Format(proximoNumero, "000")
End If


grato pela atenção,

Antonio

Olá António... e que tal se adaptasse um código para pares e outro para ímpares?

Nos impares basta fazer o seguinte:

proximoNumero = Right(DMax("Sequence", "CODEDOCUMENTPARTIAL", "[Code Numeric] = " & Me.CodigoNumerico.Value), 3) + 2

Nos pares o primeiro número teria que colocar "002" como primeiro número caso não existisse nenhum e depois o mesmo:

proximoNumero = Right(DMax("Sequence", "CODEDOCUMENTPARTIAL", "[Code Numeric] = " & Me.CodigoNumerico.Value), 3) + 2

Acho que resolveria o assunto.

Bom dia LeoStar,

No caso, minha tabela teria duas colunas, uma para os números pares e outra para os ímpares correto?
Para que eu consiga pegá-los em sequência.

Não necessariamente... veja se isto resolve o seu problema. Depois pode adaptar inserindo na tabela os seus outros campos.

https://www.dropbox.com/s/kfvsd2il8etkbn0/Database1.zip?dl=0

Espero que tenha ajudado. Qualquer dúvida esteja à vontade.

Olá a todos,
António, também fiz pequeno exemplo com base neste exemplo do JPaulo:
https://www.maximoaccess.com/t72-numeracao-muda-conforme-ano

O código ficou assim:

Código:

Public Function NumeracaoEsqDir(DirEsq As Byte) As String
'By JPaulo@2009
'Alterado para colocar digito 1 (Esquerda) ou 2 (direita)
'ahteixeira - 2016 maximoaccess

Dim fazcodigo(1) As Integer, temporario As Integer

    fazcodigo(1) = Nz(DMax("Right(CodigoControle,6)", "tblExemplo", "Left(CodigoControle,1)=" & DirEsq & ""), 0)

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

    NumeracaoEsqDir = DirEsq & "-" & Format(temporario + 1, "000000")

End Function

Segue o exemplo.
Abraço a todos

Obrigado pela ajuda pessoal, sem ela seria difícil ter conseguido.

Olá António,
Fico feliz por ter conseguido resolver.
Obrigado pelo retorno, os utilizadores do fórum agradecem.
Abraço