Function ImeProcedure(Argument1, argument2)
On Error GoTo Greska

DoCmd.OpenForm "Imenekeforme"
If Argument1 > 100 Then
Err.Number = 1024
GoTo Greska
Else
Err.Number = 7000
GoTo Greska
End If
Izlaz:
Exit Function
Greska:
Select Case Err.Number
Case 1024
MsgBox "Argument1 nije u okviru dozvoljenog"
Case 2102
MsgBox "Trazeni podaci nisu nadjeni"
Case Else
MsgBox "Nepoznata greska u proceduri " & "Ime procedure"
End Select
Kraj:
End Function