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

    [Resolvido]Aviso de biblioteca ausente no Access 2013

    Tityus
    Tityus
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 19/05/2012

    [Resolvido]Aviso de biblioteca ausente no Access 2013 Empty Aviso de biblioteca ausente no Access 2013

    Mensagem  Tityus 3/10/2012, 14:47

    Olá pessoal

    Me desculpem se a dúvida for muito básica, mas estou começando a aprender como funciona a programação em VBA.

    Meu problema é o seguinte: tenho um banco de dados com uma fórmula para o algoritmo de Luhn que unciona perfeitamente no Access 2010. O banco em si, provavelmente por conta de layout, não abre no Access 2007. Assim, uso em casa normalmente no 2010, mas no trabalho, que sõ tem 2007, não consigo visualizá-lo. Para tentar visualizá-lo sem instalar software pirata no trabalho, decidi tentar utilizar o Office 2013 preview (beta). Porém, quando abro o banco, ele dá o aviso:


    [Resolvido]Aviso de biblioteca ausente no Access 2013 Avisox



    Quando dou OK, ele abre o editor do VBA enfatizando o "Mid".

    [Resolvido]Aviso de biblioteca ausente no Access 2013 Vbad



    Segue código completo da função abaixo. Vale ressaltar que eu não fiz essa função, achei em algum lugar e já não me lembro onde. e testei bastante, sempre funcionou. Ela também não é essencial para que eu visualize os meus dados, só ajuda na hora de preencher registros.

    Código:

    'Verifica o DV perfeitamente

    Public Function IsLuhnChecksumOK(Number_String As String) As Boolean

      Dim Digit As Integer
      Dim i As Integer
      Dim N As Integer
      Dim Result As Integer
      Dim SumDigits As Integer
      Dim nDigits As Integer
     
        SumDigits = 0
        nDigits = Len(Number_String)
       
          For i = nDigits To 1 Step -1
            Digit = CInt(Mid(Number_String, i, 1))
            N = N + 1
              If N Mod 2 = 0 Then Digit = Digit * 2
              If Digit > 9 Then Digit = Digit - 9
            SumDigits = SumDigits + Digit
          Next i
       
        Result = SumDigits Mod 10
       
        If Result = 0 Then
          IsLuhnChecksumOK = True
        End If
       
    End Function

    Há algum modo conhecido de corrigir isso? Dá pra instalar essa biblioteca independentemente?
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Aviso de biblioteca ausente no Access 2013 Empty Re: [Resolvido]Aviso de biblioteca ausente no Access 2013

    Mensagem  criquio 3/10/2012, 14:50

    Entre em um módulo qualquer, vá no menu Ferramentas > Referências e desmarque as referências AUSENTEs. Caso elas sejam necessárias ao projeto, precisará copiá-las ou atualizá-las para versões mais recentes. Caso contrário, basta desmarcar.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Tityus
    Tityus
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 19/05/2012

    [Resolvido]Aviso de biblioteca ausente no Access 2013 Empty Re: [Resolvido]Aviso de biblioteca ausente no Access 2013

    Mensagem  Tityus 3/10/2012, 15:04

    Funcionou, não deu mais o aviso e a fórmula está operante novamente, muito obrigado!
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Aviso de biblioteca ausente no Access 2013 Empty Re: [Resolvido]Aviso de biblioteca ausente no Access 2013

    Mensagem  criquio 3/10/2012, 16:45

    Grato pelo retorno. O fórum agradece.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Aviso de biblioteca ausente no Access 2013 Empty Re: [Resolvido]Aviso de biblioteca ausente no Access 2013

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 05:03