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

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.

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.

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,

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.

Cassio, mais uma vez muito obrigado, consegui o resultado que precisava.

Boa tarde,

O fórum agradece o retorno.

Abraço.