MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Contagem de numeros pares e ímpares

    Compartilhe
    avatar
    Antonio.J
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 02/05/2016

    [Resolvido]Contagem de numeros pares e ímpares

    Mensagem  Antonio.J em Sex 12 Ago 2016, 13:24

    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

    LeoStar
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 83
    Registrado : 18/05/2010

    Numeros pares e impares

    Mensagem  LeoStar em Ter 16 Ago 2016, 05:24

    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.
    avatar
    Antonio.J
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 02/05/2016

    Contagem de numeros pares e ímpares

    Mensagem  Antonio.J em Ter 16 Ago 2016, 13:00

    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.

    LeoStar
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 83
    Registrado : 18/05/2010

    Contagem de numeros pares e impares

    Mensagem  LeoStar em Ter 16 Ago 2016, 19:08

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

    [Você precisa estar registrado e conectado para ver este link.]

    Espero que tenha ajudado. Qualquer dúvida esteja à vontade.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Contagem de numeros pares e ímpares

    Mensagem  ahteixeira em Qua 17 Ago 2016, 16:12

    Olá a todos,
    António, também fiz pequeno exemplo com base neste exemplo do JPaulo:
    [Você precisa estar registrado e conectado para ver este link.]

    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
    Anexos
    Numeracao_Esq_1_Dir_2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (19 Kb) Baixado 9 vez(es)
    avatar
    Antonio.J
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 02/05/2016

    [resolvido] Contagem de numeros pares e ímpares

    Mensagem  Antonio.J em Qui 25 Ago 2016, 12:35

    Obrigado pela ajuda pessoal, sem ela seria difícil ter conseguido.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Contagem de numeros pares e ímpares

    Mensagem  ahteixeira em Qui 25 Ago 2016, 12:39

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

      Data/hora atual: Ter 26 Set 2017, 15:26