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

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

    avatar
    Mordomo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 09/06/2016

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

    Mensagem  Mordomo 3/4/2017, 15:11

    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!
    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

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

    Mensagem  CassioFabre 6/4/2017, 13:59

    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.

      Data/hora atual: 28/3/2024, 16:13