ทำฟอร์มค้นหาระหว่างวันจะแก้ error เมื่อค้นหาแล้วลืมใส่วันที่ใน txtbox

[kom-kub]

ผมทำฟอร์ค้นหาโดยมีวันเริ่มต้นค้นหา และสิ้นสุดค้นหา คือถ้าใส่วันที่ใน txtbox ในการค้นหาจะค้นหาได้ตามปกติแต่พอไม่ใส่ค่าใน txtbox จะเกิด error ผมต้องการจะให้ access เตือนให้ใส่ข้อมูลวันที่ให้เรียบร้อยก่อนจะต้องเขียน code อย่างไรต่อครับ

[PNR]

ใช้ IF Check สถานะ textbox ก่อนก็ได้ครับ เช่น

Private Sub Command107_Click()
If IsNull(Me.txt_Start) Or IsNull(Me.txt_End) Then
MsgBox "กรุณาระบุวันที่ให้เรียบร้อยก่อน", vbInformation, "แจ้งเตือน!!"
Else
ใส่โค้ดค้นหาอันเดิมตรงนี้ได้เลย
End If
End sub

หรือเปลี่ยนโค้ดมาใช้แบบนี้ก็ได้ครับเป็นการกำหนด RecordSource
ผมสมมุติตารางของข้อมูลชื่อ Table1

Private Sub Command107_Click()
If IsNull(Me.txt_start) Or IsNull(Me.txt_end) Then
MsgBox "กรุณาระบุวันที่ให้เรียบร้อยก่อน", vbInformation, "แจ้งเตือน!!"
Else
Me.RecordSource = "SELECT * FROM Table1 WHERE (((Table1.[Posting Date]) Between [forms]![frm_service invoice]![txt_start] And [forms]![frm_service invoice]![txt_end])) ORDER BY Table1.[Posting Date];"
End If
End Sub