如何在Access VBA编码中同时使用Select Case和and函数？

这是我写的：

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”。

我想这就是您要寻找的：

Private Sub-CboBusinessID_Click（）
[釜山]=“1”
选择案例CboBusinessID
案例1、4、5、9、20、23、28、31、32、34
如果Me.txtpecatid=“政治曝光的外国人”，则
[釜山]=“5”
ElseIf Me.txtpecatid=“政治曝光的国内人士”然后
[釜山]=“3”
如果结束
结束选择
端接头

我想这就是你想要的：

Private Sub-CboBusinessID_Click（）
[釜山]=“1”
选择案例CboBusinessID
案例1、4、5、9、20、23、28、31、32、34
如果Me.txtpecatid=“政治曝光的外国人”，则
[釜山]=“5”
ElseIf Me.txtpecatid=“政治曝光的国内人士”然后
[釜山]=“3”
如果结束
结束选择
端接头

看看这个：这是否回答了您的问题？看看这个：这能回答你的问题吗？