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

[Pakkret Non]

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


แสดงบนฟอร์ม

[ปิ่นณรงค์]

ลองดูตัวอย่างนี้ดูครับ

โค๊ด: [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)

[Pakkret Non]

ขอบคุณครับ