กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
287 3
URL.หัวข้อ /
URL
ผ่านค่าจาก Main Form ไปยัง Sub Form แล้วนำค่าไป query ??
ถามเพิ่มเติมครับ
*** Event ส่วน Main Form ***
Private Sub TxtStart_AfterUpdate()
strChr = Me.TxtStart
Forms!HRMKey!WorkData1.Form!TxtExactDate = strChr
End Sub
*** Event ส่วน Subform ****
Private Sub TxtExactDate_AfterUpdate()
Me.RecordSource = "Select * From WorkData1 Where WorkEachMonth Like '" & Me!TxtExactDate & "*'"
End Sub
คือ ตอนนี้ ผมทำการผ่านค่า จาก Main Form ไปยัง subform ได้แล้ว แต่ไม่สามารถเอาค่าที่ผ่านมา
มาใช้ Query ได้ ไม่ว่าจะลองเป็น AfterUpdate, BeforeUpdate, Change Event แล้ว ไม่ทราบว่า
ต้องทำอะไรเพิ่มเติม ไม่ครับ ถึงจะให้มันผ่านค่ามาแล้วใช้งานได้
ลำพังถ้าป้อนค่าไปตรง ๆ ที่ TxtExactDate ของ Subform มันจะ Query ให้ครับ แต่ถ้ามาป้อนที่ Main Form แล้ว Query มันไม่ได้
*** Event ส่วน Main Form ***
Private Sub TxtStart_AfterUpdate()
strChr = Me.TxtStart
Forms!HRMKey!WorkData1.Form!TxtExactDate = strChr
End Sub
*** Event ส่วน Subform ****
Private Sub TxtExactDate_AfterUpdate()
Me.RecordSource = "Select * From WorkData1 Where WorkEachMonth Like '" & Me!TxtExactDate & "*'"
End Sub
คือ ตอนนี้ ผมทำการผ่านค่า จาก Main Form ไปยัง subform ได้แล้ว แต่ไม่สามารถเอาค่าที่ผ่านมา
มาใช้ Query ได้ ไม่ว่าจะลองเป็น AfterUpdate, BeforeUpdate, Change Event แล้ว ไม่ทราบว่า
ต้องทำอะไรเพิ่มเติม ไม่ครับ ถึงจะให้มันผ่านค่ามาแล้วใช้งานได้
ลำพังถ้าป้อนค่าไปตรง ๆ ที่ TxtExactDate ของ Subform มันจะ Query ให้ครับ แต่ถ้ามาป้อนที่ Main Form แล้ว Query มันไม่ได้
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R00922
ตอนที่ลองเปลี่ยนค่าในช่อง TxtStart มีอะไรเปลี่ยนแปลงในซับฟอร์มตรงช่อง TxtExactDate หรือเปล่าครับ
ให้ลองเปลี่ยนเป็น
Private Sub TxtExactDate_AfterUpdate()
Me.RecordSource = "Select * From WorkData1 Where WorkEachMonth Like '" & Me.Parent.TxtStart & "*'"
Me.Requery
End Sub
ดูครับ
2 @R00928
เรียน อาจาร์ยสุภาพ ครับ
ตอนที่ใส่วันที่ ใน TxtStart เช่นวันที่ 12/09/02 ตรง TxtExactDate ก็มีการเปลี่ยนแปลงคือ
แสดงวันที่ 12/09/02 ตาม TxtStart เช่นกันครับ
แต่ดูเหมือนว่า Event ของ Private Sub TxtExactDate_AfterUpdate() มันไม่ทำงานครับ
เพราะผมลอง Set Breakpoint ไว้ใน Event TxtExactDate_AfterUpdate() มันไม่เข้ามาใน
Event นี้เลยครับ ไม่ว่าจะลอง Event Change ก็ไม่ได้ครับ
3 @R00931
งั้นลองเปลี่ยนเป็นอย่างนี้ดูครับ
Private Sub TxtStart_AfterUpdate()
strChr = Me.TxtStart
Forms!HRMKey!WorkData1.Form.RecordSource = "Select * From WorkData1 Where WorkEachMonth Like '" & strChr & "*'"
Forms!HRMKey!WorkData1.Requery
End Sub
Time: 0.0468s
