กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
256 2
URL.หัวข้อ /
URL
เวลาตรวจสอบข้อมูลจาก Recordset แล้วไม่มีมักขึ้น Error
ผมประกาศตัวแปรเป็น Recordset เมื่อเวลาป้อนรหัสลูกค้าแล้วไม่มีรายการนั้นมักขึ้นข้อความให้ End หรือ Debug จะแก้อย่างไรให้เป็น Msgbox ไม่มีข้อมูลครับ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R01655
ให้ใช้ EOF เข้าช่วยครับ
เช่น
Dim dbs As Database, rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * From Table1")
If Not rst.EOF Then
' ทำงานที่ต้องการตรงนี้
End If
rst.Close
dbs.Close
Set rst = Nothing
Set dbs = Nothing
2 @R01670
ขอบคุณครับ
Time: 0.1341s