Erro no Sistema trial com geração automatica de serial

Bom dia à todos!

Gostei muito do exemplo desenvolvido, e tentei usar no meu computador. Mas está dando erro ao gerar o seriais. Seleciono a quantidade de serial a ser gerado, e aparece o seguinte erro:

https://www.maximoaccess.com/t20559-sistema-trial-com-geracao-automatica-de-serial#206911

"Erro de compilação"
É impossível localizar o objeto ou a biblioteca.

Function gerar1()
SenhaGerada = GerarSenha
End Function

-----------------------------------------------------------------------------------

Também está dando erro ao Gerar Atualização.

"Erro de compilação"
É impossível localizar o objeto ou a biblioteca.

Public Sub AtualizarTabela()
  Dim Banco As String
  Dim Atualizado As Boolean
 
  'Armazena o caminho do arquivo
  Banco = BuscaArquivo()
 
  'Verifica se algum banco de dados foi selecionado
  If Not IsEmpty(Banco) Then
      'Percorre todas as tabelas da base
      For Cont = 0 To CurrentDb.TableDefs.Count - 1


Desde já informo que ainda sou aprendiz.

Aguardo a ajuda de vocês.

Abraços!

Bom dia,

Me parece que você está atribuindo variáveis sem te-las criado antes.

Tente colocar no topo do módulo/formulário, logo após o Compare:

Código:

Dim SenhaGerada as String
Dim Cont as interger

Abraço.