Пример использования модуля MS Access 2010

Я пытаюсь выполнить следующую функцию в MS Access 2010 для дня рождения = 05.05.1958 и получаю возвращаемое значение «неизвестно» вместо «собака». Любая помощь в этом заявлении CASE?

Public Function whichChineseZodiacSign(Birthday As Date)

Select Case whichChineseZodiacSign
Case #2/18/1958# To #2/7/1959#
    whichChineseZodiacSign = "Dog"

Case Else
    whichChineseZodiacSign = "Unknown"
End Select
End Function

Спасибо!


vba ms-access select-case
person TimoLV    schedule 13.07.2017    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Попробуй это:

Option Explicit

Public Function whichChineseZodiacSign(Birthday As Date) As String

    Select Case Birthday
    Case #2/18/1958# To #2/7/1959#
        whichChineseZodiacSign = "Dog"
    Case Else
        whichChineseZodiacSign = "Unknown"
    End Select

End Function

В вашем случае у вас было ложное условие в Select Case.

person Vityata    schedule 13.07.2017