การเช็ค IF
กระทู้เก่าบอร์ด อ.Yeadram

 1,195   3
URL.หัวข้อ / URL การเช็ค IF

Private Sub Command6_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "Update"
MsgBox "UpDateComplete", vbOKOnly + vbInformation, "UpDateStock"
MsgBox "You See Repost", vbYesNoCancel
DoCmd.OpenReport "Stock", acViewReport
End Sub
++++++++++++++++++++++++
เรียนถามว่า
จากโปรแกรมข้างบนผมติดปัญหาตรงที่
เรียกเปิด Report "Stock" ก่อนเปิดจะมีคำถาม Yes No และ Cancel
ผมตอบ No หรือ ไม่ก็ Cancel แล้ว ทำไมยังเปิด Report "Stock"
อยู่ จะทำอย่างไรครับ ถ้าไม่ต้องการให้เปิดต้องเพิ่มเติมอย่างไร
ขอบคุณล่วงหน้าครับ
โดย: นพพร เมื่อ: 19 เม.ย. 2555 , 16:25

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

1 @R12594

If MsgBox("Print?" , vbExclamation + vbYesNo + vbDefaultButton1, "Print") = vbYes Then
                   DoCmd.OpenReport "Stock", acViewReport
End If
      
     
โดย: ตุ้มเม้ง เมื่อ: 19 เม.ย. 2555 , 16:43
2 @R12598
สองบรรทัดสุดท้ายของคุณ ต้องเพิ่ม การตรวจสอบและทางเลือกครับ
คุณตุ้มเม้งให้มานั่นก็เป็นแนวทาง ถ้าจะเอาให้ตรงกับงานเดิมของคุณจริงๆ ก็ต้อง

MsgBox "UpDateComplete", vbOKOnly + vbInformation, "UpDateStock"
if MsgBox ("You See Repost", vbYesNoCancel)=vbYes Then DoCmd.OpenReport "Stock", acViewReport
End Sub
โดย: yeadram เมื่อ: 19 เม.ย. 2555 , 17:42
3 @R12609
ขอบคุณมากครับ ใช้ได้ผลครับ

โดย: นพพร เมื่อ: 20 เม.ย. 2555 , 08:32
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2707s