กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
347 6
URL.หัวข้อ /
URL
ดึงข้อมูลยังไงดีครับ
คือผมมีค่า ๆ หนึ่ง (txtSumTotal) อยู่ใน Sub Form (สมมติว่าชื่อ sfrmFile1) ที่เกิดจากการคำนวนนะครับ ซึ่งอยู่ใน Main Form (สมมติว่าชื่อ frmFile1)
1. ผมมีปุ่มใน frmFile1 เพื่อเรียก rptFile1
2. ผมดึงค่า ๆ นี้มาใส่ใน Report (rptFile1) โดยใช้
[Forms]![frmFile1]![sfrmFile1].[Form]![txtSumTotal]
3. ค่านี้ไม่ปรากฎออกมาให้เห็นครับ แต่พอผมเข้าไปใน Design View ของ rptFile1 แล้วกลับออกมา
อีกครั้งหนึ่ง ค่านี้ปรากฎออกมาให้เห็นครับ
4. คำถามคือทำไมถึงเป็นอย่างนี้ครับ แล้วจะทำอย่างไรถึงจะทำให้ค่านี้ปรากฎออกมาตั้งแต่แรก โดยไม่
ต้องเข้าไปใน Design View ก่อน
ขอบคุณมาก ๆ ครับ
1. ผมมีปุ่มใน frmFile1 เพื่อเรียก rptFile1
2. ผมดึงค่า ๆ นี้มาใส่ใน Report (rptFile1) โดยใช้
[Forms]![frmFile1]![sfrmFile1].[Form]![txtSumTotal]
3. ค่านี้ไม่ปรากฎออกมาให้เห็นครับ แต่พอผมเข้าไปใน Design View ของ rptFile1 แล้วกลับออกมา
อีกครั้งหนึ่ง ค่านี้ปรากฎออกมาให้เห็นครับ
4. คำถามคือทำไมถึงเป็นอย่างนี้ครับ แล้วจะทำอย่างไรถึงจะทำให้ค่านี้ปรากฎออกมาตั้งแต่แรก โดยไม่
ต้องเข้าไปใน Design View ก่อน
ขอบคุณมาก ๆ ครับ
6 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R01817
ที่Properties ของ Textbox ใน rptFile1ที่ต้องการนำค่าออกมา Show
ตรง ข้อมูล > แหล่งควบคุม > = Forms!MainForm_Name!SubFormName!txtSumTotal
ผมลองใส่แบบนี่ก็ออกนะครับ ไม่ต้องใส่ .Form หลัง Sub Form
2 @R01821
ลองทำตามดูแล้วครับ แต่ผลยังเหมือนเดิม คือ click ปุ่มเข้าไปดูใน rptFile1 มองไม่เห็นค่า แต่พอเข้าไปใน Design View แล้วกลับออกมาถึงมองเห็นค่าครับ ไม่ทราบว่าควรแก้ไขจุดไหนดีครับ
ขอบคุณอีกครั้งครับ
3 @R01833
เรียนอาจารย์ และผู้รู้ทุกท่าน ช่วยตอบคำถานนี้ด้วยเถอะครับ ต้องการคำตอบจริง ๆ
ขอบคุณครับ
4 @R01848
ลองใส่โค๊ด me.refresh ไว้ที่ปุ่ม frmFile1ที่จะเรียก rptFile1 ขึ้นมาแสดงครับ(ไว้บนบรรทัดก่อนที่จะเปิด rptFile1)
5 @R01869
ขอความกรุณาเขียน code ใน cmd ที่จะเปิด rptFile1 ให้ดูแบบเต็ม ๆ เลยได้ไหมครับ
ขอบคุณมาก ๆ ครับ
6 @R01923
Private Sub cmdFile1_Click()
On Error GoTo Err_File1_Click
Dim stDocName As String
stDocName = "rptFile1"
DoCmd.OpenReport stDocName, acPreview
Exit_File1_Click:
Exit Sub
Err_WHT_Click:
MsgBox Err.Description
Resume Exit_File1_Click
End Sub
1. ผมเขียน coding แบบนี้ที่ cmdFile1 ค่าที่ผมกล่าวมาข้างต้น (กรอบ 1) ปรากฎขั้นมาแล้วครับ แต่พอ
ผมแก้ไขข้อมูลอื่น ๆ เช่นเปลี่ยนวันที่ ใน frmFile1 แล้ว click ไปดูที่ rptFile1 มันไม่ยอมเปลี่ยนครับ
2. พอผมใส่ code Me.Refresh ก่อนบรรทัด
DoCmd.OpenReport stDocName, acPreview
ข้อมูลที่แก้ไขเปลี่ยนตามครับ แต่ค่าที่กล่าวข้างต้นกลับไม่ปรากฎให้เห็น ไม่ทราบว่าเป็นเพราะอะไร และ
ต้องแก้ไขอย่างไรครับ
ขอบคุณท่านผู้รู้ทุกท่านครับ ขอความกรุณาด้วยครับ
Time: 0.1267s