ขอวิธีกรองเฉพาะ record เจาะจง

[kunlek]

มีข้อมูลการซื้อหลาย reccord รายการซื้อไหนที่ยังไม่ขอคืนภาษีซื้อ period_vat จะใส่ค่า 00/00  ถึงเวลาที่จะเคลมภาษีจึงต้องการที่ให้ row source เลือกเฉพาะ period_vat ที่มีค่า 00/00 แต่ในตัวอย่างนี้ดึงมาหมดครับ

[PNR]

เอา Like ออกไปสิครับน้า
Like เราจะใช้ก็ต่อเมื่อต้องการข้อมูลที่มีอาจรายละเอียดบางส่วนปะปนมาได้

SQL เฉพาะ 00/00 ก็จะเป็น

โค๊ด: [Select]

SELECT voucher_b.voucher_b_id, voucher_b.date_buy, voucher_b.period_vat
FROM voucher_b
WHERE (((voucher_b.period_vat)="00/00"));

[kunlek]

ขอมี bottom ป้องกันการหลุดของฝ่ายบัญชี เปลี่ยนข้อความ เปลี่ยนสี เวลาคลิกปุ่ม ครับ

[PNR]

ขอมี bottom ป้องกันการหลุดของฝ่ายบัญชี เปลี่ยนข้อความ เปลี่ยนสี เวลาคลิกปุ่ม ครับ

ใช้ .caption เพื่อใส่ข้อความ
และ .Forcolor สำหรับ เปลี่ยนสีข้อความ
Toggle ไม่สามารถเปลี่ยน .BackColor ได้เพราะใช้ access รุ่นเก่า
ถ้ารุ่นใหม่ๆ จะเปลี่ยนได้


โค้ดจะได้

โค๊ด: [Select]

Private Sub Toggle192_Click()
If Me.Toggle192 = False Then
Me.Toggle192.Caption = "ไม่เคลมภาษี"
Me.Toggle192.ForeColor = vbRed

ElseIf Me.Toggle192 = True Then
Me.Toggle192.Caption = "เคลมภาษี"
Me.Toggle192.ForeColor = vbGreen
End If
End Sub
ส่วนสีต่างๆ ก็มีมากมายหามาใส่เอาได้เลย เช่น Vb... (ชื่อสี)  หรือ RGB(...,...,...)
เช่น = RGB(255, 0, 0) คือสีแดง
         RGB(0, 0, 0)   สีดำ
         RGB(255, 255, 0) สีเหลือง
         RGB(255, 255, 255) สีขาวเป็นต้น

[kunlek]

ขออีกนิดครับ ถ้าต้องการให้ caption จาก toggle เปลี่ยนไปตาม value ในฟิลด์ Clam_vat (=-1  หรือ 0) ตามตัวอย่าง

[PNR]

ใช้การ dlookup ได้ครับ
ใช้ event form current ในการทำงานเมื่อมีการเปลี่ยนเรคคอร์ดก็จะแสดงตามค่าที่มีใน Clam_Vat



Private Sub Form_Current()
Call ClamVatStatus
End Sub

Sub ClamVatStatus()
Dim tgClam As Boolean
tgClam = Nz(DLookup("Clam_vat", "voucher_b", "voucher_b_id ='" & voucher_b_id & "'"))
If tgClam = True Then
Me.Toggle192.Caption = "เคลมภาษี"
Me.Toggle192.ForeColor = vbGreen
ElseIf tgClam = False Then
Me.Toggle192.Caption = "ไม่เคลมภาษี"
Me.Toggle192.ForeColor = vbRed
End If
End Sub

ส่วนอีเว้น click ก็นำมาใช้ด้วยเมื่อมีการกด อัพเดทบนฟอร์มจะได้แสดงทันที

[kunlek]

ไม่ได้ครับ ช่วยกรุณาทีครับ

[PNR]

ทำไมค่า -1 หรือ 0 ในฟิลด์  Clam_vat จึงไม่ทำให้ caption เคลมภาษีไม่เปลี่ยนตาม Value ใน Clam_vat ครับ    00/00 ไม่เคลมภาษี (สีดำ)   mm/yy เคลมภาษี (สีแดง)

ผมงงกับคำถามครับ 

[kunlek]

caption ใน Toggle caption 192 "เคลมภาษี" ไม่เคลมภาษี" ไม่เปลี่ยนตาม Value ใน Clam_vat ที่ค่าเป็น "0" กับ "-1" เมื่อผม preview record ครับ

[PNR]

Event Form_Current ท่านไม่ได้ตั้งให้โค้ดทำงานครับ

ผมแก้ให้แล้วลองดูในไฟล์แนบ

[kunlek]

กราบขอบพระคุณยิ่งครับ