33
ห้อง MS Access / : คำสั่ง yesNoCancel
« เมื่อ: 11 มี.ค. 64 , 11:58:10 »
dim rst as String
rst=MsgBox("...ใส่เนื้อหาที่แจ้ง", vbYesNoCancel + vbDefaultButton3, "Un")
if rst=vbYes then
'พิมพ์ข้อมูล
elseif rst=vbNo then
' msgbox
else
Exit sub
end if
rst=MsgBox("...ใส่เนื้อหาที่แจ้ง", vbYesNoCancel + vbDefaultButton3, "Un")
if rst=vbYes then
'พิมพ์ข้อมูล
elseif rst=vbNo then
' msgbox
else
Exit sub
end if