การพิมพ์รายงานสีบัตรพนักงานชั่วคราวกับพนักงานประจำ
กระทู้เก่าบอร์ด อ.Yeadram

 3,333   15
URL.หัวข้อ / URL
การพิมพ์รายงานสีบัตรพนักงานชั่วคราวกับพนักงานประจำ

อยากทราบว่าหากมีพนักงานอยู่ 2 ประเภท คือ ชั่วคราว กับ ประจำ คือ คือเวลาออกแบบการพิมพ์บัตรพนักงาน อยากให้สีของบัตรพนักงานแต่ละประเภทแตกต่างกันทำอย่างไรคะ เช่น พนักงานประจำสีแดง พนักงานชั่วคราว สีเหลือง ควรทำอย่างไรคะ

15 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R11272
เวลาออกแบบ รายงาน
เอา ฟิลด์ที่กำหนดสถานะพนักงาน ไปกำหนดสีในรายงาน

Private Sub Report_Open(Cancel As Integer)
if สถานะพนักงาน = ชั่วคราว then
     Me.Detail.BackColor = vbYellow
else
     Me.Detail.BackColor = vbRed
end if
End Sub
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 = ชั่วคราว
3 @R11278
ถามคุณ Anut หน่อยครับ
ตอนนี้ รายงาน มีการวาง รูป หรือ กล่อง อะไรเป็นพื้นหลังหรือเปล่าครับ?
4 @R11285
ตอนแรกให้สีฟ้าเป็นพื้นหลังค่ะ
แต่ก็ลองเอาออกแล้ว ไม่มีรูปเป็นพื้นหลังค่ะ แต่มีรูปที่เป็นโลโก้ติดไว้นิดนึง (แต่ไม่ได้เป็นพื้นหลังนะคะ)แล้วก็ฟิลด์ต่างๆเท่านั้นค่ะ
5 @R11286
ลองเปลี่ยนเหตุการณ์เป็น
Private Sub Detail_Print ดูครับ
6 @R11287
ถามเพิ่มครับ
1 หน้า (ในรายงาน) ต่อ 1 บัตร (กระดาษ 1 แผ่น)
หรือ 1 หน้า ต่อ หลายบัตร (ในรายงานแสดง 6คน 10 คน พิมพ์ลงกระดาษ 1 แผ่น แล้วค่อยมาตัดแยก)?
7 @R11291
1 หน้า ต่อ หลายบัตร (พิมพ์ลงกระดาษ 1 แผ่น แล้วค่อยมาตัดแยก) ค่ะ

8 @R11297
อ่านดูก็ไม่น่าจะมีปัญหานะครับ
ลองตรวจดูในหัวข้อ 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

ใช้ได้หมดทุกเหตุการณ์ ครับ
เรียงลำดับ จากก่อน ไปหลัง ตามข้างบน แหละครับ


13 @R11304
เข้าใจว่าจะกำหนด Backcolor ตามเงื่อนไข ถ้าในกรณีเป็น Continuous ผมไม่รู้ว่าทำได้หรือป่าว
แนะนำว่า สร้าง Object ที่เป็น Image อีกตัว ซ้อนกับรูปภาพไว้ แล้วดึงภาพที่สร้างเป็นสีพื้นหลังขึ้นมาตามเงื่อนไข น่าจะใช้แก้ไปก่อนได้ครับ
14 @R11305
- ขอบคุณ คุณditasilk และคุณ TTT มากค่ะ แต่เราจะเขียนโค้ดอย่างไรคะที่ใช้สำหรับดึง Image เพื่อมา ซ้อนกับรูปภาพไว้ แล้วดึงภาพที่สร้างเป็นสีพื้นหลังขึ้นมาตามเงื่อนไข
- Object ที่เป็น Image ที่จะนำมา ซ้อนก็คือ Object ที่เราสร้างให้เท่ากับ Report ที่เราออกแบบไว้ใช่หรือเปล่าคะ
15 @R11306
ออกตัวก่อนว่าผมเองก็ไม่ค่อยเก่งนะ
ผมไม่รู้ว่าคุณออกแบบหน้าตาเป็นยังไงบ้าง
ตรงไหนที่ต้องการให้เปลี่ยนสี
คุณเป็นคนออกแบบเองทั้งหมดหรือไม่
ต้องให้ผู้ที่มีประสบการณ์การทำลักษณะนี้ตอบ เค้าจะแก้ปัญหาได้ตรงจุดมากกว่า แต่สังเกตุจากกระทู้ทั้งหลาย คือถ้าคุณอธิบายไม่มีรายละเอียดมากพอ หรือ ตัวอย่าง ภาพ ไฟล์ตัวอย่าง หลายท่านที่ผมว่าช่วยคุณได้ก็ไม่อยากตอบนะครับ เพราะมันจะเป็นอย่างนี้ คือ ตอบกันไปมาจนยาวมากก็ไม่ได้ความสักที
แนะนำนะครับ ให้เขียนรายละเอียด ชื่อต่างๆ ภาพประกอบ โค๊ต เท่าที่ทำได้ แล้วลองถามใหม่ดูครับ (เข้าใจนะว่า บางทีเวลาคนไม่รู้ ก็ถามไม่ถูกเหมือนกัน แต่ต้องลองพยายามดูครับ)
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3359s