กระทู้เก่าบอร์ด อ.Yeadram
949 0
URL.หัวข้อ /
URL
ปัญหา Msgbox
แจ้งปัญหา Msgbox
DoCmd.OpenReport "ใบสำคัญ39", acViewPrint, , "[ID]=[Forms]![ประวัติทหารกองเกิน].[ID]"
if Cint(me.อายุที่ลงบัญชี.value) <= 17 then
DoCmd.Close acForm, "ใบสำคัญ39"
exit sub
end if
DoCmd.Close acForm, "ใบสำคัญ39"
If MsgBox("คุณต้องการส่งดำเนินคดีตามมาตรา 18 ใช่ หรือ ไม่", vbInformation + vbYesNo, "โปรดยืนยัน") = vbYes Then
Cancel = True
DoCmd.OpenReport "มาตรา18", acViewPrint, , "[ID]=[Forms]![ประวัติทหารกองเกิน].[ID]"
DoCmd.OpenReport "สำเนาของ มาตรา18", acViewPrint, , "[ID]=[Forms]![ประวัติทหารกองเกิน].[ID]"
End If
End Sub
***.ในตอนนั้นคุณ TIDE ได้ให้คำแนะนำ ด้านบน ก็น่าจะประสบความสำเร็จ แต่ก็ยัง Msgbox ยังฟ้อง
***ความต้องการของผม ชายไทยมาแสดงตนลงบัญชีทหารกองเกิน อายุ 17 ปี และอายุมากกว่า 17 ปี
***********ถ้าอายุ 17 ปี ไม่ต้องแสดง Msgbox
***********ถ้าอายุตั้งแต่ 18 ปีขึ้นไป แสดง Msgbox เพื่อพิมพ์หนังสือดำเนินคดี เกี่ยวกันหรือไม่**อายุที่ลงบัญชี** เป็นชนิดข้อมูล Text ก็ยังฟ้อง พอเปลียนเป็น number ก็ฟ้องเช่นเดิม
******อาจารย์ท่าใดที่มีความชำนาญขอให้ตรวจ code ขอบคุณบ่วงหน้า
DoCmd.OpenReport "ใบสำคัญ39", acViewPrint, , "[ID]=[Forms]![ประวัติทหารกองเกิน].[ID]"
if Cint(me.อายุที่ลงบัญชี.value) <= 17 then
DoCmd.Close acForm, "ใบสำคัญ39"
exit sub
end if
DoCmd.Close acForm, "ใบสำคัญ39"
If MsgBox("คุณต้องการส่งดำเนินคดีตามมาตรา 18 ใช่ หรือ ไม่", vbInformation + vbYesNo, "โปรดยืนยัน") = vbYes Then
Cancel = True
DoCmd.OpenReport "มาตรา18", acViewPrint, , "[ID]=[Forms]![ประวัติทหารกองเกิน].[ID]"
DoCmd.OpenReport "สำเนาของ มาตรา18", acViewPrint, , "[ID]=[Forms]![ประวัติทหารกองเกิน].[ID]"
End If
End Sub
***.ในตอนนั้นคุณ TIDE ได้ให้คำแนะนำ ด้านบน ก็น่าจะประสบความสำเร็จ แต่ก็ยัง Msgbox ยังฟ้อง
***ความต้องการของผม ชายไทยมาแสดงตนลงบัญชีทหารกองเกิน อายุ 17 ปี และอายุมากกว่า 17 ปี
***********ถ้าอายุ 17 ปี ไม่ต้องแสดง Msgbox
***********ถ้าอายุตั้งแต่ 18 ปีขึ้นไป แสดง Msgbox เพื่อพิมพ์หนังสือดำเนินคดี เกี่ยวกันหรือไม่**อายุที่ลงบัญชี** เป็นชนิดข้อมูล Text ก็ยังฟ้อง พอเปลียนเป็น number ก็ฟ้องเช่นเดิม
******อาจารย์ท่าใดที่มีความชำนาญขอให้ตรวจ code ขอบคุณบ่วงหน้า
Time: 0.1166s