Question

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

数据库包含＆＃39;患者ID，姓名，日期，价值等字段。＆＃34;。

在价值领域，一些患者有心理健康等注意事项。或者＆＃39; Broken Bone＆＃39;。我在Access中创建了一个函数，用其他东西替换Value字段中的单词。例如，通过心理健康，我会将其改为抑郁症。

Option Compare Database

选项明确

Public Function MapDiagnosis（_ strDiagnosis As String）_ 作为字符串＆＃39;将诊断映射到友好名称如果是InStr（strDiagnosis，＆＃34;心理健康＆＃34;）＆gt; 0然后 MapDiagnosis =＆＃34;抑郁症＆＃34; 其他如果是InStr（strDiagnosis，＆＃34; Gyneacological＆＃34;）＆gt; 0然后 MapDiagnosis =＆＃34;怀孕＆＃34; 其他

    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

结束如果

我不知道该怎么做才能在＆＃39;立即＆＃39;上运行脚本。 VBA上的窗口，允许我确定单词是否会改变。

脚本如下。

?MapDiagnosis(strDiagnosis) = "Mental Health"

我不确定为什么上面的脚本没有在即时窗口上运行。

有什么建议吗？

Answer 1

类型：

?MapDiagnosis("Mental Health")

进入立即窗口。

确定Access Database立即窗口脚本中的函数返回

1 个答案: