Access Message Box ไม่ขึ้น


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

15 พ.ย. 62 , 09:54:35
อ่าน 1255 ครั้ง

aod

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

  • ขอบคุณ ไท.Access

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

Access Message Box ไม่ขึ้น
« เมื่อ: 15 พ.ย. 62 , 09:54:35 »
สวัสดีครับ ผมจะทำ 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

 

15 พ.ย. 62 , 10:25:55
ตอบกลับ #1

nonc31

: Access Message Box ไม่ขึ้น
« ตอบกลับ #1 เมื่อ: 15 พ.ย. 62 , 10:25:55 »
Report อาจมากกว่าหรือเท่ากับ5 มั๊งครับ

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

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

15 พ.ย. 62 , 10:44:57
ตอบกลับ #2

aod

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

  • ขอบคุณ ไท.Access

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

: Access Message Box ไม่ขึ้น
« ตอบกลับ #2 เมื่อ: 15 พ.ย. 62 , 10:44:57 »
คุณ nonc31 ทดลองเปลี่ยนชื่อแล้วครับ ยังไม่ขึ้นแจ้งเตือนครับ ขอบคุณครับ

 

15 พ.ย. 62 , 11:11:43
ตอบกลับ #3

nonc31

: Access Message Box ไม่ขึ้น
« ตอบกลับ #3 เมื่อ: 15 พ.ย. 62 , 11:11:43 »
ผมทดสอบดูแล้ว ผ่านนะครับ พิมพ์ตัวเลขแล้วกด Enter มันก็เตือนเลย  :question: :question: :question:

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

15 พ.ย. 62 , 11:24:36
ตอบกลับ #4

aod

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

  • ขอบคุณ ไท.Access

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

: Access Message Box ไม่ขึ้น
« ตอบกลับ #4 เมื่อ: 15 พ.ย. 62 , 11:24:36 »
คุณ nonc 31 ผมจะแจ้งเตือนตอนเปลี่ยนที่คุณ nonc 31 แนะนำมาครับ พอผมปิดโปรแกรม แล้ว เปิดขึ้นมาใหม่ ป้อนหมายเลย ยังไงก็ไม่แจ้งเตือนครับ ขอบคุณครับ

 

15 พ.ย. 62 , 15:18:40
ตอบกลับ #5

PNR

: Access Message Box ไม่ขึ้น
« ตอบกลับ #5 เมื่อ: 15 พ.ย. 62 , 15:18:40 »
ต้อง 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
« แก้ไขครั้งสุดท้าย: 15 พ.ย. 62 , 15:22:19 โดย PNR »
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: aod

15 พ.ย. 62 , 15:34:30
ตอบกลับ #6

PNR

: Access Message Box ไม่ขึ้น
« ตอบกลับ #6 เมื่อ: 15 พ.ย. 62 , 15:34:30 »
อีกอย่าง 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
Time to stop for me  :dizzy:
 

15 พ.ย. 62 , 15:37:48
ตอบกลับ #7

aod

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

  • ขอบคุณ ไท.Access

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

: Access Message Box ไม่ขึ้น
« ตอบกลับ #7 เมื่อ: 15 พ.ย. 62 , 15:37:48 »
ขอบคุณ คุณ PNR ครับ ผมลองตามคำแนะนำครับขึ้นครับ แต่พอปิดAccess แล้วเปิดใหม่ก็ยังไม่ขึ้น  "ปัญของผมคือถ้าเขียนใหม่จะขึ้นMessageปกติครับ แต่พอผมปิดโปรแกรม Accesss แล้วเปิดขึ้นมาใหม่ Message จะไม่ขึ้นครับ ใส่ค่าตัวเลขที่ต่ำกว่า 5 แล้วกด Enter ยังไง Message ก็ไม่ขึ้นครับ" ขอบคุณครับ :cry: :cry:

 

15 พ.ย. 62 , 15:49:03
ตอบกลับ #8

aod

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

  • ขอบคุณ ไท.Access

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

: Access Message Box ไม่ขึ้น
« ตอบกลับ #8 เมื่อ: 15 พ.ย. 62 , 15:49:03 »
ขอบคุณครับ คุณ PNR มากๆครับ สรุปได้ว่าต้องเปิด Macro ครับ (คืนนี้นอนหลับแล้วครับ) #มือใหม่ครับ   :love: :love: :love:

 


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


 

Sitemap 1 2 3 4 5