在 Access Database Immediate window 脚本中确定函数 return

Question

我创建了一个 Access 数据库，其中包含我们私人医疗机构在过去一年中预约过的所有患者。

数据库包含“患者 ID、姓名、日期、值等”等字段。

在值字段中，一些患者有'Mental health'或'Broken Bone'等注释。我在 Access 中创建了一个函数，它将值字段中的一个词替换为其他内容。例如，对于心理健康，我会将其更改为抑郁症。

Option Compare Database

选项显式

Public 函数 MapDiagnosis( _ strDiagnosis 作为字符串) _ 作为字符串 '将诊断映射到友好名称如果 InStr(strDiagnosis, "Mental Health") > 0 那么地图诊断 = "depression" 别的如果 InStr(strDiagnosis, "Gyneacological") > 0 那么地图诊断 = "pregnant" 其他

    MapDiagnosis = "other"
If InStr(strDiagnosis, "Gastritis") > 0 Then
    MapDiagnosis = "indigestion"
Else

If InStr(strDiagnosis, "Muscular") > 0 Then
    MapDiagnosis = "muscle pain"
Else

If InStr(strDiagnosis, "Cardiovascular") > 0 Then
    MapDiagnosis = "heart"
Else

If InStr(strDiagnosis, "Broken Bones") > 0 Then
    MapDiagnosis = "Fracture"
Else

If InStr(strDiagnosis, "No underlying cause") > 0 Then
    MapDiagnosis = "None"

End If

End If

End If

End If

End If

End If

如果

结束

我不知道如何做的是运行 'Immediate' window VBA 上的脚本，它允许我确定文字是否会改变.

脚本如下。

?MapDiagnosis(strDiagnosis) = "Mental Health"

我不确定为什么上面的脚本没有立即运行ning window。

有什么建议吗？

Answer 1

类型：

?MapDiagnosis("Mental Health")

立即进入window。

在 Access Database Immediate window 脚本中确定函数 return

Determine function return in Access Database Immediate window script

ms-access