VBA 数据类型错误 - 语法错误？

Question

希望有人能帮助我解决这个问题。我在 Access 2003 中编写了一个查询，该查询结合了链接表“taxon_group_max_per_site” 和交叉表查询“Distinct Species by group_Crosstab”。

在表格中，我有字段“Taxonomic Group”和“Max”，在交叉表中，有字段“Total_Of_Species_S”。

表和交叉表已链接，查询工作正常，直到我添加一些 VBA 以根据 “Max” 和 “Total_Of_Species_S” 为每个分类组提供分数。

下面的代码显示 “错误 13：类型不匹配”

Public Function Invert_Diversity_Score (Total_Of_Species_S As Integer) As Integer

    If Total_Of_Species_S < Round("[Max]*0.5", 0) Then
      Invert_Diversity_Score = 0
    Else
      If Total_Of_Species_S < Round("[Max] * 0.75", 0) Then
        Invert_Diversity_Score = 1
      Else
        If Total_Of_Species_S < Round("[Max] * 0.875", 0) Then
          Invert_Diversity_Score = 2
        Else
          Invert_Diversity_Score = 3
        End If
      End If
    End If

End Function

调试器显示 “[Max]*0.5” 和其他乘法不会产生它所说的数字 "[Max] * 0.5"= "[Max] * 0.5"，我认为这是类型不匹配的根源。如何正确地将字段设置为倍数？它看起来与 VBA 帮助中显示的格式完全相同。

Answer 1

round 函数需要一个数字作为参数，而不是字符串！假设 (max) 是一个数字，你可以计算：

Round([Max] * 0.75, 0)

但

Round("[Max] * 0.75", 0)

绝对不会返回任何可行的东西

Answer 2

“[Max] * 0.875”只是一个字符串，VBA 如何知道您正在引用表之一中的 [Max] 列？

[Max] 不应该作为第二个整数参数传递到函数中吗？像这样的事情：

Public Function Invert_Diversity_Score (Total_Of_Species_S As Integer, 
                        MaxVal as Integer) As Integer

我们需要显示如何调用函数的代码来真正解决这个问题......

Answer 3

其一，您应该使用 ElseIf 关键字，无需在此处堆叠 If。

其次 - "[Max]*0.5" 是什么意思？对于 VB 来说，它是一个字符串，毫不奇怪，它不能与整数相乘。

假设 Max 是某种全局常量：

Public Function Invert_Diversity_Score(Total_Of_Species_S As Integer) As Integer

  If Total_Of_Species_S < Round(Max * 0.5, 0) Then
    Invert_Diversity_Score = 0
  ElseIf Total_Of_Species_S < Round(Max * 0.75, 0) Then
    Invert_Diversity_Score = 1
  ElseIf Total_Of_Species_S < Round(Max * 0.875, 0) Then
    Invert_Diversity_Score = 2
  Else
    Invert_Diversity_Score = 3
  End If

End Function

如果它不是常量，那么您也必须将其传递到函数中：

Public Function Invert_Diversity_Score( _
  Total_Of_Species_S As Integer, _
  Max as Integer _
) As Integer