แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Peerapach

หน้า: [1]
2
ทำได้เยอะกว่านี้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Peerapach

3
คุยกันคนละเรื่องล่ะครับ การใส่สีอยู่ที่ Conditional Formatting ครับ

ตอนนี้เรื่อง Input ข้อมูลอะไรนั่นเอาไว้ก่อน ถ้าเข้าใจเรื่องการกำหนดเงื่อนไขด้วย Conditional Formatting ก็จะสามารถใส่สีให้การแสดงผลในฟอร์มได้ตามต้องการครับ

โพสต์นี้ได้รับคำขอบคุณจาก: Peerapach

4
ปัญหาของกระทู้นี้อยู่ที่เงื่อนไขไม่ชัดเจน ลองนึกถึงเงื่อนไขที่ชัดเจนดูนะครับ เช่น ก่อนวันปัจจุบัน 7 วัน ก็สีนึง ก่อนวันปัจจุบันก็อีกสีนึง

แล้วกำหนดที่ Conditional Formatting ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Peerapach

5
แวะมาช่วยกระตุ้นกระทู้ครับ :yuush:
โพสต์นี้ได้รับคำขอบคุณจาก: Peerapach

6
- คิวรี่นี้ซับซ้อนเสียหน่อย ถ้าเขียนจริงๆคงจะเป็น SELECT ซ้อนกัน 3 ชั้น แต่เพื่อให้ดูง่าย(หรือเปล่าไม่รู้)และคงการใช้ DCount() เอาไว้ ก็จะออกมาเหลือ 2 ชั้น
- ในนี้ผมสมมุติให้ชื่อเทเบิลว่า TB และชื่อฟิลด์ว่า dt,status,type คุณไปเปลี่ยนเองแล้วกัน
- ผมเขียนเพื่อให้ดูสะอาดตาขึ้นโดยขึ้นบรรทัดใหม่ แต่สามารถนำเอามาต่อกันโดยมีช่องว่างคั่นสักตัวนึงก็ได้นะครับ เช่น บรรทัดที่ 1 และ 2 สามารถเขียนเป็น SELECT [Month-Year], Inprogress, Complete, [Inprogress]+[Complete] AS Total, ก็ได้
โค๊ด: [Select]
SELECT
[Month-Year], Inprogress, Complete,
[Inprogress]+[Complete] AS Total,
Format([Complete]/([Inprogress]+[Complete])*100,"0.00") AS [% Complete]
FROM
(SELECT Format([dt],"mmm-yyyy") AS [Month-Year],
First(Month([dt])) AS M,
First(Year([dt])) AS Y,
First(Val(DCount("*","TB","Status = '2' and Type = '1' and (month(dt) = " & Month([dt]) & ") and (year(dt) = " & Year([dt]) & ") "))) AS Inprogress,
First(Val(DCount("*","TB","Status = '1' and Type = '1' and (month(dt) = " & Month([dt]) & ") and (year(dt) = " & Year([dt]) & ") "))) AS Complete
FROM TB
GROUP BY Format([dt],"mmm-yyyy"))  AS Q1

ORDER BY Y, M;
โพสต์นี้ได้รับคำขอบคุณจาก: Peerapach

7
ต้องการสั่ง lock หรือ ปิดการใช้งาน textbox ไหน ก็ลองใส่โค้ดตามนี้ดูครับ

Me.Textbox.Locked = True  หรือ False  'ล๊อกไม่ให้แก้ไขข้อมูลใน textbox แต่ Cursor ยัง Setfocus ได้
Me.Textbox.Enabled = False หรือ True  'ปิดการใช้งาน textbox และ Cursor ไม่สามารถ Setfocus ได้

ปกติผมจะสั่งทั้ง 2 อย่างเลยครับในกรณีต้องการปิด เพราะ textbox จะมี background สีเดิมไม่ใช่สีน้ำตาล ลองไปปรับใช้ดูครับ  :grin: :grin:
โพสต์นี้ได้รับคำขอบคุณจาก: Peerapach

หน้า: [1]