Run-time error '94'

Среда, 05 Марта 2014 г. 13:13 + в цитатник

День добрый.
Помогите найти ошибку. В наследство досталась база, до недавнего времени все работало относительно нормально.
Недавно некорректно стал работать один очень важный запрос на добавление информации, сразу вылетает дэбаггер и указывает на эту строчку:

Public Function &#209;&#242;&#238;&#232;&#236;&#238;&#241;&#242;&#252;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255;(&#207;&#235;&#238;&#249;, &#210;&#224;&#240;&#232;&#244;&#195;, &#210;&#224;&#240;&#232;&#244;&#207;&#238;&#209;&#247;, &#196;&#237;&#229;&#233;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255;, &#196;&#237;&#229;&#233;&#194;&#204;&#229;&#241;&#255;&#246;&#229;, &#210;&#229;&#239;&#235;&#238;&#241;&#247;, &#206;&#242;&#234;&#224;&#231;&#237;&#232;&#234;&#232;, &#207;&#243;&#237;&#234;&#242;, &#207;&#240;&#232;&#224;&#231;&#238;&#226;&#234;&#224;, &#193;&#240;&#232;&#237;&#252;&#234;&#238;&#226;&#241;&#234;&#224;&#255;, &#192;&#245;&#242;&#224;&#240;&#241;&#234;&#232;) As Currency
 
 
 If (IsNull(&#207;&#235;&#238;&#249;) = False) And (IsNull(&#196;&#237;&#229;&#233;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255;) = False) Then
 If (&#210;&#229;&#239;&#235;&#238;&#241;&#247; = -1) And (&#206;&#242;&#234;&#224;&#231;&#237;&#232;&#234;&#232; = 0) Then
   &#209;&#242;&#238;&#232;&#236;&#238;&#241;&#242;&#252;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255; = Round(&#207;&#235;&#238;&#249; * &#210;&#224;&#240;&#232;&#244;&#207;&#238;&#209;&#247;, 2)
 Else
Dim g, b, c, d, e As String
 g = "Ãîðîä"
 b = "õ.Ñàäêè"
 c = "ïîñ. Àõòàðñêèé"
 d = "ïîñ.Ïðèàçîâñêèé"
 e = "ñò. Áðèíüêîâñêàÿ"
   If &#207;&#243;&#237;&#234;&#242; = g Or &#207;&#243;&#237;&#234;&#242; = b Then &#209;&#242;&#238;&#232;&#236;&#238;&#241;&#242;&#252;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255; = Round(&#207;&#235;&#238;&#249; * &#210;&#224;&#240;&#232;&#244;&#195; * &#196;&#237;&#229;&#233;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255; / &#196;&#237;&#229;&#233;&#194;&#204;&#229;&#241;&#255;&#246;&#229;, 2)
  If &#207;&#243;&#237;&#234;&#242; = d Then &#209;&#242;&#238;&#232;&#236;&#238;&#241;&#242;&#252;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255; = Round(&#207;&#235;&#238;&#249; * &#207;&#240;&#232;&#224;&#231;&#238;&#226;&#234;&#224; * &#196;&#237;&#229;&#233;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255; / &#196;&#237;&#229;&#233;&#194;&#204;&#229;&#241;&#255;&#246;&#229;, 2)
 If &#207;&#243;&#237;&#234;&#242; = e Then &#209;&#242;&#238;&#232;&#236;&#238;&#241;&#242;&#252;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255; = Round(&#207;&#235;&#238;&#249; * &#193;&#240;&#232;&#237;&#252;&#234;&#238;&#226;&#241;&#234;&#224;&#255; * &#196;&#237;&#229;&#233;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255; / &#196;&#237;&#229;&#233;&#194;&#204;&#229;&#241;&#255;&#246;&#229;, 2)
If &#207;&#243;&#237;&#234;&#242; = c Then &#209;&#242;&#238;&#232;&#236;&#238;&#241;&#242;&#252;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255; = Round(&#207;&#235;&#238;&#249; * &#192;&#245;&#242;&#224;&#240;&#241;&#234;&#232; * &#196;&#237;&#229;&#233;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255; / &#196;&#237;&#229;&#233;&#194;&#204;&#229;&#241;&#255;&#246;&#229;, 2)
  
   
 End If
 End If
End Function

После закрытия дэбаггера выдает сообщение, что значение NULL присвоено след числу полей-4117 (ошибка преобразования типа).
Access только начинаю постигать, подскажите что здесь может быть не так?

http://www.sql.ru/forum/1080925/run-time-error-94