Компактная формула

[Studik]

Здравствуйте! Не получается создать компактную формулу для поля Index параметр "Условие на значение". Задача: Проверить число из поля index (8 символов, ни больше ни меньше) на корректность введения, путем проверки контрольной суммы.
Контрольная сумма подсчитывается путем сложения чисел разрятов возведенных в степень своего разрадного номера и полученный результат делится на 8 пока результат не станет меньше нуля, а первая цифра десятичного числа и будет контрольной суммой.
например число 8562907 3 - где 3 - контрольная сумма
8^7 + 5^6 + 6^5 + 2^4 + 9^3 + 0^2 + 7^1 + 3^0 = 2 121 306
2121306/8= 265163.25/8= 33145.40625/8= 4143.17578125/8= 517.89697265625/8= 64.73712158203125/8= 8.09214019775390625/8= ... =0.1264397
Контрольная мумма (=1) 1<>3 не сходится номер введен не верно.
Возможно ли вообще реализовать данную задачу, и вопрос на засыпку: Ну почему я не нашел в Access операцию (a)div(b)??? и есть ли замена этой операции... Всем спасибо за внимание и главное за ответы))))
И пожалуй главный вопрос, как добавить свою функцию через редактирование кода VBA?

[Studik]

Неужеле ни кто не знает как создать и использовать новую свою функцию в Access??

[R Dmitry]

Сообщение от Studik

Неужеле ни кто не знает как создать и использовать новую свою функцию в Access??

Здравствуйте.
Ну почему ни кто
вот пример функции

Function thk(sp_str As String)
Dim a()
a = Split(sp_str, ".")
thk = a(0)
End Function

Alt+F11
далее insert - module
ДАЛЕЕ пишем свою функцию, примерно как я Вам написал выше, и .... Ваша функция готова
можете поискать и в интернете...
например здесь http://www.askit.ru/custom/vba_offic...ffice_plan.htm

[R Dmitry]

Function Studik(std As String) As Boolean
Dim i&, j&, BsL, sL
j = 8
For i = 1 To Len(std)
sL = Mid(std, i, 1) ^ j: j = j - 1
BsL = BsL + sL
Next
Do While BsL > 1
BsL = BsL / 8
Loop
If Mid(CStr(BsL), 3, 1) = Mid(std, 8, 1) Then Studik = True Else Studik = False
End Function
Вот Ваша функция, возвращает ИСТИНА ЛОЖЬ

С Новым Годом!

[Studik]

Спасибо, большое. И всего самого в Новом году)