VBA 函数在 sql 查询中不起作用：查询中未定义的函数

Question

我是 vba 新手，所以请原谅任何词汇失礼。我的函数是一个非常基本的 if 语句。调试时运行良好，但是当我从查询中调用它时，我得到了可怕的“查询中未定义的函数”错误。以下是我从 我的查询中调用它的方式：color2: ItemColor([Color])。目的是取一个库存ID，根据ID码拉出颜色。这个函数最终会针对大量颜色（超过7种）进行扩展，所以我不能在查询中使用iif函数。我想先用几个颜色选项来测试 vba。

这是我的代码：

Public Sub ItemColor()

If [Color] = "01" Then
    MsgBox "natural"

  Else
     MsgBox "shell"
  End If
End Sub

[Color] 是同一查询中的字段。 [Color] 是使用 Mid 函数从 ID 字段中提取的字符串。这个vba函数可以在这样的领域工作吗？

可能是因为我使用的是 msgbox 吗？我尝试使用 Dim，（请参阅下面的代码）但它仍然无法正常工作。也许我的语法错误？

Public Sub ItemColor()
Dim appearance As String

If [Color] = "01" Then
     appearance "natural"

  Else
     appearance "shell"
  End If
End Sub

Answer 1

首先，您需要一个函数来返回一个值，这就是为什么错误状态为未定义函数的原因。如果您想根据提供的数字对返回值进行硬编码，请尝试以下代码：

Public function getColor(colorID) as string
    Dim strColor as string

    Select case colorID
        Case 1
            StrColor = "color name"
        Case 2
            Strcolor = "different color"
    End select
    Getcolor = strcolor
End function