กระทู้เก่าบอร์ด อ.Yeadram
1,631 5
URL.หัวข้อ /
URL
สั่ง goto record ไม่มีข้อมูลแล้ว Error
ผมสั่ง DoCmd.GoToRecord , , acFirst กับ query ที่ไม่มีข้อมูลแล้วขึ้น Error จะต้องสั่งยังไงว่าถ้าไม่พบข้อมูลก็ไม่ต้อง gotorecord
5 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R06839
ถ้าจะหาว่าถ้าเป็น BOF หรือ EOF ก็ไม่ต้อง GoToRecord ได้ไหมครับ
รบกวนอีกแล้วครับ (เห็นยังว่ามือใหม่สุดๆ)
แล้วถ้ามัน Error แล้วมันจะกลับไปยัง Record เดิมยังไงละครับ
รบกวนอีกแล้วครับ (เห็นยังว่ามือใหม่สุดๆ)
แล้วถ้ามัน Error แล้วมันจะกลับไปยัง Record เดิมยังไงละครับ
3 @R06840
ก็เลือกเอาครับว่าจะใช้แบบไหน
จะตรวจสอบก่อนว่าเป็น BOF,EOF ก่อนก็ได้
---------------------
กรณีใช้ On Error
ถ้าใช้ GotoRecord แล้วเกิดข้อผิดพลาดขึ้น ผมว่ามันก็ไม่น่าจะกระโดด
ไปยังเรคคอร์ดที่ไม่มีอยู่จริง ดังนั้นก็ไม่ต้องกังวลว่าจะกลับไปยังไง
จะตรวจสอบก่อนว่าเป็น BOF,EOF ก่อนก็ได้
---------------------
กรณีใช้ On Error
ถ้าใช้ GotoRecord แล้วเกิดข้อผิดพลาดขึ้น ผมว่ามันก็ไม่น่าจะกระโดด
ไปยังเรคคอร์ดที่ไม่มีอยู่จริง ดังนั้นก็ไม่ต้องกังวลว่าจะกลับไปยังไง
4 @R06842
แล้วใช้ฟังก์ชั่นอะไรในการตรวจสอบว่าเป็น BOF หรือ EOF ครับ
หาไม่เจอ
หาไม่เจอ
5 @R06843
สำหรับ DAO, ADO
-----------------------
IF ([recordset].BOF) then
....
End IF
แต่ถ้าเป็น bound-form
-----------------------
อันนี้ผมไม่แน่ใจว่าจะมี property นี้หรือเปล่านะ
เพราะปกติผมไม่ใช้ bound-form
Form![name].Recordset.BOF
หรือ Form![name].RecordSource.Recordset.BOF
หรือ Form![name].Form.Recordset.BOF
ประมาณนี้แหละครับ ผมก็จำไม่ได้
สำหรับอันหลังนี้ต้องขอโทษด้วยคำตอบไม่ชัดเจนเพราะตอนที่ตอบนี้ผมไม่ได้เปิด
Windows ยังไงก็รอให้ท่านอื่น ๆ มาช่วยตอบละกัน แต่ถ้ายังไม่มีก็รอคำตอบ
วันหลังละกันครับ
-----------------------
IF ([recordset].BOF) then
....
End IF
แต่ถ้าเป็น bound-form
-----------------------
อันนี้ผมไม่แน่ใจว่าจะมี property นี้หรือเปล่านะ
เพราะปกติผมไม่ใช้ bound-form
Form![name].Recordset.BOF
หรือ Form![name].RecordSource.Recordset.BOF
หรือ Form![name].Form.Recordset.BOF
ประมาณนี้แหละครับ ผมก็จำไม่ได้
สำหรับอันหลังนี้ต้องขอโทษด้วยคำตอบไม่ชัดเจนเพราะตอนที่ตอบนี้ผมไม่ได้เปิด
Windows ยังไงก็รอให้ท่านอื่น ๆ มาช่วยตอบละกัน แต่ถ้ายังไม่มีก็รอคำตอบ
วันหลังละกันครับ
Time: 0.2326s
*******************
On Eror GoTo [Label]
...
...
[Label]:
MsgBox ("Error " & Err.Description) ' Tell user what wrong
Exit {Sub | Function}