การใช้คำสั่งปิดฟอร์ม
กระทู้เก่าบอร์ด อ.Yeadram

 3,657   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" ขึ้นมา รบกวนช่วยชี้แนะให้ด้วยครับ

3 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R12646
DoCmd.Close acForm, "JobOrder" ปิดฟอร์มแบบนี้ครับ

DoCmd.OpenReport "Stock", acViewReport อันนี้เปิด Report ต้องลบออกครับ
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
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2762s