Ощибка 424-object Required

Тема в разделе "Остальные БД", создана пользователем PowerNISo, 27 дек 2010.

  1. PowerNISo

    PowerNISo Гость

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

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

    Код (Text):
    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])

    Заранее всем спасибо
     
Загрузка...
Похожие Темы - Ощибка 424 object
  1. makaset
    Ответов:
    3
    Просмотров:
    3.377

Поделиться этой страницей