กระทู้เก่าบอร์ด อ.Yeadram
1,446 1
URL.หัวข้อ /
URL
บังคับให้ป้อนค่าที่ว่าง
ผมมีปุ่ม update ไว้เพื่อปรับปรุงข้อมูล และถ้าหากผมกดปุ่ม update แต่ลืมป้อนข้อมูลใน textbox บางตัว ให้แสดง warning เตือนขึ้นมา ว่าให้ป้อนค่าใน textbox ที่ว่าง แล้วมีปุ่มให้เลือก Ok กับ Cancel ถ้ากด Ok ให้กลับมาป้อนค่าที่ว่าง ถ้ากด Cancel ให้ยกเลิกคำสั่ง update
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
Time: 0.2998s
เมื่อปุ่ม update ไม่ได้ถูกกด ข้อมูลที่กรอกมันก็จะไม่ต้อง อัพเดต (ปลอดภัยกับข้อมูลเก่าด้วย)
เมื่อกดปุ่มอัพเดต
private sub cmdUpdate_click()
dim ctl as control
for each ctl in contorls
it typeof ctl is textbox and ctl="" then
if msgbox("ยังไม่ได้กรอกข้อมูลในช่อง " & ctl.name & vbcrlf _
& "จะกลับไปกรอกใหม่หรือไม่" , vbCritical+vbOkCancel)=vbOk then
me(ctl.name).setfocus
end if
exit sub
end if
next
dim sq as string
sq="Update table1 set field1=" & text1 & " and field2 = " & text2 _
& " where ......................."
docmd.setwarnings false
docmd.runsql sq
end sub