MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    Mordomo
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Mordomo em Seg 03 Abr 2017, 14: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:

    [Você precisa estar registrado e conectado para ver este link.]

    "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!
    avatar
    CassioFabre
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 524
    Registrado : 18/01/2013

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

    Mensagem  CassioFabre em Qui 06 Abr 2017, 12: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: Ter 21 Nov 2017, 10:09