Ощибка 424-object Required

  • Автор темы PowerNISo
  • Дата начала
P

PowerNISo

Гость
#1
Привет всем.
Люди добрые, помогите кто может, я написал функцию где аргументами будут являться результатные ячейки из Запроса. Вроде все в порядке, но выдает ошибку 424-Object required. Код этой функции следующее:

-----------------------------------------------------------------------------------------------------------------------

Код:
Public Function gir_data(Miqdar, u1, u2 As Double, ed1, ed2, ed3 As String, R1 As Integer) As String
On Error GoTo sehv
Dim AAA, BBB, CCC As Double
Dim Baza As Database

Set Baza = CurrentDb
AAA = Fix(Abs(Miqdar) / u1 / u2)
BBB = ((Abs(Miqdar) / u1 / u2) - AAA)
CCC = BBB * u1 * u2

If (Miqdar Is Null Or Miqdar = 0) Then
gir_data = Null
Exit Function
ElseIf (Miqdar < 0 And R1 = 1) Then
gir_data = "-" & Abs(Miqdar) & ed1
Exit Function
ElseIf (Miqdar < 0 And R1 = 3) Then
gir_data = "-" & AAA & ed3
Exit Function
ElseIf (Miqdar > 0 And R1 = 3) Then
gir_data = AAA & ed3
Exit Function
End If

Cixis:
Exit Function

sehv:
'gir_data = Err.Number & " - " & Err.Description
gir_data = Round(AAA, 3) & ed3
Resume Cixis

End Function
-----------------------------------------------------------------------------------------------------------------------

Я пытаюсь юзать эту функцию следующим образом:

=gir_data([Giris], [u1_in_u2], [u2_in_u3], [unit_1], [unit_2], [unit_3], [hesabat])

Заранее всем спасибо