MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    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.

    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.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    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 7 vez(es)

    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.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    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: Sab 03 Dez 2016, 15:35