กระทู้เก่าบอร์ด อ.Yeadram
1,703 5
URL.หัวข้อ /
URL
กำหนดจำนวน Record ใน Sub form ให้ขึ้นตามที่ต้องการ
แบบฟอร์ม กำหนดหนดให้แสดง จำนวนสูงสุดที่ 5 Record ค่ะ
แต่ว่า หากว่า มีจำนวนคน 5 คน ก็ขึ้นลำดับที่ 1-5 ตามปกติค่ะ
แต่หากว่า มีจำนวน 1 คน ในส่วนที่เหลือ ลำดับที่ 2-5 ก็ต้องขึ้นด้วย
เพื่อให้แบบฟอร์ม เป็น pattern ค่ะ
รบกวนด้วยค่ะ พยายามทำหลายหลังแล้วค่ะ ทำไม่ได้สักกะทีค่ะ
ลองหลายวิธี ตอนแรก จะลองทำรูปภาพผังไว้ ด้านหลัง
ก็ไม่ได้อีก เจ้า Sub form มาทับ มันมองไม่เห็นภาพด้านหลังอีกค่ะ
มีวิธีพอจะช่วยได้มั้ยค่ะ ???
ขอบคุณอาจารย์ล่วงหน้าค่ะ
แต่ว่า หากว่า มีจำนวนคน 5 คน ก็ขึ้นลำดับที่ 1-5 ตามปกติค่ะ
แต่หากว่า มีจำนวน 1 คน ในส่วนที่เหลือ ลำดับที่ 2-5 ก็ต้องขึ้นด้วย
เพื่อให้แบบฟอร์ม เป็น pattern ค่ะ
รบกวนด้วยค่ะ พยายามทำหลายหลังแล้วค่ะ ทำไม่ได้สักกะทีค่ะ
ลองหลายวิธี ตอนแรก จะลองทำรูปภาพผังไว้ ด้านหลัง
ก็ไม่ได้อีก เจ้า Sub form มาทับ มันมองไม่เห็นภาพด้านหลังอีกค่ะ
มีวิธีพอจะช่วยได้มั้ยค่ะ ???
ขอบคุณอาจารย์ล่วงหน้าค่ะ
5 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R21140
http://www.thai-access.com/yeadram_view.php?topic_id=3065
2 @R21143
อาจารย์สันติสุขค่ะ
ในส่วนที่หนูแสดงรายชื่อ มันเป็น Sub Form ค่ะ
หากหนูทำตาม คำแนะนำ Topic ID 3065
หนูจะต้องใส่ Code ตรง Sub Form ใช่มั้ยค่ะ หรืออย่างไร
และตอนที่ใส่ Code Module คือ ใส่ Code ของ Text Box ที่สร้างใหม่ ใช่มั้ยค่ะ ?
ขอโทษนะค่ะ ไม่ค่อยถนัดใส่ Code
Code จากคำแนะนำ ที่ อาจารย์ให้ไปเปิดดู
1. มุมมอง Design View ของ Report สร้าง Text Box ขึ้นใหม่ในพื้นที่ Detail Section กำหนด Property ดังนี้:
Other > Name: TotRec
Data > Control Source: =Count(*)
Format > Display When: Screen Only
(หากมีการแบ่ง Group ให้สร้างในพื้นที่ Group Header แทน)
2. ใส่โค๊ดใน Module ที่สร้างขึ้นใหม่:
'----------------------Declarations----------------------
Option Explicit
Global TotCount As Integer
'--------------------------------------------------------
Function PrintLines(R As Report, TotGrp)
TotCount = TotCount + 1
If TotCount = TotGrp Then
R.NextRecord = False
ElseIf TotCount > TotGrp And TotCount < 50 Then ' กำหนดค่า Blank line ต่อหน้า
R.NextRecord = False
Dim CtrX As Control
For Each CtrX In R
If TypeOf CtrX Is TextBox Or TypeOf CtrX Is CheckBox Or TypeOf CtrX Is Label Then
CtrX.Visible = False
End If
Next
End If
End Function
Function SetCount(R As Report)
TotCount = 0
Dim CtrX As Control
For Each CtrX In R
If TypeOf CtrX Is TextBox Or TypeOf CtrX Is CheckBox Or TypeOf CtrX Is Label Then
CtrX.Visible = True
End If
Next
End Function
ในส่วนที่หนูแสดงรายชื่อ มันเป็น Sub Form ค่ะ
หากหนูทำตาม คำแนะนำ Topic ID 3065
หนูจะต้องใส่ Code ตรง Sub Form ใช่มั้ยค่ะ หรืออย่างไร
และตอนที่ใส่ Code Module คือ ใส่ Code ของ Text Box ที่สร้างใหม่ ใช่มั้ยค่ะ ?
ขอโทษนะค่ะ ไม่ค่อยถนัดใส่ Code
Code จากคำแนะนำ ที่ อาจารย์ให้ไปเปิดดู
1. มุมมอง Design View ของ Report สร้าง Text Box ขึ้นใหม่ในพื้นที่ Detail Section กำหนด Property ดังนี้:
Other > Name: TotRec
Data > Control Source: =Count(*)
Format > Display When: Screen Only
(หากมีการแบ่ง Group ให้สร้างในพื้นที่ Group Header แทน)
2. ใส่โค๊ดใน Module ที่สร้างขึ้นใหม่:
'----------------------Declarations----------------------
Option Explicit
Global TotCount As Integer
'--------------------------------------------------------
Function PrintLines(R As Report, TotGrp)
TotCount = TotCount + 1
If TotCount = TotGrp Then
R.NextRecord = False
ElseIf TotCount > TotGrp And TotCount < 50 Then ' กำหนดค่า Blank line ต่อหน้า
R.NextRecord = False
Dim CtrX As Control
For Each CtrX In R
If TypeOf CtrX Is TextBox Or TypeOf CtrX Is CheckBox Or TypeOf CtrX Is Label Then
CtrX.Visible = False
End If
Next
End If
End Function
Function SetCount(R As Report)
TotCount = 0
Dim CtrX As Control
For Each CtrX In R
If TypeOf CtrX Is TextBox Or TypeOf CtrX Is CheckBox Or TypeOf CtrX Is Label Then
CtrX.Visible = True
End If
Next
End Function
3 @R21144
มีวิธีที่ง่ายกว่านี้มั้ยค่ะอาจารย์ 
เช่น ใส่รูปภาพ ตารางว่าง ๆ เข้าไปแทน อะไรแบบนี้ค่ะ
หนูพยายามจะใส่รูปภาพตารางว่าง ๆ เข้าไปแทน แต่ติดปัญหาตรงที่ นำรูปภาพมาไว้ หน้า Sub Form ไม่ได้ค่ะ
ไม่มีอะไรที่จะสามารถไปวางทับ Sub Form ได้
เช่น ใส่รูปภาพ ตารางว่าง ๆ เข้าไปแทน อะไรแบบนี้ค่ะ
หนูพยายามจะใส่รูปภาพตารางว่าง ๆ เข้าไปแทน แต่ติดปัญหาตรงที่ นำรูปภาพมาไว้ หน้า Sub Form ไม่ได้ค่ะ
ไม่มีอะไรที่จะสามารถไปวางทับ Sub Form ได้
4 @R21145
อื่ม นี่ง่ายสุดเท่าที่คิดออกแล้วนะครับ 555 ไงลองดูไฟล์ตัวอย่างนี้นะครับ ผมทำให้เอาไปทำความเข้าใจกับวิธีที่คุณอ่าน โดยเพิ่มเติมคือเรื่องของ Textbox ที่ชื่อ txt1 เพื่อให้มันรันเลขแม้จะไม่มีข้อมูลเพิ่มเข้ามาครับ
โหลดไฟล์ตัวอย่างที่นี่
ปรับใช้ดูครับ
โหลดไฟล์ตัวอย่างที่นี่
ปรับใช้ดูครับ
5 @R21149
ได้รับ ไฟล์แล้วค่ะ จะทดลองอย่างถึงที่สุดค่ะ
ขอบคุณค่ะ คุณ TTT
คุณสันติสุข คงหมดความพยายามกับหนูไปแล้ว 555
ขอบคุณ ทั้ง 2 ท่านมากค่ะ
ขอบคุณค่ะ คุณ TTT
คุณสันติสุข คงหมดความพยายามกับหนูไปแล้ว 555
ขอบคุณ ทั้ง 2 ท่านมากค่ะ
Time: 0.2753s
