สมัครสมาชิก
 

แจ้งเตือนเมื่อข้อมูลไม่เท่ากัน



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

08 มี.ค. 62 , 00:01:24
อ่าน 109 ครั้ง

Pakkret Non

  • สมาชิกไท.Access
  • กระทู้: 3

    • ดูรายละเอียด

สร้างฟิลด์กรอกข้อมูลเป็นตัวเลขถ้ายอดในช่องยอดทั้งหมด กับรวมยอดใช้ไป ไม่เท่ากันให้แสดงแจ้งเตือนเป็นแถบสีครับ ต้องเขียนโค๊ตอย่างไรครับ


แสดงบนฟอร์ม
« แก้ไขครั้งสุดท้าย: 08 มี.ค. 62 , 21:15:59 โดย thaiaccboard »

 

08 มี.ค. 62 , 13:50:52
ตอบกลับ #1

ปิ่นณรงค์

: แจ้งเตือนเมื่อข้อมูลไม่เท่ากัน
« ตอบกลับ #1 เมื่อ: 08 มี.ค. 62 , 13:50:52 »
ลองดูตัวอย่างนี้ดูครับ
โค๊ด: [Select]
Sub GetColor()
Dim lngWhite As Long
Dim lngYellow As Long
lngYellow = RGB(255, 255, 0)
lngWhite = RGB(255, 255, 255)
If Not IsNull(Me.ยอดทั้งหมด) And Not IsNull(Me.ยอดที่ใช้ไป) Then
    If Me.ยอดทั้งหมด > Me.ยอดที่ใช้ไป Or _
    Me.ยอดทั้งหมด < Me.ยอดที่ใช้ไป Then
    Me.ยอดทั้งหมด.BackColor = lngYellow
    Me.ยอดที่ใช้ไป.BackColor = lngYellow
         Else
         Me.ยอดทั้งหมด.BackColor = lngWhite
         Me.ยอดที่ใช้ไป.BackColor = lngWhite
End If
    End If
End Sub
Private Sub ใช้ไป1_AfterUpdate()
Call GetColor
End Sub
Private Sub ใช้ไป2_AfterUpdate()
Call GetColor
End Sub
Private Sub ใช้ไป3_AfterUpdate()
Call GetColor
Me.ใช้ไป1.SetFocus
End Sub

ส่วนอยากกำหนดเป็นสีอะไรก็กำหนด ตัวแปลเป็นสีนั้น
 สีแดง   RGB(255, 0, 0)
สีดำ     RGB(0, 0, 0)
สีเหลือง RGB(255, 255, 0)
สีขาว    RGB(255, 255, 255)
« แก้ไขครั้งสุดท้าย: 08 มี.ค. 62 , 13:55:08 โดย ปิ่นณรงค์ »
:love: :grin:
 
โพสต์นี้ได้รับคำขอบคุณจาก: aek, Pakkret Non

09 มี.ค. 62 , 03:32:05
ตอบกลับ #2

Pakkret Non

  • สมาชิกไท.Access
  • กระทู้: 3

    • ดูรายละเอียด

: แจ้งเตือนเมื่อข้อมูลไม่เท่ากัน
« ตอบกลับ #2 เมื่อ: 09 มี.ค. 62 , 03:32:05 »
ขอบคุณครับ

 


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