[ Συναρτήσεις ] Error Number : 3146,ODBC--call failed

[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

[gianniskar]

Φενεται να λυθηκε το προβλημα .Διεγραψα τον πινακα απο την access και τον Sql και αυτη την φορα τον δημιουργησα απευθειας στον sql server οπου μετα τον συνδεσα μεσω DSN στην access παλι.