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:
Quando dou OK, ele abre o editor do VBA enfatizando o "Mid".
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.
Há algum modo conhecido de corrigir isso? Dá pra instalar essa biblioteca independentemente?
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:
Quando dou OK, ele abre o editor do VBA enfatizando o "Mid".
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?