แสดงกระทู้
91
ห้อง MS Access / : คำสั่ง yesNoCancel
« เมื่อ: 13 มี.ค. 64 , 11:32:07 »
มันก็แค่ เอาขั้นตอนทั้งหมดมาใส่ไว้ตรงที่เลือก
ผมขอเาของ อ.Chai มาใส่นะครับ ขั้นต่อไปอีก ลองทำดูครับ
ผมขอเาของ อ.Chai มาใส่นะครับ ขั้นต่อไปอีก ลองทำดูครับ
โค๊ด: [Select]
Dim RetValue As Variant, rst As String
RetValue = MsgBox("...ใส่เนื้อหาที่แจ้ง", vbYesNoCancel + vbDefaultButton3, "Un")
Select Case RetValue
Case 6 'yes
MsgBox "คำสั่งพิมพ์ข้อมูล", vbOKOnly, "Un"
Case 7 'No
rst = MsgBox("...เนื้อหาที่แจ้งขั้นที่ 2", vbYesNoCancel + vbDefaultButton3, "Un")
If rst = vbYes Then
MsgBox "คำสั่งพิมพ์ข้อมูล", vbOKOnly, "Un"
ElseIf rst = vbNo Then
MsgBox "ทำขั้นตอนที่2", vbOKOnly, "Un"
Else
Exit Sub
End If
Case 2 'Cancle
''''
End Select
