[gianniskar]

Καλημερα.Εχψω μια εφαρμογη calendar στην βαση μου.Απο την στιγμη που την ανεβασα σε sql server εχω αυτο το error στην εφαρμογη.Αν την δουλεψω τοπικα δεν εχω προβλημα

το function ειναι αυτο

Function FastFunc(pFunction As String, pField As String, pTable As String, Optional pCriteria As String) As Variant
On Error GoTo Err_FastFunc

With CurrentDb.OpenRecordset("SELECT " & pFunction & "(" & pField & ") FROM " & pTable & IIf(Len(pCriteria), " WHERE " & pCriteria, ""), dbOpenForwardOnly)
If Not .BOF Then FastFunc = .Fields(0)
.Close
End With

Exit_FastFunc:
Exit Function

Err_FastFunc:
Select Case err
Case Else
MsgBox "Error " & err.Number & " (" & err.Description & ") in procedure FastFunc of modFastFunction", vbInformation, "FastFunc Error"
End Select
Resume Exit_FastFunc

End Function