MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Código VBA para criação de código alfanumérico

    avatar
    JOJO sp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/12/2016

    [Resolvido]Código VBA para criação de código alfanumérico Empty [Resolvido]Código VBA para criação de código alfanumérico

    Mensagem  JOJO sp 23/2/2017, 21:06

    Boa tarde pessoal, estou criando um sistema integrado simples, onde o módulo de contas a pagar precisa gerar um código alfanumérico para cada conta que for lançada.

    O meu intuito é lançar primeiramente a conta a pagar, gerar esse código, e depois com uma consulta acréscimo os dados seguirem para o caixa automaticamente. Gostaria que esse código seguisse o exemplo de iniciar com a letra "D" de despesa + numeração automática.

    Com isso quando for acrescentado no caixa, eu poder diferenciar de Receitas e Despesas, estou dando o exemplo da despesa, mas farei com receitas também.

    Sou iniciante, não sei se minha lógica está correta, podem ficar a vontade para opinar, muito obrigado.
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]Código VBA para criação de código alfanumérico Empty Código VBA para criação de código alfanumérico

    Mensagem  CassioFabre 24/2/2017, 13:02

    Bom dia,

    Coloque num botão em um formulário e teste. Esse código gerará uma chave de registro aleatória:

    Código:
       Dim i, j As Integer
        Dim strChave As String
        
        strChave = "D"
        
        txcodigo = Null
        
        For i = 1 To 9 Step 0
            Randomize
            j = Int(Rnd() * 9) + 1
            strChave = strChave & j
            i = i + 1
        Next i
        
        Me.txtCodigo = strChave

    Onde txtCodigo é o seu campo que receberá essa chave aleatória.


    Última edição por CassioFabre em 24/2/2017, 19:21, editado 1 vez(es)
    avatar
    JOJO sp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/12/2016

    [Resolvido]Código VBA para criação de código alfanumérico Empty Re: [Resolvido]Código VBA para criação de código alfanumérico

    Mensagem  JOJO sp 24/2/2017, 14:29

    Bom dia Cassio, obrigado pela ajuda.

    Legal funcionou, preciso somente de um ajuste.

    Toda vez que clico no botão ele gera um código novo para o mesmo registro.

    Não sei se é possível, ao invés de gerar um código aleatório, gerar uma combinação da letra "D" + o campo de numeração automática do próprio registro.

    Preciso também que esse código apareça na tabela, está somente no formulário.

    Muito obrigado,
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]Código VBA para criação de código alfanumérico Empty Código VBA para criação de código alfanumérico

    Mensagem  CassioFabre 24/2/2017, 15:45

    Boa tarde,

    Primeiro crie um campo na tabela que vai armazenar esse valor e também o inclua no formulário. Se entendi bem você está usando formulários acoplados.

    Crie este campo no formulário (vou chamar aqui de txtCodigoMovimentacao). É interessante que esse campo do código não seja visivel ao usuário, uma vez que ele não será alterado por ser um controle do sistema.

    A cada vez que inserir um novo registro, no evento do botão que faz isso, coloque:

    Código:
    txtCodigoMovimentacao= "D" & txtNumeracaoAutomatica

    Obviamente se voce tiver outros tipos de movimentação, terá que fazer o sistema reconhecer o tipo e alterar esse prefixo "D". Espero que tenha entendido.

    Abraço.


    Última edição por CassioFabre em 24/2/2017, 19:22, editado 1 vez(es)
    avatar
    JOJO sp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/12/2016

    [Resolvido]Código VBA para criação de código alfanumérico Empty Re: [Resolvido]Código VBA para criação de código alfanumérico

    Mensagem  JOJO sp 24/2/2017, 16:40

    Cassio, mais uma vez muito obrigado, consegui o resultado que precisava.
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]Código VBA para criação de código alfanumérico Empty [Resolvido]Código VBA para criação de código alfanumérico

    Mensagem  CassioFabre 24/2/2017, 17:07

    Boa tarde,

    O fórum agradece o retorno.

    Abraço.

    Conteúdo patrocinado


    [Resolvido]Código VBA para criação de código alfanumérico Empty Re: [Resolvido]Código VBA para criação de código alfanumérico

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/12/2024, 04:03