Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access
Marcar tópico como Resolvido: clique aqui Postar anexos no fórum: clique aqui 
haroldoCdecampos Sex 26 Nov 2021, 18:36
Public Function LetraAleatoria() As String
'***********************************************************************************************
'* seleciona um aletra aleatóriamente
'* autor desconhecido
'* modificado por glicério júnior (jungli) ...04/2011
Dim MaxLetra As Long
Randomize ' iniciar o gerador de aleatórios.
MaxLetra = 26 'aqui voce poderá escolher de 1 a 26 letras.
Dim i As Long: i = 1
For i = 1 To MaxLetra
' gerando letras aleatórias de 1 a até o número escolhido em Maximo_letras
LetraAleatoria = Chr(Int((MaxLetra * Rnd) + 1) + 64)
i = i + 1
Next i
'// fim
End Function
Public Function GeraCodigo()
'***********************************************************************************************
'* cria um código composto para ser usado como chave primária
'* Glicerio Junior (Jungli) ... 01/04/2011
GeraCodigo = LetraAleatoria() & LetraAleatoria() & Format(Now(), "YYMD") & LetraAleatoria() & Format(Now(), "HMS")
End Function
|
|
|