Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ ระบบฐานข้อมูล
Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ การเขียนโปรแกรม
Access : เป็นได้ทั้งตัวเก็บฐานข้อมูล และตัวจัดการฐานข้อมูล
Thai Access : บอร์ดเสริมการเรียนรู้ Access ด้วยภาษาไทย

น้อมรำลึกในพระมหากรุณาธิคุณอันหาที่สุดมิได้ พระบาทสมเด็จพระปรมินทรมหาภูมิพลอดุลยเดชฯ พระผู้เสด็จสู่สวรรคาลัย

 << Topic List
ผมกด F8 StepInto สามารถใช้งานได้แต่เวลา Run ตามปกติทำไม่ไม่ได้ครับ

Topic by Message Posted : on : 2/2/2547 10:09:22
ตระการ  ผมมี Code ดังนี้ครับ

Private Sub cmdGiveEdit_Click()
If Not rs1.BOF Then
rs1.Move lstGiveform.Value - 1
rs1!IDCode = txtGiveIDCode.Value
Select Case fraGive.Value
Case 1
rs1!Status = True
Case 2
rs1!Status = False
End Select
If txtGiveDateStart.Value <> "" Then
rs1!DateStart = txtGiveDateStart.Value
End If
If txtGiveDateStart1.Value <> "" Then
rs1!DateStart1 = txtGiveDateStart1.Value
End If
If txtGiveDateEnd <> "" Then
rs1!DateEnd = txtGiveDateEnd.Value
End If
rs1!Name = txtGiveName.Value
rs1!Name1 = txtGiveName1.Value
rs1.Update
End If
lstGiveform.SetFocus
lstGiveform.Requery
txtGiveDateStart.SetFocus
rs1.MoveFirst
End Sub
-------------------------------------------------------
Private Sub lstGiveform_GotFocus()
lstGiveform.Requery
End Sub

จาก Code ดังกล่าวผมต้องการให้เมื่อ Save ข้อมูลแล้ว Listbox ทำการ reQurey ใหม่เพื่อแสดงค่าเป็นปัจจุบันครับ แต่ปัญหาคือ เวลา Run Step Into (F8) โปรแกรมทำงานได้ตามปกติ แต่ Run F5 ปกตินั้น ข้อมูลไม่แสดงเป็นปัจจุบันครับ ไม่ทราบว่าผมต้องทำอย่างไรครับ


1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

Reply by Message on : 2/2/2547 22:36:02
surrealist
(R06364)
เดาก่อนนะครับ ให้ฉุกคิดในเรื่องของ recursive call
ของอีเวนต์ก่อน เช่น โค้ดใน event procedure หนึ่ง
ไปก่อให้เกิดการ trigger อีก event procedure หนึ่ง
แล้วมันก็ไปก่อให้เกิด trigger ... วนไปมาไม่รู้จบ

ไม่เห็นโค้ดทั้งหมดนะครับ ต้องตรวจดูครับ
เช่น lstGiveForm.SetFocus
คงจะทำให้เกิดการ call lstGiveForm_GotFocus()
โดยอัตโนมัติ.


Back to Top
+++ webboard source: ASPThai.Net Webboard 6.0 webbord +++++++ admin : yeadram +++