Как я могу использовать Select Case и функцию AND в кодировке Access VBA?

Question

Вот что я написал:

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

То, что я пытаюсь сделать, это вернуть числовое значение в поле [BusAns] «5», когда поле [CboBusinessID] является любым из значений в списке (1, 4, 5 и т. д. c.), а поле [TxtPEPCatID] равно «Политически разоблаченный иностранный человек», но следует изменить его на «3», если поле равно «Политически разоблаченный домест * 1006». * Человек". Сейчас он возвращает значение «5» только на основе значения в [CboBusinessID].

Answer 1

Я думаю, это то, что вы ищете:

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