กระทู้เก่าบอร์ด อ.Yeadram
3,333 15
URL.หัวข้อ /
URL
การพิมพ์รายงานสีบัตรพนักงานชั่วคราวกับพนักงานประจำ
อยากทราบว่าหากมีพนักงานอยู่ 2 ประเภท คือ ชั่วคราว กับ ประจำ คือ คือเวลาออกแบบการพิมพ์บัตรพนักงาน อยากให้สีของบัตรพนักงานแต่ละประเภทแตกต่างกันทำอย่างไรคะ เช่น พนักงานประจำสีแดง พนักงานชั่วคราว สีเหลือง ควรทำอย่างไรคะ
15 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R11276
Private Sub Report_Open(Cancel As Integer)
If Level = 1 Then
Me.Detail.BackColor = vbYellow
Else
Me.Detail.BackColor = vbRed
End If
End Sub
ลองใส่โค้ดแบบนี้แล้วค่ะ สีก็ยังคงไม่เปลี่ยนแปลง
Level = สถานะพนักงาน
1 = ชั่วคราว
If Level = 1 Then
Me.Detail.BackColor = vbYellow
Else
Me.Detail.BackColor = vbRed
End If
End Sub
ลองใส่โค้ดแบบนี้แล้วค่ะ สีก็ยังคงไม่เปลี่ยนแปลง
Level = สถานะพนักงาน
1 = ชั่วคราว
3 @R11278
ถามคุณ Anut หน่อยครับ
ตอนนี้ รายงาน มีการวาง รูป หรือ กล่อง อะไรเป็นพื้นหลังหรือเปล่าครับ?
ตอนนี้ รายงาน มีการวาง รูป หรือ กล่อง อะไรเป็นพื้นหลังหรือเปล่าครับ?
4 @R11285
ตอนแรกให้สีฟ้าเป็นพื้นหลังค่ะ
แต่ก็ลองเอาออกแล้ว ไม่มีรูปเป็นพื้นหลังค่ะ แต่มีรูปที่เป็นโลโก้ติดไว้นิดนึง (แต่ไม่ได้เป็นพื้นหลังนะคะ)แล้วก็ฟิลด์ต่างๆเท่านั้นค่ะ
แต่ก็ลองเอาออกแล้ว ไม่มีรูปเป็นพื้นหลังค่ะ แต่มีรูปที่เป็นโลโก้ติดไว้นิดนึง (แต่ไม่ได้เป็นพื้นหลังนะคะ)แล้วก็ฟิลด์ต่างๆเท่านั้นค่ะ
5 @R11286
ลองเปลี่ยนเหตุการณ์เป็น
Private Sub Detail_Print ดูครับ
Private Sub Detail_Print ดูครับ
6 @R11287
ถามเพิ่มครับ
1 หน้า (ในรายงาน) ต่อ 1 บัตร (กระดาษ 1 แผ่น)
หรือ 1 หน้า ต่อ หลายบัตร (ในรายงานแสดง 6คน 10 คน พิมพ์ลงกระดาษ 1 แผ่น แล้วค่อยมาตัดแยก)?
1 หน้า (ในรายงาน) ต่อ 1 บัตร (กระดาษ 1 แผ่น)
หรือ 1 หน้า ต่อ หลายบัตร (ในรายงานแสดง 6คน 10 คน พิมพ์ลงกระดาษ 1 แผ่น แล้วค่อยมาตัดแยก)?
7 @R11291
1 หน้า ต่อ หลายบัตร (พิมพ์ลงกระดาษ 1 แผ่น แล้วค่อยมาตัดแยก) ค่ะ
8 @R11297
อ่านดูก็ไม่น่าจะมีปัญหานะครับ
ลองตรวจดูในหัวข้อ Display When ของสิ่งที่ต้องการเปลี่ยนสีหรือยังครับ ว่าเป็น Always นะครับ ถ้าเป็น Screen Only ก็ให้เปลี่ยนครับ
ลองตรวจดูในหัวข้อ Display When ของสิ่งที่ต้องการเปลี่ยนสีหรือยังครับ ว่าเป็น Always นะครับ ถ้าเป็น Screen Only ก็ให้เปลี่ยนครับ
9 @R11299
ขอโทษเถอะค่ะ Display When อยู่ตรงส่วนไหนคะ
10 @R11300
ในมุมมองสำหรับออกแบบฟอร์ม (Design view) คลิกขวาเลือกที่ object เลือกเมนู properties จะมี Property Sheet ขึ้นมา ใน Sheet หัวข้อ Format ไล่ดูเอาครับ อยู่หัวข้อท้ายๆ
11 @R11302
มันขึ้น run- time error '2427': ค่ะ ดิฉันไปใส่โค้ดที่ Report นะคะ ไม่รู้ว่าผิดหรือเปล่า
12 @R11303
เรียนคุณ Anut
เหตุการณ์ที่ใส่ code ไม่ว่าจะเป็น
Private Sub Report_Open(Cancel As Integer)
Detail.BackColor = vbRed
End Sub
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Detail.BackColor = vbYellow
End Sub
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Detail.BackColor = vbBlue
Text2.BackColor = vbYellow
End Sub
ใช้ได้หมดทุกเหตุการณ์ ครับ
เรียงลำดับ จากก่อน ไปหลัง ตามข้างบน แหละครับ
เหตุการณ์ที่ใส่ code ไม่ว่าจะเป็น
Private Sub Report_Open(Cancel As Integer)
Detail.BackColor = vbRed
End Sub
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Detail.BackColor = vbYellow
End Sub
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Detail.BackColor = vbBlue
Text2.BackColor = vbYellow
End Sub
ใช้ได้หมดทุกเหตุการณ์ ครับ
เรียงลำดับ จากก่อน ไปหลัง ตามข้างบน แหละครับ
13 @R11304
เข้าใจว่าจะกำหนด Backcolor ตามเงื่อนไข ถ้าในกรณีเป็น Continuous ผมไม่รู้ว่าทำได้หรือป่าว
แนะนำว่า สร้าง Object ที่เป็น Image อีกตัว ซ้อนกับรูปภาพไว้ แล้วดึงภาพที่สร้างเป็นสีพื้นหลังขึ้นมาตามเงื่อนไข น่าจะใช้แก้ไปก่อนได้ครับ
แนะนำว่า สร้าง Object ที่เป็น Image อีกตัว ซ้อนกับรูปภาพไว้ แล้วดึงภาพที่สร้างเป็นสีพื้นหลังขึ้นมาตามเงื่อนไข น่าจะใช้แก้ไปก่อนได้ครับ
14 @R11305
- ขอบคุณ คุณditasilk และคุณ TTT มากค่ะ แต่เราจะเขียนโค้ดอย่างไรคะที่ใช้สำหรับดึง Image เพื่อมา ซ้อนกับรูปภาพไว้ แล้วดึงภาพที่สร้างเป็นสีพื้นหลังขึ้นมาตามเงื่อนไข
- Object ที่เป็น Image ที่จะนำมา ซ้อนก็คือ Object ที่เราสร้างให้เท่ากับ Report ที่เราออกแบบไว้ใช่หรือเปล่าคะ
- Object ที่เป็น Image ที่จะนำมา ซ้อนก็คือ Object ที่เราสร้างให้เท่ากับ Report ที่เราออกแบบไว้ใช่หรือเปล่าคะ
15 @R11306
ออกตัวก่อนว่าผมเองก็ไม่ค่อยเก่งนะ
ผมไม่รู้ว่าคุณออกแบบหน้าตาเป็นยังไงบ้าง
ตรงไหนที่ต้องการให้เปลี่ยนสี
คุณเป็นคนออกแบบเองทั้งหมดหรือไม่
ต้องให้ผู้ที่มีประสบการณ์การทำลักษณะนี้ตอบ เค้าจะแก้ปัญหาได้ตรงจุดมากกว่า แต่สังเกตุจากกระทู้ทั้งหลาย คือถ้าคุณอธิบายไม่มีรายละเอียดมากพอ หรือ ตัวอย่าง ภาพ ไฟล์ตัวอย่าง หลายท่านที่ผมว่าช่วยคุณได้ก็ไม่อยากตอบนะครับ เพราะมันจะเป็นอย่างนี้ คือ ตอบกันไปมาจนยาวมากก็ไม่ได้ความสักที
แนะนำนะครับ ให้เขียนรายละเอียด ชื่อต่างๆ ภาพประกอบ โค๊ต เท่าที่ทำได้ แล้วลองถามใหม่ดูครับ (เข้าใจนะว่า บางทีเวลาคนไม่รู้ ก็ถามไม่ถูกเหมือนกัน แต่ต้องลองพยายามดูครับ)
ผมไม่รู้ว่าคุณออกแบบหน้าตาเป็นยังไงบ้าง
ตรงไหนที่ต้องการให้เปลี่ยนสี
คุณเป็นคนออกแบบเองทั้งหมดหรือไม่
ต้องให้ผู้ที่มีประสบการณ์การทำลักษณะนี้ตอบ เค้าจะแก้ปัญหาได้ตรงจุดมากกว่า แต่สังเกตุจากกระทู้ทั้งหลาย คือถ้าคุณอธิบายไม่มีรายละเอียดมากพอ หรือ ตัวอย่าง ภาพ ไฟล์ตัวอย่าง หลายท่านที่ผมว่าช่วยคุณได้ก็ไม่อยากตอบนะครับ เพราะมันจะเป็นอย่างนี้ คือ ตอบกันไปมาจนยาวมากก็ไม่ได้ความสักที
แนะนำนะครับ ให้เขียนรายละเอียด ชื่อต่างๆ ภาพประกอบ โค๊ต เท่าที่ทำได้ แล้วลองถามใหม่ดูครับ (เข้าใจนะว่า บางทีเวลาคนไม่รู้ ก็ถามไม่ถูกเหมือนกัน แต่ต้องลองพยายามดูครับ)
Time: 0.3359s
เอา ฟิลด์ที่กำหนดสถานะพนักงาน ไปกำหนดสีในรายงาน
Private Sub Report_Open(Cancel As Integer)
if สถานะพนักงาน = ชั่วคราว then
Me.Detail.BackColor = vbYellow
else
Me.Detail.BackColor = vbRed
end if
End Sub