ผมกด F8 StepInto สามารถใช้งานได้แต่เวลา Run ตามปกติทำไม่ไม่ได้ครับ
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 178   1
URL.หัวข้อ / URL
ผมกด F8 StepInto สามารถใช้งานได้แต่เวลา Run ตามปกติทำไม่ไม่ได้ครับ

ผมมี 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

1 @R06364
เดาก่อนนะครับ ให้ฉุกคิดในเรื่องของ recursive call
ของอีเวนต์ก่อน เช่น โค้ดใน event procedure หนึ่ง
ไปก่อให้เกิดการ trigger อีก event procedure หนึ่ง
แล้วมันก็ไปก่อให้เกิด trigger ... วนไปมาไม่รู้จบ

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

@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0535s