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


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

16 ก.พ. 64 , 22:57:17
อ่าน 1018 ครั้ง

kunlek

ขอวิธีกรองเฉพาะ record เจาะจง
« เมื่อ: 16 ก.พ. 64 , 22:57:17 »
มีข้อมูลการซื้อหลาย reccord รายการซื้อไหนที่ยังไม่ขอคืนภาษีซื้อ period_vat จะใส่ค่า 00/00  ถึงเวลาที่จะเคลมภาษีจึงต้องการที่ให้ row source เลือกเฉพาะ period_vat ที่มีค่า 00/00 แต่ในตัวอย่างนี้ดึงมาหมดครับ

 

17 ก.พ. 64 , 08:11:23
ตอบกลับ #1

PNR

: ขอวิธีกรองเฉพาะ record เจาะจง
« ตอบกลับ #1 เมื่อ: 17 ก.พ. 64 , 08:11:23 »
เอา 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"));
Time to stop for me  :dizzy:
 

17 ก.พ. 64 , 17:17:46
ตอบกลับ #2

kunlek

: ขอวิธีกรองเฉพาะ record เจาะจง
« ตอบกลับ #2 เมื่อ: 17 ก.พ. 64 , 17:17:46 »
ขอมี bottom ป้องกันการหลุดของฝ่ายบัญชี เปลี่ยนข้อความ เปลี่ยนสี เวลาคลิกปุ่ม ครับ

 

18 ก.พ. 64 , 08:02:01
ตอบกลับ #3

PNR

: ขอวิธีกรองเฉพาะ record เจาะจง
« ตอบกลับ #3 เมื่อ: 18 ก.พ. 64 , 08:02:01 »
ขอมี 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) สีขาวเป็นต้น
« แก้ไขครั้งสุดท้าย: 18 ก.พ. 64 , 08:09:59 โดย PNR »
Time to stop for me  :dizzy:
 

18 ก.พ. 64 , 21:27:51
ตอบกลับ #4

kunlek

ขอวิธีกรองเฉพาะ record เจาะจง
« ตอบกลับ #4 เมื่อ: 18 ก.พ. 64 , 21:27:51 »
ขออีกนิดครับ ถ้าต้องการให้ caption จาก toggle เปลี่ยนไปตาม value ในฟิลด์ Clam_vat (=-1  หรือ 0) ตามตัวอย่าง

 

19 ก.พ. 64 , 08:02:53
ตอบกลับ #5

PNR

: ขอวิธีกรองเฉพาะ record เจาะจง
« ตอบกลับ #5 เมื่อ: 19 ก.พ. 64 , 08:02:53 »
ใช้การ 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 ก็นำมาใช้ด้วยเมื่อมีการกด อัพเดทบนฟอร์มจะได้แสดงทันที
« แก้ไขครั้งสุดท้าย: 19 ก.พ. 64 , 08:14:44 โดย PNR »
Time to stop for me  :dizzy:
 

19 ก.พ. 64 , 22:20:57
ตอบกลับ #6

kunlek

: ขอวิธีกรองเฉพาะ record เจาะจง
« ตอบกลับ #6 เมื่อ: 19 ก.พ. 64 , 22:20:57 »
ไม่ได้ครับ ช่วยกรุณาทีครับ

 

22 ก.พ. 64 , 08:03:52
ตอบกลับ #7

PNR

: ขอวิธีกรองเฉพาะ record เจาะจง
« ตอบกลับ #7 เมื่อ: 22 ก.พ. 64 , 08:03:52 »
อ้างถึง
ทำไมค่า -1 หรือ 0 ในฟิลด์  Clam_vat จึงไม่ทำให้ caption เคลมภาษีไม่เปลี่ยนตาม Value ใน Clam_vat ครับ    00/00 ไม่เคลมภาษี (สีดำ)   mm/yy เคลมภาษี (สีแดง)

ผมงงกับคำถามครับ  :cry: :cry:
Time to stop for me  :dizzy:
 

22 ก.พ. 64 , 12:03:50
ตอบกลับ #8

kunlek

: ขอวิธีกรองเฉพาะ record เจาะจง
« ตอบกลับ #8 เมื่อ: 22 ก.พ. 64 , 12:03:50 »
caption ใน Toggle caption 192 "เคลมภาษี" ไม่เคลมภาษี" ไม่เปลี่ยนตาม Value ใน Clam_vat ที่ค่าเป็น "0" กับ "-1" เมื่อผม preview record ครับ

 

22 ก.พ. 64 , 12:36:39
ตอบกลับ #9

PNR

: ขอวิธีกรองเฉพาะ record เจาะจง
« ตอบกลับ #9 เมื่อ: 22 ก.พ. 64 , 12:36:39 »
Event Form_Current ท่านไม่ได้ตั้งให้โค้ดทำงานครับ

ผมแก้ให้แล้วลองดูในไฟล์แนบ
« แก้ไขครั้งสุดท้าย: 23 ก.พ. 64 , 07:49:41 โดย PNR »
Time to stop for me  :dizzy:
 

22 ก.พ. 64 , 16:31:37
ตอบกลับ #10

kunlek

: ขอวิธีกรองเฉพาะ record เจาะจง
« ตอบกลับ #10 เมื่อ: 22 ก.พ. 64 , 16:31:37 »
กราบขอบพระคุณยิ่งครับ

 


บอร์ดเรียนรู้ Access สำหรับคนไทย


 

Sitemap 1 2 3 4 5