如何在Access VBA编码中同时使用Select Case和and函数？
如何在Access VBA编码中同时使用Select Case和and函数？
提问于 2020-04-17 03:33:20
这是我写的：
Private Sub CboBusinessID_Click()
Select Case CboBusinessID
Case Is = 1, 4, 5, 9, 20, 23, 28, 31, 32, 34 And Me.TxtPEPCatID = "Politically Exposed Foreign Person"
[BusAns] = "5"
Case 1, 4, 5, 9, 20, 23, 28, 31, 32, 34 And Me.TxtPEPCatID = "Politically Exposed Domestic Person"
[BusAns] = "3"
Case Else
[BusAns] = "1"
End Select
End Sub当CboBusinessID字段是列出的任何值(1、4、5等)时，我尝试做的是在BusAns字段中返回一个数值"5“。并且TxtPEPCatID字段等于“政治曝光的外国人”，但当该字段等于“政治曝光的国内人”时，将其更改为"3“。现在，它只根据CboBusinessID中的值返回值"5“。
回答 1
Stack Overflow用户
回答已采纳
发布于 2020-04-17 04:28:09
我猜这就是你要找的：
Private Sub CboBusinessID_Click()
[BusAns] = "1"
Select Case CboBusinessID
Case 1, 4, 5, 9, 20, 23, 28, 31, 32, 34
If Me.TxtPEPCatID = "Politically Exposed Foreign Person" Then
[BusAns] = "5"
ElseIf Me.TxtPEPCatID = "Politically Exposed Domestic Person" Then
[BusAns] = "3"
End If
End Select
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/61258595
复制相关文章
相似问题
腾讯云开发者
