[Resolvido]Como eu faria para gerar uma chave de 18 dígitos

Olá a todos
peço a vocês uma ajuda para:

No codigo abaixo eu consigo gerar uma chave de 9 dígitos

varChave = Int(Rnd * 999999999#)
If Len(varChave) < 9 Then varChave = varChave & String(9 - Len(varChave), "0")


Como eu Faria para Gerar 18 ou 20 Dígitos?

No aguardo

Boa tarde
Será
varChave = Int(Rnd * 999999999999999999#)
If Len(varChave) < 18 Then varChave = varChave & String(18 - Len(varChave), "0")

ja tentei assim e não deu

varChave = Int(Rnd * 999999999999999999#)
If Len(varChave) < 18 Then varChave = varChave & String(18 - Len(varChave), "0")

se colocar assim:
gera 9 digitos

varChave = Int(Rnd * 999999999#)
If Len(varChave) < 9 Then varChave = varChave & String(9 - Len(varChave), "0")

se eu colocar assim:
gera 4 digitos

varChave = Int(Rnd * 9999#)
If Len(varChave) < 4 Then varChave = varChave & String(4 - Len(varChave), "0")

se eu colocar assim:
não gera nada

varChave = Int(Rnd * 999999999999999999#)
If Len(varChave) < 18 Then varChave = varChave & String(18 - Len(varChave), "0")

Bom dia
Mostrou o código todo?
Declarou a varChave? se sim, declarou como variant?

Oi alexandre aqui está a função pra gerar a chave
Public Function fncGerarChave()
Dim blnUsuario As Boolean
Dim blnMaquina As Boolean
Dim varChave As Variant
'------------------------------------------------
'verifica se houve troca de usuário ou de máquina
'-------------------------------------------------
blnUsuario = Nz(DLookup("Usuario", "tblRegistro")) = Environ("UserName")
blnMaquina = Nz(DLookup("Maquina", "tblRegistro")) = Environ("ComputerName")

Randomize
'---------------------------------
'gera nova chave de comprimento 8
'---------------------------------
varChave = Int(Rnd * 99999999#)
If Len(varChave) < 8 Then varChave = varChave & String(8 - Len(varChave), "0")
'---------------------------------------------------------------------
'grava chave, nome do usuário e nome da máquina na tabela tblRegistro
'---------------------------------------------------------------------
If DCount("*", "tblRegistro") = 0 Then
'insere novo registro
CurrentDb.Execute "INSERT INTO tblRegistro (chave,usuario,maquina) VALUES ('" & varChave & "','" _
& Environ("UserName") & "','" & Environ("ComputerName") & "');"
ElseIf IsNull(DLookup("chave", "tblRegistro")) Or blnUsuario = False Or blnMaquina = False Then
'atualiza registro existente
CurrentDb.Execute "UPDATE tblRegistro SET chave = '" & varChave & "',usuario ='" _
& Environ("UserName") & "',maquina ='" & Environ("ComputerName") & "';"
End If
End Function

Boa tarde
Aparentemente só se o campo não tiver espaço suficiente
Experimentei e funcionou, apenas mostra na forma 7,00573444366455E+17

Por gentileza amigo poe detalhar melhor
7,00573444366455E+17
eu quero que a função acima gere 18 dígitos e não 8 dígitos como está gerando

Adapte os nomes de tabela e campo e verifique apenas com o código gerado

Código:

Public Sub fncGerarChave()
Dim blnUsuario As Boolean
Dim blnMaquina As Boolean
Dim varChave As Variant
'------------------------------------------------
'verifica se houve troca de usuário ou de máquina
'-------------------------------------------------

Randomize
'---------------------------------
'gera nova chave de comprimento 8
'---------------------------------
varChave = Int(Rnd * 1E+18)
If Len(varChave) < 8 Then varChave = varChave & String(8 - Len(varChave), "0")
'---------------------------------------------------------------------
'grava chave, nome do usuário e nome da máquina na tabela tblRegistro
'---------------------------------------------------------------------

'insere novo registro

    CurrentDb.Execute "INSERT INTO tabela (campo) VALUES ('" & varChave & "');"
   
End Sub

e pra gerar os 18 dígitos com a função que anexei
do jeito que voce colocou não consegui, dentro da função que postei o que eu teria que mudar pra gera os 18 digitos?
eu não quero alterar ou excluir as outras partes da função

Apenas experimente, nem que seja numa tabela nova de experimentação só para verificar a parte da nova chave
Depois, é encaixar as partes

eu tentei encaixar suas alterações, na função mas sem exito, voce sempre está nos ajudando e te agradeço muito, mas ainda não consegui

Mas experimentou a parte da chave? seu certo? tem de testar essa parte

Sim eu tentei e testei somente a parte da chave criando uma nova tabela e também não deu certo

Bom dia
Coloque bd apenas com a parte de chave (tabela e código) para se ver, pois aqui funcionou

tu podes anexar o seu como que deu certo, acho que ficaria mais fácil pra mim fazer a adaptção aí se der certo eu postarei após a adaptação

Segue em anexo

Não Amigo não é assim que pretendo
o objetivo é ao abrir o form principal seja criado uma chave automaticamente de 18  dígitos no campo chave campo tipo num,ero e não tipo memorando , no seu exemplo foi criado uma espécie de de numero inteiros com decimais, e como foi pra gerar as chaves eu zerei a tabela e não gerou mais o registro


Segue em Anexo o modelo completo que peguei na net e que estou querendo adaptar em meus projetos
o que eu quero?
1. gerar uma chave com 12 ou 18 dígitos no campo da tblregistro campo chave unica  diferença que está gerando 8 dígitos atualamente e quero mudar a
   quantidade de dígitos dessa chave
2. ao invés de de fazer um limite de registro no formulário, fazer uma restrição em dias de uso bloquear o sistema e mostrar o frmRegistro, para o cliente se registrar

Motivo da Alteração. alguém pode usar o mesmo modelo que eu e assim poder clonar meu projeto

Reveja o tipo de números
Não existem números com 18 algarismos
[https://]support.office.com/pt-pt/article/introdu%C3%A7%C3%A3o-aos-tipos-de-dados-e-propriedades-de-campo-30ad644f-946c-442e-8bd2-be067361987c#refnumber

Obrigado alexandre por tudo que tentou fazer, por mim como sempre em inúmeras vezes você me ajudou, mas infelizmente dessa vez não deu

mas, acho que vou partir para uma outra solução tipo vou usar uma ocx para atingir o meu objetivo, antes de fechar esse tópico ainda vou dar mais uma pesquisada aqui no site e na net

Olá..

Com a licença do nosso Mestre Alexandre, deixo a minha sugestão.

Cole este código abaixo em um modulo e defina o tamanho da chave na linha TamanhoSenha = 18 :

Código:

Function NovaSenha()

Dim TamanhoSenha As Integer, Senha As String, Numero As String

Senha = ""
TamanhoSenha = 18


Randomize

Do While Len(Senha) < TamanhoSenha
    Numero = Chr(Int((48 - 57 + 1) * Rnd + 57)) ' Verifica tabela Asc II os números de 0 a 9
    Senha = Senha & Numero
Loop

NovaSenha = Senha

End Function

No evento ao carregar o formulário que deseja gerar a chave, chame a função da forma abaixo:

NomeDoCampoDaChave = NovaSenha



Espero que ajude

Abraços

oi Celso tanto voce como o amigo Alexandre ajudou muito eu entender o porque que não estava dando certo, pois estava querendo colocar um número longo de ais em um campo que não aceitava
1. uma coisa eu entendi a chave que eu estava querendo gerar com mais de 8 dígitos não da pra campo número
2. o Alexandre postou acima o link esclarecendo o porque em uma página de ajuda microsoft , só que a a juda da microsof é muito complicada,

a minha pergunta é eu mudei o campo chave da tabela tblregistro tipo texto do exemplo (mensagem17), isso vai influenciar na segurança do código para proteção do meu projeto.


aí ocódigo ficou assim:
Public Function fncGerarChave()
Dim blnUsuario As Boolean
Dim blnMaquina As Boolean
Dim varChave As Variant
'------------------------------------------------
'verifica se houve troca de usuário ou de máquina
'-------------------------------------------------
blnUsuario = Nz(DLookup("Usuario", "tblRegistro")) = Environ("UserName")
blnMaquina = Nz(DLookup("Maquina", "tblRegistro")) = Environ("ComputerName")

Randomize
'---------------------------------
'gera nova chave de comprimento 18 mas só gera os 18 dígitos se mudar o campo da tabela para tipo texto
'---------------------------------
varChave = Int(Rnd * 999999999999999999#)
If Len(varChave) < 18 Then varChave = varChave & String(18 - Len(varChave), "0")
'---------------------------------------------------------------------
'grava chave, nome do usuário e nome da máquina na tabela tblRegistro
'---------------------------------------------------------------------
If DCount("*", "tblRegistro") = 0 Then
'insere novo registro
CurrentDb.Execute "INSERT INTO tblRegistro (chave,usuario,maquina) VALUES ('" & varChave & "','" _
& Environ("UserName") & "','" & Environ("ComputerName") & "');"
ElseIf IsNull(DLookup("chave", "tblRegistro")) Or blnUsuario = False Or blnMaquina = False Then
'atualiza registro existente
CurrentDb.Execute "UPDATE tblRegistro SET chave = '" & varChave & "',usuario ='" _
& Environ("UserName") & "',maquina ='" & Environ("ComputerName") & "';"
End If
End Function


porque o campo tipo número não aceita 18 dígitos?

Já ouviu falar de notação científica?

Segue um ótimo curso sobre isso no VBA Access. Não deixe de ver.

youtu.be/WnengxZw8-k?list=PLzIdXdEzJ5_d5Bd8itvUWxvru4K2qPZYV&t=471

Segue também um exemplo pronto
https://www.maximoaccess.com/t35051-gerenciador-de-licencas-online-em-mysql

E uma dúvida, por que exatamente 18 dígitos?

raijeweb escreveu:

a minha pergunta é eu mudei o campo chave da tabela tblregistro tipo texto do exemplo (mensagem17), isso vai influenciar na segurança do código para proteção do meu projeto.:

Não consegui fazer o que disse acima.

Se Campo for Numeros inteiros longo, você consegue ate 15 digitos.

Anexe seu exemplo funcionando com as alterações feitas para que possamos verificar e analizar


Aguardamos

Abraços

Olá..

Estamos aguardando a continuidade do tópico.

Abraços

Olá..

Estamos aguardando a continuidade do tópico.

Se já estiver resolvido, por favor encerre o tópico

Abraços

Olá a todos muito obrigado de coração a todos que colaboraram ou tiveram a intenção já resolvi utilizando uma ocx activeLook 1.8

Olá...

Obrigado, O Fórum agradece o seu Retorno

Abraços