แนวทางการแก้ไข error '94' invalid use of null

[Tongo]

เจอ error 94 Invalid use of null ครับ

โค๊ด: [Select]

DateFrom = DateSerial(Me.combo_year, Me.combo_month, 1)

โค๊ด: [Select]

DateTo = DateSerial(Me.combo_year, Me.combo_month + 1, 0)
ที่อยากให้เกิดขึ้นคือ ถ้ามือลั่นไปกดปุ่ม สมมติชื่อ cmd_ok โดยยังไม่ได้ใส่ค่าใน combo_year หรือ combo_month (ซึ่งจะทำให้ DateFrom ว่างเปล่าและ error 94) ให้มีกล่องข้อความขึ้นมาว่า "Please select month and year" จะต้องเขียนโค้ดอย่างไรครับ

[nonc31]

Private Sub tro_Click()
On Error GoTo monx 'monx=ชื่อแถวที่จะวิ่งไป
     เงื่อนไขต่างๆ.....

monx:
    Select Case Err
        Case 94
            'เงื่อนไข ที่จะให้ทำ ในที่นี้ให้แสดงข้อความ
            msgbox "Please select month and year"
        Case Else
            MsgBox "Error " & Err.Number, vbCritical
    End Select
End Sub

[สันติสุข]

อีกวิธีครับ https://www.thai-access.com/index.php?topic=640.0

[Tongo]

แก้ไขได้แล้วครับ ขอบคุณทั้งสองท่านมากๆครับ