Undefined Function 'FY' in expression on ACCESS97_Runtime_machine

R

Reiner Harmgardt

Hi NG

i received the following Error message on a machine
running with ACCESS 97 Runtime concerning the function mentioned below.

As far as i know it has something to do with the references
but the problem is, that with the runtime-version i have no
possibility to get on the code-level of the modules.

I already used a tool which i found in the NG to Fixup References
but this could only do the da0350.dll.
Visual Basic for application and ACESS 8.0 Object library,
which are default references could not be fixed.

What possibility do i have to change the situation.

Install the runtime-version again. Does this help.

Thanks for helping

Regards

Reiner


Function FY(xYear, xMonth)

If IsNull(xYear) Then FY = Null: Exit Function
If xYear = 0 Or xMonth = 0 Then
FY = "na"
Exit Function
End If

On Error GoTo Err010
xY = xYear
If xY >= 2000 And xY < 3000 Then
xY = xY - 2000
ElseIf xY >= 1900 And xY < 2000 Then
xY = xY - 1900
End If
On Error GoTo 0

FY = "FY" & Format(xY, "00") & "(" & Format(xY + 1, "00") & ")"
If xY = 99 Then FY = "FY99(00)"
Exit Function

If IsNull(xYear) Then FY = Null: Exit Function
If xYear = 0 Or xMonth = 0 Then
FY = "na"
Exit Function
End If

On Error GoTo Err010
xY = xYear
If xMonth - 3 < 1 Then xY = xYear - 1

If xY >= 2000 And xY < 3000 Then
xY = xY - 2000
ElseIf xY >= 1900 And xY < 2000 Then
xY = xY - 1900
'Else
'GoTo ErrExit
End If
On Error GoTo 0

FY = "FY" & Format(xY, "00") & "(" & Format(xY + 1, "00") & ")"
If xY = 99 Then FY = "FY99(00)"
Exit Function

Err010:
Select Case err
Case 13
GoTo ErrExit
End Select
MsgBox err & Chr(10) & Error
Exit Function

ErrExit:
Resume Next
Msg = "Hier soll gerade '" & xYear & " " & xMonth _
& "' zum Fiscal Year umgewandelt werden!"
MsgBox Msg
Exit Function
End Function
 
Top