P
PowerNISo
Привет всем.
Люди добрые, помогите кто может, я написал функцию где аргументами будут являться результатные ячейки из Запроса. Вроде все в порядке, но выдает ошибку 424-Object required. Код этой функции следующее:
-----------------------------------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------------------------------
Я пытаюсь юзать эту функцию следующим образом:
=gir_data([Giris], [u1_in_u2], [u2_in_u3], [unit_1], [unit_2], [unit_3], [hesabat])
Заранее всем спасибо
Люди добрые, помогите кто может, я написал функцию где аргументами будут являться результатные ячейки из Запроса. Вроде все в порядке, но выдает ошибку 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])
Заранее всем спасибо