Dim recCNT As Long
    recCNT = DCount(ตัวแปร, คิวรี่)
    If recCNT <> 0 Then
    
    Else

    Msgbox
     
    End if

- ถ้าเป็นกรณี SELECT statement ก็ตรวจจาก .RecordCount property ของ Recordset object ที่เป็นตัวเก็บเรคอร์ดเหล่านั้น หรือจะตรวจจาก .EOF property ก็ได้เช่นกัน ตย.เช่น

Dim RS As DAO.Recordset
Set RS = CurrentDB.OpenRecordset("SELECT ...")
If RS.RecordCount = 0 Then ' ไม่มีข้อมูล
หรือ
If RS.EOF Then ... ' ไม่มีข้อมูล

- ถ้าเป็นกรณี INSERT, UPDATE, DELETE statement ก็ให้เช็คจาก RecordsAffected property ของ Database object หรือ QueryDef object แล้วแต่ว่าอ๊อปเจ็คไหนที่เป็นตัวสั่ง .Execute method เพื่อรัน SQL นั้นๆ ค่าที่ได้จะเป็นจำนวนเรคอร์ดที่เป็นผลจากคำสั่ง SQL นั้น ตย.เช่น

Dim DB As DAO.Database
Set DB = CurrentDB
DB.Execute "UPDATE ..."
If DB.RecordsAffected = 0 Then ' ไม่มีข้อมูล

ขอขอบคุณ อาจารย์ทั้งสองท่านค่ะ

หนูจะนำไปทดลองเดี๋ยวนี้เลยค่ะ หากยังติดขัดประการใด หนูจะขอรบกวนเข้ามาถามเพิ่มเติมอีกนะคะ

ขอบคุณค่ะ