访问中查询设计功能的奇怪问题

Question

我在访问中使用查询生成器进行的查询中出现错误消息“条件表达式中的数据类型不匹配”。问题是由查询中的函数引起的。

这是函数：

Function Sudent_Selected_Next_Active_Season(Code_Student, Starting_Date As Date, Code_Project) As Boolean

    Dim MyReturn
    Dim SQLDate
    SQLDate = Format$(Starting_Date, "\#mm\/dd\/yyyy\#")

    MyReturn = DCount("[code_student]", "Project_Termination_level_2", "[Code_Student]=" & Code_Student & " and [ending] > " & SQLDate & " and [code_project] <>" & Code_Project)

    If IsNull(MyReturn) Then
        MyReturn = 0
    End If

    If MyReturn > 0 Then
        Sudent_Selected_Next_Active_Season = True
    Else
        Sudent_Selected_Next_Active_Season = False
    End If

End Function

我尝试了标准 0、-1、“0”、“-1”、True、False，它们都给出了相同的错误。

如果我删除条件并查看数据，则所有行都由 -1 和 0 组成

这是使用的 SQL。

SELECT Sudent_Selected_Next_Active_Season([t_student].[code_student],[T_Project].[starting_date],[T_project].[code_project]) AS ActiveNextSeason
FROM (T_Project INNER JOIN T_Project_Student ON T_Project.Code_Project = T_Project_Student.Code_Project) INNER JOIN T_Student ON T_Project_Student.Code_Student = T_Student.Code_Student
WHERE (((Sudent_Selected_Next_Active_Season([t_student].[code_student],[T_Project].[starting_date],[T_project].[code_project]))=-1)) OR (((Sudent_Selected_Next_Active_Season([t_student].[code_student],[T_Project].[starting_date],[T_project].[code_project]))=-1));

如果有人能告诉我在哪里可以找到解决方案，我将不胜感激。如果有人想了解更多信息，请尽管询问。

Answer 1

不知道为什么您的 WHERE 子句中有两次相同的条件，但一般来说，如果出现这些错误，您需要转换一侧的数据类型以匹配另一侧。 您可以将函数的返回值更改为integer，将boolean 返回值转换为integer，或将-1 转换为boolean。

如果您已将函数的返回值更改为整数，那么与 -1 的比较不应给您带来数据类型转换错误。试试这个：

SELECT  
    s.code_student,p.starting_date,p.code_project,
    Sudent_Selected_Next_Active_Season(s.code_student,p.starting_date,p.code_project) AS ActiveNextSeason
FROM 
    T_Project p INNER JOIN 
    T_Project_Student ps    ON 
    p.Code_Project = ps.Code_Project INNER JOIN 
    T_Student s ON 
    ps.Code_Student = s.Code_Student
WHERE
 Sudent_Selected_Next_Active_Season(s.code_student,p.starting_date,p.code_project)=-1