โปรแกรม Access ไม่ขึ้นเตือนต่างๆ
กระทู้เก่าบอร์ด อ.Yeadram

 1,397   4
URL.หัวข้อ / URL โปรแกรม Access ไม่ขึ้นเตือนต่างๆ

ทำโปรแกรมขึ้นมาตัวหนึ่ง เวลาจะปิดถ้ามีการแก้ไขแต่ยังไม่ได้เซฟไม่ว่าจะเป็น
ตาราง แบบสอมถาม ฟอร์ม รายงาน ค่าแมโคร จะมีเตือนถามอยู่เสมอว่าจะเซฟหรือไม่
แต่ที่พบคือบางครั้งไม่เตือนเลยปิดพร้อมเซฟให้เลย งงมากครับ
แล้วเวลาทำการค้นหาข้อมูลในระเบียน ถ้าค้นหาไม่พบก็จะไม่เตือนเช่นเดียวกัน

ซึ้งผมก็ไม่ได้ไปกำหนดค่าอะไรไว้ ไม่ทราบว่าปัญหาอยู่ที่ตรงไหนครับ ???
โดย: K เมื่อ: 4 ส.ค. 2554 , 16:44

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

1 @R10583
ได้กำหนด DoCmd.SetWarnings False ไว้บ้างหรือเปล่าครับ
โดย: weezaa เมื่อ: 5 ส.ค. 2554 , 08:18
2 @R10587
ส่งสัยผมจะไปใส่ใน แมโคร ซึ่งจะทำการผนวกข้อมูลลงในตารางผมเซทค่าไม่ให้เตือนว่ามีค่าผนวกลงในตาราง

ถ้าเอาออกก็จะมีตัวเตือน ผมอยากจะให้ข้อมูลผนวกลงไปเลยโดยไม่อยากให้มีตัวเตือนใช้คำสั่งแบบไหนได้อีกครับ

ขอบคุณครับ
โดย: K เมื่อ: 5 ส.ค. 2554 , 08:57
3 @R10588
คุณต้องตั้งค่าให้กลับมาที่ค่าปกติด้วย คือ มีการเตือนทุกครั้งที่มีการ action คุณอาจจะใช้การเขียนโค้ดหรือ ในมาโครก็แล้วแต่ให้ตั้งค่าคืนกลับมาที่ True ด้วยครับ
เช่น

DoCmd.SetWarnings False

.......เงื่อนไข

DoCmd.SetWarnings True

แต่อาจจะมีปัญหาในระหว่างที่รันข้อมูลหากเกิดมีปัญหาแล้วมันดันมาตายก่อนถึงเงื่อนไขที่จะเป็น DoCmd.SetWarnings True

ดังนั้นให้คุณใส่เงื่อนไขในคำสั่ง On Error GoTo ด้วยครับ

ต.ย. เช่น

Public Sub xxx()
On Error GoTo Err1

DoCmd.SetWarnings False
..... เงื่อนไข
DoCmd.SetWarnings True

Err1_Exit:
    Exit_Sub ' หรือ Exit_Function แล้วแต่ คำสั่งในโค้ดของคุณ
Err1:
    DoCmd.SetWarnings True ' ใส่คำสั่งตรงนี้เพื่อตั้งค่าคืนกลับให้เป็นปกติกรณีเกิดมีการทำงานผิดพลาด
    MsgBox "มี Error มาจาก ==> " & Err.Description, vbCritical, "แจ้งให้ทราบ"
    Resume Err_Exit
    
End Sub
โดย: Sak เมื่อ: 5 ส.ค. 2554 , 09:39
4 @R10590
ขอบคุณ คุณ Sak มากๆ เลยครับ    
โดย: K เมื่อ: 5 ส.ค. 2554 , 10:41
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3778s