การใช้ MsgBox


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

27 มิ.ย. 66 , 16:52:21
อ่าน 500 ครั้ง

maicnx

การใช้ MsgBox
« เมื่อ: 27 มิ.ย. 66 , 16:52:21 »
รบกวนท่านผู้รู้ทุกท่านเกี่ยวกับการเขียนโค้ดเกี่ยวกับ MsgBox เช่น
ถ้าเราสร้างปุ่มเพื่อทำการปิดฟอร์มขึ้นมาอันหนึ่ง ก่อนปิดฟอร์ม ถ้าอยากให้มีกล่องข้อความว่า ต้องการปิดจริงหรือไม่
ถ้า Yes ก็ให้ปิดฟอร์มไปเลย ถ้า No ก็ให้อยู่ในฟอร์มเดิมต่อไป

ขอบพระคุณล่วงหน้าสำหรับความช่วยเหลือค่ะ

 

27 มิ.ย. 66 , 17:44:59
ตอบกลับ #1

Un

: การใช้ MsgBox
« ตอบกลับ #1 เมื่อ: 27 มิ.ย. 66 , 17:44:59 »
         Dim RetValue As Variant
                RetValue = MsgBox("กด Yes เมื่อต้องการปิด", vbOKCancel + vbDefaultButton2, "Un")
                Select Case RetValue
                    Case 1
                        DoCmd.close acForm, "ชื่อฟอร์ม"
                    Case Else
                        '''
                 End Select

ประมาณนี้ครับ

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

27 มิ.ย. 66 , 20:32:57
ตอบกลับ #2

maicnx

: การใช้ MsgBox
« ตอบกลับ #2 เมื่อ: 27 มิ.ย. 66 , 20:32:57 »
ขอบคุณมากเลยค่ะ คุณ Un สุดยอดมากเลย
มีอีกหนึ่งคำถามคือ สร้างฟอร์ค้นหาข้อมูลมาเรียบร้อยแล้ว มีช่องให้ใส่ข้อมูลต่างๆ อยากสร้างปุ่มให้กดแล้วเคลียร์ข้อมูลที่เราใส่ในช่อง เพื่อค้นหาข้อมูลใหม่ ต้องใช้คำสั่งหรือเขียนโค้ดยังไงคะ ลองใช้ docmd แต่ไม่รู้จะไปยังไงต่อ

 

28 มิ.ย. 66 , 10:21:21
ตอบกลับ #3

Un

: การใช้ MsgBox
« ตอบกลับ #3 เมื่อ: 28 มิ.ย. 66 , 10:21:21 »
สมมุติกล่องข้อความ ชื่อ กล่อง1 และกล่อง2
ที่ปุ่มคำสั่ง

Private Sub Command_Click()
    Me.กล่อง1 = ""
    Me.กล่อง2 = ""
    Me.กล่อง1.Setfocus
End Sub

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

28 มิ.ย. 66 , 12:17:47
ตอบกลับ #4

maicnx

: การใช้ MsgBox
« ตอบกลับ #4 เมื่อ: 28 มิ.ย. 66 , 12:17:47 »
ขอบคุณ คุณ Un มากๆเลยค่ะ

 

01 ก.ค. 66 , 23:45:14
ตอบกลับ #5

nonc31

: การใช้ MsgBox
« ตอบกลับ #5 เมื่อ: 01 ก.ค. 66 , 23:45:14 »
ป้องกันการปิดด้วย X
Private Sub Form_Unload(Cancel As Integer)
    Cancel = True
End Sub

ยกเลิกการป้องกันการปิดด้วย X
Private Sub Command1_Click()
   Me.OnUnload = ""
End Sub

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


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


 

Sitemap 1 2 3 4 5