ผมสร้างฟอร์มค้นหารายชื่อสมาชิกที่เิกิดในแต่ละเดือนนั้น โดยใช้วิซาร์ดสร้าง Option Group 13ปุ่ม ออกมาเป็น macro แล้ว convert เป็น vb ซึ่งใช้งานได้ดี ดังนี้
Private Sub SelectMonth_AfterUpdate()
On Error GoTo SelectMonth_AfterUpdate_Err

    With CodeContextObject
        If (.SelectMonth = 1) Then
             DoCmd.ApplyFilter "", "[BirthMonth] Like ""1""", ""       ' เลือก มค.
        End If
        If (.SelectMonth = 2) Then
             DoCmd.ApplyFilter "", "[BirthMonth] Like ""2""", ""        ' กพ
        End If
        If (.SelectMonth = 3) Then
             DoCmd.ApplyFilter "", "[BirthMonth] Like ""3""", ""        ' มีค
        End If
              ....
              ....
              ....
        If (.SelectMonth = 12) Then
            DoCmd.ApplyFilter "", "[BirthMonth] Like ""12""", ""        'ธค.
        End If
        If (.SelectMonth = 13) Then
            DoCmd.ShowAllRecords                                                'เลือกทั้งปี
        End If

        DoCmd.GoToControl "SelectMonth"
        Exit Sub
    End With

SelectMonth_AfterUpdate_Exit:
    Exit Sub

SelectMonth_AfterUpdate_Err:
    MsgBox Error$
    Resume SelectMonth_AfterUpdate_Exit

End Sub

แต่ผมอยากเขียน vb ออกมาเป็น do...case
จึงเอา vb ข้างต้นมาดัดแปลงเป็น
Private Sub SelectMonth_AfterUpdate()
    Select Case Month
        Case SelectMonth = 1
            [BirthMonth] = "1"
        Case SelectMonth = 2
            [BirthMonth] = "2"
        Case SelectMonth = 3
            [BirthMonth] = "3"
              ....
              ....
              ....
        Case SelectMonth = 12
            [BirthMonth] = "12"
        Case SelectMonth = 13
            DoCmd.ShowAllRecords
    End Select

SelectMonth_AfterUpdate_Exit:
    Exit Sub

SelectMonth_AfterUpdate_Err:
    MsgBox Error$
    Resume SelectMonth_AfterUpdate_Exit

End Sub
ปรากฏว่าเอาไปใช้งาน ไม่เกิดผลอะไรออกมาเลย
รบกวนอาจารย์ทั้งหลาย ช่วยดูให้หน่อยว่า ผมเขียนผิดตรงไหน
ขอบคุณล่วงหน้าครับ