กระทู้เก่าบอร์ด อ.Yeadram
3,805 3
URL.หัวข้อ /
URL
การใช้คำสั่งปิดฟอร์ม
Private Sub DelStock_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "DelUpdatestock"
DoCmd.OpenQuery "ChkUpdateDel"
If MsgBox("Do you want to view the report.", vbYesNoCancel) = vbYes Then
*** DoCmd.Close acForm = acDefault, "JobOrder"
DoCmd.OpenReport "Stock", acViewReport
End If
End Sub
+++++++++++++
คำถาม คือผม เปิดฟอร์มที่ชื่อว่า "JobOrder" ขึ้นมา
จากนั้นผมได้สร้างปุ่มคำสั่ง DelStock ในฟอร์ม ไว้สำหรับตัด Stock
เมื่อตัดเสร็จแล้ว ถ้าคลิก Yes ก็จะให้ปิดฟอร์ม JobOrder (ที่เปิดไว้ในตอนนี้) ตรงบรรทัดที่มี ดอกจัน แต่ผลปรากฎว่ามันไม่ปิด และเรียก Report "Stock" ขึ้นมา รบกวนช่วยชี้แนะให้ด้วยครับ
DoCmd.SetWarnings False
DoCmd.OpenQuery "DelUpdatestock"
DoCmd.OpenQuery "ChkUpdateDel"
If MsgBox("Do you want to view the report.", vbYesNoCancel) = vbYes Then
*** DoCmd.Close acForm = acDefault, "JobOrder"
DoCmd.OpenReport "Stock", acViewReport
End If
End Sub
+++++++++++++
คำถาม คือผม เปิดฟอร์มที่ชื่อว่า "JobOrder" ขึ้นมา
จากนั้นผมได้สร้างปุ่มคำสั่ง DelStock ในฟอร์ม ไว้สำหรับตัด Stock
เมื่อตัดเสร็จแล้ว ถ้าคลิก Yes ก็จะให้ปิดฟอร์ม JobOrder (ที่เปิดไว้ในตอนนี้) ตรงบรรทัดที่มี ดอกจัน แต่ผลปรากฎว่ามันไม่ปิด และเรียก Report "Stock" ขึ้นมา รบกวนช่วยชี้แนะให้ด้วยครับ
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R12669
ดูจากคำถามแล้ว ผู้ถามคงไม่ได้ code เอง
3 @R12694
Private Sub DelStock_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "DelUpdatestock"
DoCmd.OpenQuery "ChkUpdateDel"
DoCmd.SetWarnings True
If MsgBox("Do you want to view the report.", vbYesNoCancel) = vbYes Then
DoCmd.OpenReport "Stock", acViewReport
End If
DoCmd.Close acForm, "JobOrder"
End Sub
DoCmd.SetWarnings False
DoCmd.OpenQuery "DelUpdatestock"
DoCmd.OpenQuery "ChkUpdateDel"
DoCmd.SetWarnings True
If MsgBox("Do you want to view the report.", vbYesNoCancel) = vbYes Then
DoCmd.OpenReport "Stock", acViewReport
End If
DoCmd.Close acForm, "JobOrder"
End Sub
Time: 0.3043s
DoCmd.OpenReport "Stock", acViewReport อันนี้เปิด Report ต้องลบออกครับ