Access Message Box ไม่ขึ้น

[aod]

สวัสดีครับ ผมจะทำ Message Box แจ้งเตือนสินค้าหมดโดยผมทดลองแล้วใช้งานได้ปกติ แต่พอปิดโปรแกรมแล้วเปิดใหม่ภายหลัง Message จะไม่ยอมแจ้งเตือนเลยไม่ทราบเกิดจากอะไรครับ

Code -----
Private Sub Text0_AfterUpdate()
Dim Msg, Report
Msg = "สไกล้หมดแล้ว"
Report = Me.Text0
If Report < 5 Then
 MsgBox (Msg)
 End If
End Sub

[nonc31]

Report อาจมากกว่าหรือเท่ากับ5 มั๊งครับ

หรือ ให้เปลี่ยนชื่อตัวแปร Report เป็นชื่ออื่นดูครับ เช่น Reportx

[aod]

คุณ nonc31 ทดลองเปลี่ยนชื่อแล้วครับ ยังไม่ขึ้นแจ้งเตือนครับ ขอบคุณครับ

[nonc31]

ผมทดสอบดูแล้ว ผ่านนะครับ พิมพ์ตัวเลขแล้วกด Enter มันก็เตือนเลย 

[aod]

คุณ nonc 31 ผมจะแจ้งเตือนตอนเปลี่ยนที่คุณ nonc 31 แนะนำมาครับ พอผมปิดโปรแกรม แล้ว เปิดขึ้นมาใหม่ ป้อนหมายเลย ยังไงก็ไม่แจ้งเตือนครับ ขอบคุณครับ

[PNR]

ต้อง Dim ...... as ....... ครับ

การกำหนดให้ค่า มากกว่า หรือ น้อยกว่า ได้จะต้องเป็นค่าตัวเลข นะครับเช่น

Private Sub Text0_AfterUpdate()
Dim Msg as string
Dim  Report as Integer
Msg = "สไกล้หมดแล้ว"
Report = Me.Text0
If Report < 5 Then
 MsgBox (Msg), vbInformation, "status"
 End If
End Sub

[PNR]

อีกอย่าง Event AfterUpdate() นั้น ถ้าสมมุติระบุ 4 ไว้แล้วมีการแจ้งเตือนปกติ
พอเปิดฟอร์มขึ้นมาใหม่แล้วไม่ได้ระบุตัวเลขใหม่ Event นี้จะไม่ทำงานครับ

ถ้าจะดักข้อผิดพลาดนี้น่าจะต้องว่างโค้ดไว้ใน Event On Open  ด้วยครับเช่น

โค๊ด: [Select]

Private Sub Form_Open(Cancel As Integer)
Call CheckLow
End Sub

Private Sub Text0_AfterUpdate()
Call CheckLow
End Sub

Sub CheckLow()
Dim Msg As String
Dim Report As Integer
Msg = "สไกล้หมดแล้ว"
Report = Me.Text0
If Report < 5 Then
 MsgBox (Msg), vbInformation, "Status"
 End If
End Sub


[aod]

ขอบคุณ คุณ PNR ครับ ผมลองตามคำแนะนำครับขึ้นครับ แต่พอปิดAccess แล้วเปิดใหม่ก็ยังไม่ขึ้น  "ปัญของผมคือถ้าเขียนใหม่จะขึ้นMessageปกติครับ แต่พอผมปิดโปรแกรม Accesss แล้วเปิดขึ้นมาใหม่ Message จะไม่ขึ้นครับ ใส่ค่าตัวเลขที่ต่ำกว่า 5 แล้วกด Enter ยังไง Message ก็ไม่ขึ้นครับ" ขอบคุณครับ

[aod]

ขอบคุณครับ คุณ PNR มากๆครับ สรุปได้ว่าต้องเปิด Macro ครับ (คืนนี้นอนหลับแล้วครับ) #มือใหม่ครับ